Copier dans la derniere cellule vide

Myst · 27 Mars 2015

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 · 27 Mars 2015

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 · 27 Mars 2015

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 · 27 Mars 2015

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

Code:

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 · 27 Mars 2015

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 · 27 Mars 2015

Re : Copier dans la derniere cellule vide

Re

Mettre ce code

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 · 28 Mars 2015

Re : Copier dans la derniere cellule vide

Bonjour piga25
Nickel ,merci encore pour les solutions
A+

Copier dans la derniere cellule vide

Myst

XLDnaute Occasionnel

Pièces jointes

piga25

XLDnaute Barbatruc

Myst

XLDnaute Occasionnel

piga25

XLDnaute Barbatruc

Myst

XLDnaute Occasionnel

piga25

XLDnaute Barbatruc

Myst

XLDnaute Occasionnel

Discussions similaires