N
noon
Guest
bonjour a tous
voila j ai deja poser mon probleme de renvoi de combox dans une cellule
et ca a marcher
mais la j ai du bidouiller quelque chose et je ne comprends plus rien
non seulement ma combo n est envoyer dans aucune cellule
mais ma textbox qui doit envoyer dans la cell D1 est aussi envoyer dans
la C1 (celle de ma combo)
je vous joint le code que j ai mis
(tous ca est normalement dans sur un bouton userform)
Private Sub CommandButton1_Click()
Dim lig As Long
Sheets("feuil1").Activate
If Application.CountA(Range("b:b")) = 0 Then
Range("b1") = TextBox1.Value
Range("c1") = ComboBox1.Value
Range("d1") = TextBox2.Value
Range("e1") = TextBox3.Value
Range("f1") = TextBox4.Value
Range("g1") = TextBox5.Value
Else
lig = Columns(2).Find("", [b1], , , xlByRows).Row
Cells(lig, 2) = TextBox1.Value
Cells(lig, 3) = ComboBox1.Value
Cells(lig, 4) = TextBox2.Value
Cells(lig, 5) = TextBox3.Value
Cells(lig, 6) = TextBox4.Value
Cells(lig, 7) = TextBox5.Value
Cells(lig, 1).Select
End If
Cells(lig, 2) = UCase(TextBox1.Value) 'MAJUSCULE
Cells(lig, 3) = LCase(TextBox2.Value) 'MINUSCULE
Unload Me
UserForm1.Show
End Sub
Private Sub userform_initialize()
With ComboBox1
.AddItem ("Action")
.AddItem ("Comedie")
.AddItem ("Fantastique")
.AddItem ("Dessin animés")
End With
dvd.TextBox5.Value = Format(Now, "mm/dd/yyyy")
End Sub
je ne sais pas si ca vous parle mais ja n est pas put envoyer
l exemple car trop gros
merci encore
car j en est super marre
noon
voila j ai deja poser mon probleme de renvoi de combox dans une cellule
et ca a marcher
mais la j ai du bidouiller quelque chose et je ne comprends plus rien
non seulement ma combo n est envoyer dans aucune cellule
mais ma textbox qui doit envoyer dans la cell D1 est aussi envoyer dans
la C1 (celle de ma combo)
je vous joint le code que j ai mis
(tous ca est normalement dans sur un bouton userform)
Private Sub CommandButton1_Click()
Dim lig As Long
Sheets("feuil1").Activate
If Application.CountA(Range("b:b")) = 0 Then
Range("b1") = TextBox1.Value
Range("c1") = ComboBox1.Value
Range("d1") = TextBox2.Value
Range("e1") = TextBox3.Value
Range("f1") = TextBox4.Value
Range("g1") = TextBox5.Value
Else
lig = Columns(2).Find("", [b1], , , xlByRows).Row
Cells(lig, 2) = TextBox1.Value
Cells(lig, 3) = ComboBox1.Value
Cells(lig, 4) = TextBox2.Value
Cells(lig, 5) = TextBox3.Value
Cells(lig, 6) = TextBox4.Value
Cells(lig, 7) = TextBox5.Value
Cells(lig, 1).Select
End If
Cells(lig, 2) = UCase(TextBox1.Value) 'MAJUSCULE
Cells(lig, 3) = LCase(TextBox2.Value) 'MINUSCULE
Unload Me
UserForm1.Show
End Sub
Private Sub userform_initialize()
With ComboBox1
.AddItem ("Action")
.AddItem ("Comedie")
.AddItem ("Fantastique")
.AddItem ("Dessin animés")
End With
dvd.TextBox5.Value = Format(Now, "mm/dd/yyyy")
End Sub
je ne sais pas si ca vous parle mais ja n est pas put envoyer
l exemple car trop gros
merci encore
car j en est super marre
noon