Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

RESOLUS ENCORE MERCI

  • Initiateur de la discussion Initiateur de la discussion jmcr
  • 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 !

jmcr

XLDnaute Occasionnel
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
 
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
 
- 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

H
Réponses
3
Affichages
1 K
HugoB99
H
H
Réponses
19
Affichages
7 K
S
Réponses
5
Affichages
2 K
Sa Mariam
S
Réponses
5
Affichages
615
V
Réponses
2
Affichages
2 K
VOILLOT
V
N
Réponses
23
Affichages
5 K
A
Réponses
2
Affichages
1 K
A
A
Réponses
1
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…