coller une formule dans une colonne de cellules non vides

[MOMMO]

Une formule est située dans le cellule e6.
J'aimerais la copier dans les cellules non vides de la colonne C, à partir de la cellule c3.
Cette macro ne semble pas fonctionner. Comment la réparer?

Dim Fin As Integer
Range("e6").Select ' selectionne la cellule e6 comme cellule de depart
Fin = Range("c1").End(xlDown).Row 'Definie jusqu'où les cellules sont remplies dans le colonnes C
Range("e6").Copy ' Cellule à copier
Range("c3:c" & Fin).Select 'selection de la range de cellule où copier
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'copie la formule

 

[Staple1600]

Re : coller une formule dans une colonne de cellules non vides

Bonsoir

Et comme ca?

sub test()
Dim Fin As Long
Fin = Range("c65536").End(xlUp).Row
Range("e6").Copy
Range("c3:c" & Fin).PasteSpecial xlPasteFormulas
End sub

 

[MOMMO]

Re : coller une formule dans une colonne de cellules non vides

À la fin de l'exécution, l'étendue de destination demeure délimitée et colorée en bleu et la cellule e6 de départ reste avec un contour pointillé.
Quoi écrire pour que celà disparaisse et que mon curseur se positionne dans la dernière cellule du bas de l'étendue de destination?

Merci JM

 

[Staple1600]

Re : coller une formule dans une colonne de cellules non vides

Re



Rajoute

Application.CutCopyMode = xlCopy
Range("C" & Fin).Select
'avant
End Sub

 

[MOMMO]

Re : coller une formule dans une colonne de cellules non vides

Merci JM,

Je peux enfin copier une formule dans une collonne de données qui peut s'allonger vers le bas entre chaque exécution de la macro.

Merci,
Mommo