RESOLUS ENCORE MERCI

[jmcr]

bonsoir le forum
voila j ai encore besoin d'un coup de main ,j ai un useforme qui marche très bien mais je suis obligé pour un coté pratique car mes modifications sont fréquent de changer mon textbox1 par une zone de liste modifiable
combobox 1
dans mon code que voila
.Cells(Numlignevide, 5) = TextBox1.Value a la place j ai mis cela (combobox1.value)
voila j ai bien fait un essaie mais il enregistre pas sur ma feuille
pouvez vous m 'apprendre mon erreur svp

 

[Robert]

Bonjour Jmcr, bonjour le forum,

Une ligne de code sortie de son contexte de ne permet pas de t'aider beaucoup. Es-tu certain du nom de ta ComboBox : ComboBox1 ?

 

[jmcr]

bonjour le forum merci robert pour avoir répondus
oui car j ai pris dans boite outil et en propriété il indique bien combobox 1
je souligne la ligne que je voudrais changer
voila tout le code que j avais
Private Sub CommandButton2_Click()

Dim Numlignevide As Integer
With Sheets("INDV")

Numlignevide = .Columns(1).Find("").Row 'on trouve la dernière ligne vide du tableau'
.Cells(Numlignevide, 1) = TextBox15.Value
.Cells(Numlignevide, 2) = DTPDate1.Caption
.Cells(Numlignevide, 3) = TextBox13.Value
.Cells(Numlignevide, 4) = TextBox14.Value
.Cells(Numlignevide, 5) = TextBox1.Value (combobox1.value)
.Cells(Numlignevide, 6) = TextBox2.Value
.Cells(Numlignevide, 7) = TextBox3.Value
.Cells(Numlignevide, 8) = TextBox4.Value
.Cells(Numlignevide, 9) = TextBox5.Value
.Cells(Numlignevide, 10) = TextBox6.Value
.Cells(Numlignevide, 11) = TextBox7.Value & " " & TextBox8.Value & " " & TextBox9.Value
.Cells(Numlignevide, 12) = TextBox10.Value

End With

 

[Robert]

Re,

Attends ! Ne me dis pas que tu as mis :

.Cells(Numlignevide, 5) = TextBox1.Value (combobox1.value)

Mais plutôt :

.Cells(Numlignevide, 5) = ComboBox1.value

 

[jmcr]

Merci Robert désolé pour la peur bien oui j' ai mis la deuxième proposition heureusement pour moi c est juste pour montrer par quoi je remplace ma ligne je suis désolé

 

[jmcr]

bonjour le forum enfin je viens de trouvé mon erreur j avais oublié de mettre un point
encore merci