saisie et transpo ligne + 1

Pas de réponse mais je guette l'artiste qui la donnera

Bonsoir le forum

Avec encore une macro VBA qui copier suivant l'ordre des cellules selectionnées


Sub copier_suite()
Dim position As Byte, ligne As Double
position = 1
ligne = Sheets("Feuil3").Range("a65535").End(xlUp).Row
For Each valeur In Selection
Sheets("Feuil3").Cells(ligne + 1, position) = valeur
position = position + 1
Next
End Sub

Re bonsoir le forum

Pour copier vers un autre classeur

Ici du classeur1 les cellules selectionées
vers le classeur abcdef1999 feuille3

Sub copier_suite()
Dim position As Byte, ligne As Double
Workbooks.Open Filename:="C:\abcdef1999.xls"
position = 1
Windows("abcdef1999.xls").Activate
ligne = Sheets("Feuil3").Range("a65535").End(xlUp).Row
Windows("Classeur1.xls").Activate
For Each valeur In Selection
Windows("abcdef1999.xls").Activate
Sheets("Feuil3").Cells(ligne + 1, position) = valeur
position = position + 1
Windows("Classeur1.xls").Activate
Next
End Sub

Bonsoir à toutes et à tous
Bonsoir Gilles, Schmail et Mytä


T'as vu schmail !!!!
Tu l'as trouvé l'artiste..Dommage que tu n'aies rien parié...!
Bravo à Mytä et amitiés

Bon WE

Jacques de ryes

Re le forum

Merci jacques

Pour un gars qui ne connaissait rien au VBA voila 6 mois je suis comme vous tous j'apprend sur le forum.

Faut dire que l'enregistreur de macro quelque fois mais tres utile.

Bon finit les fleurs sinon c'est le pot que je vais recevoir.

A+