Bonjour à tout le forum,
J'ai un petit soucis depuis quelques jours et malgrés mes recherches deans le forum je n'arrive pas à trouver mon erreur (je débute)
Je désire si trois conditions sont remplies dans mes textbox12, 13 et 14 par apport à des valeurs se situant sur la feuille "données" dans les cellules respective a2,a15,a28... pour textbox12; a3,a16,a29... pour textbox13 et b3,b16,b29... pour textbox14 (les données de la feuille vont jusqu'à "a378").
Si par exemple textbox12 = a2 , textbox13 = a3 et textbox14 = b3 alors
Textbox1 = b4 ;Textbox2 = b5 ;...;Textbox11 = b15 (11textbox de destination).
Je ne sais pas si j'ai été clair dans mes excplications!!
Pour l'instant j'ai écrit (et réécrit!) ceci que pour une condition mais déjà çà bloque. Je suppose qu'il faut écrire à chaque fois toutes les conditions pour chaque solution!
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 11
If TextBox12.Value = Sheets("Tableau").Range("a2").Value Then
If TextBox13.Value = Sheets("Tableau").Range("a3").Value Then
If TextBox14.Value = Sheets("Tableau").Range("b3").Value Then
Me.Controls(TextBox & i).Value = Sheets("tableau").Range("b4" & i).Value
i = i + 1
End If
End If
End If
Next
End Sub
Merci par avace à vous tous pour votre aide.
Folls...
J'ai un petit soucis depuis quelques jours et malgrés mes recherches deans le forum je n'arrive pas à trouver mon erreur (je débute)
Je désire si trois conditions sont remplies dans mes textbox12, 13 et 14 par apport à des valeurs se situant sur la feuille "données" dans les cellules respective a2,a15,a28... pour textbox12; a3,a16,a29... pour textbox13 et b3,b16,b29... pour textbox14 (les données de la feuille vont jusqu'à "a378").
Si par exemple textbox12 = a2 , textbox13 = a3 et textbox14 = b3 alors
Textbox1 = b4 ;Textbox2 = b5 ;...;Textbox11 = b15 (11textbox de destination).
Je ne sais pas si j'ai été clair dans mes excplications!!
Pour l'instant j'ai écrit (et réécrit!) ceci que pour une condition mais déjà çà bloque. Je suppose qu'il faut écrire à chaque fois toutes les conditions pour chaque solution!
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 11
If TextBox12.Value = Sheets("Tableau").Range("a2").Value Then
If TextBox13.Value = Sheets("Tableau").Range("a3").Value Then
If TextBox14.Value = Sheets("Tableau").Range("b3").Value Then
Me.Controls(TextBox & i).Value = Sheets("tableau").Range("b4" & i).Value
i = i + 1
End If
End If
End If
Next
End Sub
Merci par avace à vous tous pour votre aide.
Folls...