problème d'incrémentation sur des feuilles excel

[thuan]

Bonjour Tout le Monde, le forum
Voila j 'a un pb d'incrémentation je ne sais pas trop ce qui cloche dans mon incrémentation pouvez vous m'aidez à y voir plus clair merci
voila mon code:

Private Sub CommandButton1_Click()
n = Sheets.Count - 1
Dim a As Integer
ListBox1.Clear
For a = 1 To n
With Sheets("Feuil" & a)
If Cells(2, 2).Text Like ComboBox1.Value Then
With ListBox1
.AddItem Sheets("Feuil" & a).Range("B1")
End With
End If
End With
Next a
End Sub

 

[Yeahou]

Bonjour Thuan, le forum

il faut ajouter un point devant ton cells pour faire référence à with sinon , comme tu ne sélectionne pas les feuilles, l'opération se fera toujour sur la feuille active au départ
If .Cells(2, 2).Text Like ComboBox1.Value Then

Cordialement, A+

 

[thuan]

Bonjour YEAHOU, le forum
Je voulais te dire un grand merci, j'ai passer toute une après midi à chercher d'où pouvais provenir l'erreur merci encore.