re : renvoi de combox dans cellule

  • Initiateur de la discussion Initiateur de la discussion noon
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
2
Affichages
461
Réponses
3
Affichages
665
Réponses
6
Affichages
604
Réponses
3
Affichages
582
Retour