bonjour a tous encore un souci j ai creer avec l aide du forum cette macro dans un classeur a 3 feuilles menu articles param
probleme elle fonction quand je suis sur la feuille articles mais pas quand je suis sur la feuille menu et je voudrau quel marche sur la feuille MENU ou est l erreur
Dim I As Integer
Private Sub CommandButton1_Click()
With Me
.TextBox1 = ""
.TextBox2 = ""
.TextBox3 = ""
.TextBox4 = ""
.TextBox5 = ""
.TextBox6 = ""
.TextBox7 = ""
For I = 1 To Range("A35000").End(xlUp).Row
If Range("B" & I) = .ComboBox1.Text And Range("C" & I) = .ComboBox2.Text Then
.TextBox1 = Range("A" & I)
.TextBox2 = Range("D" & I)
.TextBox3 = Range("E" & I)
.TextBox4 = Range("F" & I)
.TextBox5 = Range("G" & I)
.TextBox6 = Range("H" & I)
.TextBox7 = Range("I" & I)
Exit For
End If
Next I
End With
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "ARTICLES!B1:B" & Range("B35000").End(xlUp).Row
Me.ComboBox2.RowSource = "ARTICLES!C1:C" & Range("C35000").End(xlUp).Row
End Sub
Private Sub UserForm_Click()
End Sub
probleme elle fonction quand je suis sur la feuille articles mais pas quand je suis sur la feuille menu et je voudrau quel marche sur la feuille MENU ou est l erreur
Dim I As Integer
Private Sub CommandButton1_Click()
With Me
.TextBox1 = ""
.TextBox2 = ""
.TextBox3 = ""
.TextBox4 = ""
.TextBox5 = ""
.TextBox6 = ""
.TextBox7 = ""
For I = 1 To Range("A35000").End(xlUp).Row
If Range("B" & I) = .ComboBox1.Text And Range("C" & I) = .ComboBox2.Text Then
.TextBox1 = Range("A" & I)
.TextBox2 = Range("D" & I)
.TextBox3 = Range("E" & I)
.TextBox4 = Range("F" & I)
.TextBox5 = Range("G" & I)
.TextBox6 = Range("H" & I)
.TextBox7 = Range("I" & I)
Exit For
End If
Next I
End With
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "ARTICLES!B1:B" & Range("B35000").End(xlUp).Row
Me.ComboBox2.RowSource = "ARTICLES!C1:C" & Range("C35000").End(xlUp).Row
End Sub
Private Sub UserForm_Click()
End Sub
Pièces jointes
Dernière édition: