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