[excel] Textbox dans cellule et incrémentatio

floom26 Messages postés 61 Date d'inscription   Statut Membre Dernière intervention   -  
Farfadet88 Messages postés 6295 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

2 réponses

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
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
0
Farfadet88 Messages postés 6295 Date d'inscription   Statut Membre Dernière intervention   1 370
 
ou encore

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