Microsoft 365 Probleme pour étendre une formule en vba

marievirlouvet6

XLDnaute Nouveau
Bonjour,

J'ai un problème lors l'étendu du ma formule en vba.

Le code m'a l'air bon.
VB:
DernLigne = Range("A" & Rows.Count).End(xlUp).Row

Range("IB7").FormulaLocal = "=1-((IA7-AG7)/(AD7-AG7))"
Range("IB7").AutoFill Destination:=Range("IB7:IB" & DernLigne)

Seulement lors de l'exécution, la première ligne est correcte mais les autres sont à copier coller de la première et ne prennent pas les valeurs correctes.

Exemple de ce que j'ai après exécution:

exemple 1.PNG


Exemple de ce que je devrais avoir après exécution :
exemple 2.PNG



Merci pour vos réponses.
 

M12

XLDnaute Accro
Bonjour,
Teste ceci
VB:
Dim f$
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
f = "=1-((IA7-AG7)/(AD7-AG7))"
Range("IB7").FormulaLocal = f
Range("IB7").AutoFill Destination:=Range("IB7:IB" & DernLigne), Type:=xlFillDefault
 

vgendron

XLDnaute Barbatruc
en retour ta macro corrigée
VB:
Sub EtendreFormule()

Dim DernLigne As Long



DernLigne = Range("A" & Rows.Count).End(xlUp).Row

Range("F1").FormulaLocal = "=(((A1-B1)-C1)*1.2+D1)"
Range("F1").AutoFill Destination:=Range("F1:F" & DernLigne)

End Sub
en vba, les virgules deviennent des points
 

Dranreb

XLDnaute Barbatruc
Bonsoir.
En notation R1C1, "R" signifie Row et "C" Column.
S'il est suivi d'un numéro, c'est la référence absolue vers ce numéro de ligne ou de colonne.
S'il est est suivi d'un nombre entre crochets droits, c'est la référence relative vers la ligne ou colonne s'écartant de ce nombre de celle portant la formule.
S'il n'est suivi ni de l'un ni de l'autre c'est la référence relative à la ligne ou colonne portant la formule. [0] ne se précise pas, en somme.
 

Discussions similaires

Statistiques des forums

Discussions
315 093
Messages
2 116 120
Membres
112 666
dernier inscrit
Coco0505