El  toreador
       Ma demande est simple mais compliquée pour moi. je veux  à l'aide d'une macro qu'excel change de feuille et passe à la suivante "sachant quelles st nommées différemment  mais je veux que ce soit en relatif juste qu'au moment où il n'y a plus de chiffre à la cellule C10. merci d'avance

 sheet.offset(1).select   "offset n'est pas bon

Bonjour,

Et avec ça,  

ActiveSheet.Next.Select

ça fait ce que tu veux ?

Bonjour,

    nbfeuille = Sheets.Count
i = 1
    Sheets(1).Select
    Range("C10").Select
Do
    If ActiveCell.Value <> "" Then
    i = i + 1
        Sheets(i).Select
        Range("C10").Select
    Else
    End If
Loop While i <> nbfeuille

la dernière feuille qui s'affiche est celle où la cellule C10 est vide ;o)

Jordinette

Bonjour,

Le réponse de Mcs2006 est excellente. Et je rajouterai, qu'il faut aussi utiliser le controle d'erreur afin de ne pas avoir de problème lorsqu'on arrive à la dernière feuille. Par exemple en utilisant ON ERROR RESUME NEXT... qui permet de poursuivre l'exécution après l'erreur. Ou bien en utilisant la valeur Err généré.

Exemple :

Sub changefeuille()
On Error Resume Next
ActiveSheet.Next.Select
If Err <> 0 Then Exit Sub

'.... suite du prog

End Sub