Copier dans la derniere cellule vide

[Myst]

Bonjours
Je voudrais copier le contenu de la textbox1 de l'userfom4 dans la dernière cellule vide de la colonne A de la page "Listes" et le combobox1 du même userfom4 a droite de cette cellule et enfin le textbox3 toujours même userform4 encore a droite de la cellule précédente
Textbox1 = dernière cellule vide de la colonne A6 = toujours en colonne A
Combobox1 = a droite de la cellule précédente B6 = toujours en colonne B
Textbox1 = encore a droite de la précédente C6 = toujours en colonne C
les 3 données doivent être toujours alignées sur la dernière ligne vide de la colonne A

Puis copier automatiquement la dernière cellule vide de la colonne A de la page "Liste" vers la dernière cellule vide de la ligne 2 de la page "competences PA" et la dernière cellule vide en colonne B de la page "Liste" vers la dernière cellule vide de la ligne 1 de la page "competences PA"
Si quelqu'un peu m'orienter ,en espérant avoir été explicite
merci

 

[piga25]

Re : Copier dans la derniere cellule vide

Bonjour,

Pour la première question
Mettre le code pour l'userform4

Private Sub CommandButton1_Click()
Dim Dest As Range
Set Dest = Sheets("Listes").Range("A65000").End(xlUp)
Dest.Offset(1, 0) = TextBox1
Dest.Offset(1, 1) = ComboBox1
Dest.Offset(1, 2) = TextBox3
End Sub

 

[Myst]

Re : Copier dans la derniere cellule vide

Bonjour piga25 le forum
La première partie est résolut ,code nickel ,merci
et pour la deuxième pas d'idée ?

 

[piga25]

Re : Copier dans la derniere cellule vide

Re,

S'il s'agit des mêmes valeurs il suffit juste d'ajouter à la fin du code :

Sheets("competences PA").Cells(2, 5) = TextBox1
Sheets("competences PA").Cells(1, 5) = ComboBox1

pour avoir

Private Sub CommandButton1_Click()
Dim Dest As Range
Set Dest = Sheets("Listes").Range("A65000").End(xlUp)
Dest.Offset(1, 0) = TextBox1
Dest.Offset(1, 1) = ComboBox1
Dest.Offset(1, 2) = TextBox3
Sheets("competences PA").Cells(2, 5) = TextBox1
Sheets("competences PA").Cells(1, 5) = ComboBox1
End Sub

 

[Myst]

Re : Copier dans la derniere cellule vide

Re
Oui mais la là sélection est fixe en cellule E2 et E1 et il faudrait prendre les dernières cellules vide des lignes 1 et 2
J'ai essaye avec Cells(ligne, Columns.Count).End(xlToLeft).Select ) mais je n'arrive pas a l’intégrer

 

[piga25]

Re : Copier dans la derniere cellule vide

Re

Mettre ce code

Private Sub CommandButton1_Click()
Dim DestC As Range
Dim Dest As Range

Set DestC = Sheets("competences PA").Range("XFD1").End(xlToLeft)
DestC.Offset(0, 1) = ComboBox1
DestC.Offset(1, 1) = TextBox1

Set Dest = Sheets("Listes").Range("A65000").End(xlUp)
Dest.Offset(1, 0) = TextBox1
Dest.Offset(1, 1) = ComboBox1
Dest.Offset(1, 2) = TextBox3

End Sub

Pour info XFD1 correspond à la dernière colonne de la ligne 1 (à voir pour vous).

 

[Myst]

Re : Copier dans la derniere cellule vide

Bonjour piga25
Nickel ,merci encore pour les solutions
A+