Re : Fusion BD VBA
Bonsoir,
Merci pour vos réponses !! et désolés de vous répondre si tard, j'ai essayé de travaillé le code, mais ca me fait un peu galérer !
Donc j'en suis là: (j'ai un peu honte, car ce que j'ai fait n'a ni queue ni tete... mais bon..)
Dim x As Long, y As Long, z As Long, w As Long
Windows("Beta.xls").Activate
x = Columns(2).Find("*", , xlValues, , 1, 1, 0).Row 'Première ligne colonne B
y = Columns(2).Find("*", , xlValues, , 1, 2, 0).Row 'Dernière ligne colonne B
Range(x;y).Select
Selection.Copy
Windows("Alpha.xls").Activate
y = Columns(2).Find("*", , xlValues, , 1, 2, 0).Row
+ 1
Range(y).Select
ActiveSheet.Paste
end sub
Donc ca marche pas
Ce que j'aurai aimé, c'est que sur la fueille BETA, ca selectionne de la première ligne, a la dernière ligne "non vide" de la colonne B.
Que cette selection soit copiée
Que sur la Fueille ALPHA, le code cherche la dernière ligne utilisée de la fueille.
Une fois trouvée, ca "colle" sur la ligne d'en dessous .
Donc, n'y connaissant rien, j'ai essayé de bidouiller vos codes, mais ca marche pas...
Auriez vous une idée??
Je vous remercie d'avance.
Titine