[excel] Textbox dans cellule et incrémentatio

Question

Bonjour,

Merci à vous tous pour les réponses parfaites à mes précédentes interventions.

Je vous explique ici ma requête.

J'ai un userform contenant deux textbox et un bouton.

Je souhaite que lorsque je clique sur le bouton, les contenu des deux textbox soit envoyé dans deux cellules (qui seront toujours sur la même ligne) d'une feuille : exemple : texbox1 vers C1 et textbox2 vers C2.

Dans cette feuille de destination, il y a déjà des lignes de saisies, je voudrais donc également que automatiquement le contenu de ces textbox soit ajouter à la suite des lignes déjà remplies.

Donc si C1 n'est pas vide voir D1, si D1 n'est pas vide voir E1, si E1 est vide alors on renseigne grâce à textbox1 et E2 grâce à textbox2.

J'espère avoir été assez clair... XD

Merci par avance de votre attention à mon problème.

gbinforme · Answer

bonjour

Ceci devrait répondre à ton attente :
Dim col As Integer
col = Range("1:1").SpecialCells(xlCellTypeLastCell).Column + 1
Cells(1, col).Value = TextBox1.Value
Cells(2, col).Value = TextBox2.Value

Farfadet88 · Answer

ou encore

Range("IV1").End(xlToLeft).Offset(0, 1) = textbox1.value
Range("IV1").End(xlToLeft).Offset(0, 1) = Textbox2.value

[excel] Textbox dans cellule et incrémentatio

2 réponses

Votre réponse

Discussions similaires

Newsletters