Discussion :

[moilou2]

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?

[pgz]

Bonjour.

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PremiereLigne = Worksheets("Feuil1").Range("A2").row

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PremièreLigne = 2

Cordialement,

PGZ

[moilou2]

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").Row
 
  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

Ce que je ne comprends pas c'est que sa ne beug plus, mais même si je tappe les bonnes valeurs par exemple "A1" sa va ma mettre valeur incorrecte pour ce champ.

Alors que si j'execute le UserForm dans la même feuille que où sont les données sa fonctionne nikel. Je ne vois pas d'où sa peut venir.

Je met mon fichier en pièce jointe pour ceux qui ne comprendrais pas tout.

Pour ceux qui nous rejoingne, ce que je veux faire c'est en tapant un code dans une textBox, afficher son équivalent dans une comboBox.

Si j'execute mon USerForm sur la feuille ou je pioche mes données sa fonctionne (Feuil1) et si j'execute mon UserForm depuis une autre feuille (Feuil2) sa ne fonctionne pas. Voila mon souci.

[Godzestla]

Salut moilou2,

c'est normal que cela ne focntionne pas car les 2 lignes suivantes te ramène juste un numéro de ligne (un integer si tu veux) mais rien d'autre et ne te positionnent en rien sur une feuille différente de la feuille active.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  DerniereLigne = Worksheets("Feuil1").Range("A2").End(xlDown).Row
  PremiereLigne = Worksheets("Feuil1").Range("A2").Row

Donc tu parcours la feuille active avec les limites de la feuille 1.

Change la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    If Cells(i, 1) = TextBox1.Text Then

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    If Sheets("Feuil1").Cells(i, 1) = TextBox1.Text Then

et tu devrais voir la différence.

J'espère que tu auras compris.

[moilou2]

Re et merci, je crois avoir compris, mais sa ne fonctionne pas. Enfin je n'ai plus le message qui s'affiche mais je n'ai rien non plus qui se met dans ma combobox;

Voila ce que j'ai mis, je pense que c'est ce que tu m'a indiqué:

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").Row
 
  For i = PremiereLigne To DerniereLigne
    If Sheets("Feuil1").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

[moilou2]

J'ai trouvé merci beaucoup.

En fait il fallait aussi indiqué que c'était la "feuil1" dans la ligne de code en dessous comme suit:

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").Row
 
  For i = PremiereLigne To DerniereLigne
    If Sheets("Feuil1").Cells(i, 1) = TextBox1.Text Then
      ComboBox1.AddItem Sheets("Feuil1").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

Merci pour tout