Bonjour Céline, le Forum
Tout d'abord un petit conseil. Ta question est assez explicite et tu n'avais pas besoin d'envoyer un fichier joint (non zippé et pratiquement vide)
A ta question maintenant...
Si tu veux juste écrire dans la cellule A3 et A4 sans incrémenter le décalage
plus bas cette petite macro suffit :
Sub CelineCopie1()
Place = 3
If Sheets("Feuil2").Range("A3").Value <> "" Then Place = 4
Sheets("Feuil1").Range("A1").Copy Sheets("Feuil2").Range("A" & Place)
End Sub
Par contre, si tu veux incrémenter vers le bas A3 puis A4 puis A5 etc...
alors utilise cette macro :
Sub CelineCopie2()
Dim Dernier As Range
Dim Place As Long
Set Dernier = Sheets("Feuil2").Cells(65536, 1).End(xlUp)
Place = Application.WorksheetFunction.Max(3, Dernier.Row + 1)
Sheets("Feuil1").Range("A1").Copy Sheets("Feuil2").Range("A" & Place)
End Sub
Petite explication :
Set Dernier... Recherche de la dernière cellule utilisée dans la colonne A
en partant du bas.
Max() Si ta colonne A est vide de A3 à A65536 la valeur retournée
sera inférieure à 3.
Cette fonction (maximum) donnera au minimum 3.
J'espère t'avoir correctement répondu.
Bonne journée
PhiBou
