nouvelle

[Céline]

je suis nouvelle et je voudrais
copier avec une macro de la feuil1 cel..A1
dans la feuil2 cel.. a3 sans y allé et si la celulle
est prise décaller vers le bas

merci à tous

 

[PhiBou]

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