Coller des valeurs à la suite

[mayool]

Bonjour,

A partir d'un fichier Excell; je sélectionne des paramètres et j'exécute une macro qui va chercher des valeurs dans plusieurs autres fichiers excels.
En focntions des paramètres choisis, le nombe de valeur extraite des fichiers excell varient.
Connaissez vous une macro qui puisse me coller mes valeurs les unes en dessous des autres?

 

[Bernard]

Bonjour Mayool

C'est une macro basique mais qui marche.

Sub CopieAlaSuite()
'Copie des résultats en "A1:B1"
Range("A1:B1").Copy
'Collage des données au fur et à mesure à partir de "L5".
Range("L5").Select
If ActiveCell = "" Then
ActiveCell.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Else
If ActiveCell.Offset(1, 0) = "" Then
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End If
End If
Range("A1").Select
End Sub


Salut

Bernard

 

[Mayool]

Merci beaucoup!!