saisie et transpo ligne + 1

[gilles]

bonsoir à tous

Comment serait t-il possible de saisir des données dans différent endroit d'un feuille et de les ranger en ligne dans un autre classeur en cumulant les lignes les unes derriere les autres à chaque utilisation de la feuille.



Merci

 

[schmail]

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

 

[Mytå]

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

 

[Mytå]

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

 

[jacquesderyes]

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

 

[Mytå]

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+