Microsoft 365 Probleme pour étendre une formule en vba

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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
 
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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour