J'ai une question.

Je lance ce code d'une feuille, mais les données à partir desquels j'execute ma boucle for next ne se trouve pas dans la même feuille. Comment je peut faire?

J'ai essayé le code suivant mais sa bloque sur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim bon As Boolean
  Dim DerniereLigne As Integer
  Dim PremiereLigne As Integer
 
  Me.ComboBox1.Clear
  DerniereLigne = Worksheets("Feuil1").Range("A2").End(xlDown).Row
  PremiereLigne = Worksheets("Feuil1").Range("A2")
 
  For i = PremiereLigne To DerniereLigne
    If Cells(i, 1) = TextBox1.Text Then
      ComboBox1.AddItem Cells(i, 2)
      bon = True
    End If
  Next
  If Not bon Then
      MsgBox "La valeur saisie est incorrecte pour ce champ"
      Exit Sub
  Else
      ComboBox1.ListIndex = 0
  End If
 End Sub
Mais sa bloque sur:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
PremiereLigne = Worksheets("Feuil1").Range("A2")
Qu'est ce qui ne va pas?