Copier Formule

[chrisdu73]

Bonjour,
Apres toutes mes recherches sur se forum j’ai pas trouver de solution.

J’essaye de recopier la formule en A2 sur toute la colonne A, sachant que le nombre de lignes peu varier.

En VBA et si possible avec ligne commenté pour une petite explication de façon à me former un peu plus grâce à vous tous.

Avec tout mes remerciements d’avance.

Chris

 

[pierrejean]

Re : Copier Formule

bonjour Chris

    Range("A2").AutoFill Destination:=Range("A2:A" & Range("B65536").End(xlUp).Row), Type:=xlFillDefault

Pour explication : Voir aide sur Autofill

 

[chrisdu73]

Re : Copier Formule

merci pour votre reponse,
encore une fois j'ai appris une chose de plus grace a vous
Chris

 

[GIBI]

Re : Copier Formule

Bonsoir,

Tu peux aussi alimenter directement l'ensemble des cellules :


Sub Copie()

Range("A2:A" & Range("B65536").End(xlUp).Row).FormulaLocal = "=SI(NB.SI(K$2:K$51;B2)=1;""CHE"";""ATR"")"

End Sub

ou comme ceci

Range(Cells(2, 1), Cells(Range("B65536").End(xlUp).Row, 1)).FormulaLocal = "=SI(NB.SI(K$2:K$51;B2)=1;""CHE"";""ATR"")"


Bonsoir

GIBI