Copier Informations ..

Bonjour à tous,

Je suis actuellement en stage et je dois absolument réaliser une tâche. J'ai grandement besoin de vous. Je vous explique:

J'ai un fichier excel dont une feuille : "Enseigne".
J'ai un Useform : "CreationEnseigne" ou j'ai 4 textbox qu'il faut lorsque j'appui sur le bouton Valider, se copier dans la 1ere cellule vide de la premiere colonne et donc les 3 autres textbox se copierai sur la ligne active à partir de la celulle vide de la 1ere colonne !

J'ai besoin de votre aide les amis ! ..

Merci beaucoup d'avance

A adapter suivant le nom de tes 'Textbox':

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit   Private Sub CopierColler() Dim intLigne As Integer   With Sheets("Enseigne") intLigne = .[A1].End(xlDown).Offset(1, 0).Row For i = 1 To 4: .Cells(intLigne, i) = CreationEnseigne.Controls("Textbox" & i).Text: Next i End With   End Sub

---

Fait une boucle qui récupère la 1ère cellule vide de la première colonne:

Code:

---

1 2 3

while cells(premcellvide,1)<>"" premcellvide=premcellvide+1 Wend

---

Ensuite t'as plus qu'a mettre toutes tes textsbox sur cette ligne:

Code:

---

1 2 3

cells(premcellvide,1)=creationenseigne.txtbox1.Text cells(premcellvide,2)=creationenseigne.txtbox2.Text ...

---