Copier Formule

chrisdu73 · 21 Juillet 2008

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 · 21 Juillet 2008

Re : Copier Formule

bonjour Chris

Code:

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

Pour explication : Voir aide sur Autofill

chrisdu73 · 21 Juillet 2008

Re : Copier Formule

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

GIBI · 21 Juillet 2008

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

Copier Formule

chrisdu73

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

chrisdu73

XLDnaute Occasionnel

GIBI

XLDnaute Impliqué

Discussions similaires

Copier Formule

chrisdu73

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

chrisdu73

XLDnaute Occasionnel

GIBI

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency