Boucle avec for avec valeur manquante

Bonjour a tous et merci pour votre aide.

Voici mon probleme: dans mon code,

For x = TextBox1.Value To TextBox2.Value
Dim cell_nom As Range, lg_total As Integer
Worksheets("Semaine N°" & x).Select
If Worksheets("Semaine N°" & x).Range("A10") = "Nom" Then
Set cell_nom = Worksheets("Semaine N°" & x).Columns("A").Find("Nom", , , , , xlPrevious)
lg_total = cell_nom.Row - 2

j'utilise une boucle qui va de la valeur textbox1 à textbox2 mon code marche tres bien cependant je souhaiterai que lorsqu une valeur est manquante que le code passe a la prochaine valeur

Par exemple :

textbox1 = 2

textbox2=8

mon code marche tres bien si toutes les valeur existe entre 2 et 8 (2,3,4,,5,6,7,8) cependant dans mes fichier il se peut qu'une valeur nexite pas (par exemple le "4")

comment puis je modifier mon code ?

en vous remerciant

cordialement

Bonjour

A tester : Pour "sauter" le numéro 4

  For x = TextBox1.Value To TextBox2.Value
    '
    ' Ton code
    '
    If x = 3 Then x = x + 1
  Next x

Bonjour et merci pr votre reponse.

Le numero "4" etait un exemple ds ma problematique il peut s agir de n importe quel chiffre manquant....

Merci pr votre aide.

Bonjour,

Tu peux tester la présence de la feuille

Exemple :

Sub CommandButton1_Click()
Dim cell_nom As Range, lg_total As Integer
    For x = TextBox1.Value To TextBox2.Value
        If FeuilleExiste("Semaine N°" & x) Then
            Set Ws = Worksheets("Semaine N°" & x)
            If Ws.Range("A10") = "Nom" Then
                Set cell_nom = Ws.Columns("A").Find("Nom", , , , , xlPrevious)
                lg_total = cell_nom.Row - 2
            End If
        End If
    Next
End Sub

Public Function FeuilleExiste(NomFeuille As String) As Boolean
Dim Ws As Worksheet
   FeuilleExiste = False
   For Each Ws In ActiveWorkbook.Worksheets
      If Ws.Name = NomFeuille Then
         FeuilleExiste = True
         Exit Function
      End If
   Next
End Function

A+