Bonjour @ tous depuis quelques semaines j'essai d'apprendre excel vba et je test plusieurs fichier d'on userform je voudrais savoir si dans une userform on peux pré-remplir une TexBox? si oui comment car j'ai fait quelques test et je ne trouver pas je poste un bout de code.
Quand je mes cette formule Cells(derligne, 9) = TextBox1.Value = ("test") il affiche faut et si je mes Cells(derligne, 9) = TextBox1.Value = test il me marque vrai et la je suis perdu .
Merci de votre aide
Private Sub BtAjouter_Click()
Dim derligne As Integer
' If MsgBox("Confirmez-vous l'ajout des nouvelles donées?", vbYesNo, "comfimation") = vbYes Then
derligne = Sheets("Gestion").Range("A456541").End(xlUp).Row + 1
Cells(derligne, 1) = ComboBox1.Value
Cells(derligne, 2) = ComboBox2.Value
Cells(derligne, 3) = ComboBox3.Value
Cells(derligne, 4) = ComboBox4.Value
Cells(derligne, 5) = ComboBox5.Value
Cells(derligne, 6) = ComboBox6.Value
Cells(derligne, 7) = ComboBox7.Value
Cells(derligne, 8) = ComboBox8.Value
Cells(derligne, 9) = TextBox1.Value = ("test")
Cells(derligne, 10) = ComboBox9.Value
Cells(derligne, 11) = ComboBox10.Value
Cells(derligne, 12) = ComboBox11.Value
Cells(derligne, 13) = ComboBox12.Value
End Sub
Quand je mes cette formule Cells(derligne, 9) = TextBox1.Value = ("test") il affiche faut et si je mes Cells(derligne, 9) = TextBox1.Value = test il me marque vrai et la je suis perdu .
Merci de votre aide
Private Sub BtAjouter_Click()
Dim derligne As Integer
' If MsgBox("Confirmez-vous l'ajout des nouvelles donées?", vbYesNo, "comfimation") = vbYes Then
derligne = Sheets("Gestion").Range("A456541").End(xlUp).Row + 1
Cells(derligne, 1) = ComboBox1.Value
Cells(derligne, 2) = ComboBox2.Value
Cells(derligne, 3) = ComboBox3.Value
Cells(derligne, 4) = ComboBox4.Value
Cells(derligne, 5) = ComboBox5.Value
Cells(derligne, 6) = ComboBox6.Value
Cells(derligne, 7) = ComboBox7.Value
Cells(derligne, 8) = ComboBox8.Value
Cells(derligne, 9) = TextBox1.Value = ("test")
Cells(derligne, 10) = ComboBox9.Value
Cells(derligne, 11) = ComboBox10.Value
Cells(derligne, 12) = ComboBox11.Value
Cells(derligne, 13) = ComboBox12.Value
End Sub