Insertion formule par vba

Bonjour,

J'aimerais après avoir copier mes cellules insérer des formules dans la cells(d,4) et (d,5) mais ca j'ai jamais fait et ca bug...

Comme j'utilise une variable J j'aimerais insérer cette variable dans ma formule pour qu'elle s'adapte automatiquement...

mon code pour ça :


Code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Workbooks("PRICE CHECK - WI.xls").Activate Sheets("TECH").Cells(d, 4).Formula = "=IF(B&d=0,"",SUMIF(ANAGRAFICHE!$B$2:$B$1100,B&d,ANAGRAFICHE!$C$2:$C$1100))"   'et   Workbooks("PRICE CHECK - WI.xls").Activate Sheets("TECH").Cells(d, 4).Formula = "=IF(B&d=0,"",SUMIF(ANAGRAFICHE!$B$2:$B$1100,B&d,ANAGRAFICHE!$C$2:$C$1100))"   Workbooks("PRICE CHECK - WI.xls").Activate Sheets("TECH").Cells(d, 4).Formula = "=IF(B&d=0,"",IF(D&d=C&d,"OK",(D&d-C&d)/D&d))"

---

Merci d'avance !

En fait j'ai compris qu'il faut utiliser FormulaR1C1 mais je ne comprend pas du tout comment fonctionne ce truc...

Any idea ?

A+

Salut,

Code:

---

1 2	Workbooks("PRICE CHECK - WI.xls").Activate Sheets("TECH").Cells(d, 4).Formula = "=IF(B" & d & "=0,"",SUMIF...

---

Ca marchera mieux comme ça. A corriger partout où tu as B&d, D&d et C&d.

Par contre je n'ai pas vu de variable J

Salut nono le golfeur et le forum
FormulaR1C1 : si tu n'as pa l'habitude d'utiliser ce système de notation, c'est pas la peine d'essayer

J'aimerais après avoir copier mes cellules insérer des formules dans la cells(d,4) et (d,5) mais ca j'ai jamais fait et ca bug...

Comme j'utilise une variable J j'aimerais insérer cette variable dans ma formule pour qu'elle s'adapte automatiquement...
????? variable D ou variable J ?!? That is the question !

Code :

Code:

---

1 2	Workbooks("PRICE CHECK - WI.xls").Activate Sheets("TECH").Cells(d, 4).Formula = "=IF(B&d=0,"",SUMIF(ANAGRAFICHE!$B$2:$B$1100,B&d,ANAGRAFICHE!$C$2:$C$1100))"

---

ce que je comprends :
tu veux copier la formule : (en D4 par exemple)
=IF(B4=0,""SumIf((ANAGRAFICHE!$B$2:$B$1100,B4,ANAGRAFICHE!$C$2:$C$1100))

Code:

---

1 2	Sheets("TECH").Cells(d, 4).Formula = "=IF(B" & d & "=0,"""",SUMIF(ANAGRAFICHE!$B$2:$B$1100,B" & d & ",ANAGRAFICHE!$C$2:$C$1100))"

---

ou

Code:

---

1 2	Sheets("TECH").Cells(D, 4).FormulaLocal = "=SI(B" & D & "=0;"""";somme.si(ANAGRAFICHE!$B$2:$B$1100;B" & D & ";ANAGRAFICHE!$C$2:$C$1100))"

---

Formula : Permet d'utiliser les formules habituelles (mais, à priori en anglais)
Formulaloca :l Permet d'utiliser les formules de la langue des options régionnales

Pour que des guillement apparaissent dans une chaîne, il faut les doubler
Pour que tes variables soient exploitées dans une chaîne, il faut concaténer( non, ce n'est pas une insulte :mrgreen: ) la partie avant, la variable, la partie après
A+

Salut Nono, et bonjour à tous,

Est-ce que tu peux faire un copié/collé dans ce forum de la formule qui fonctionne dans ta cellule, et tamp pis si c'est une formuyle en italien, on essaiera de comprendre.

A+
Dam2P

LOL non celle la est en ANglais maintenant !

Ca 'est ma formule que je veux insérer en D & d (d est la variable qui commence à la ligne 14 et descend de 1 en 1):

Code:

---

=IF(B14=0;"";SUMIF(ANAGRAFICHE!$B$2:$B$1100;B14;ANAGRAFICHE!$C$2:$C$1100))

---

et :

Code:

---

=IF(B14=0;"";IF(D14=C14;"OK";(D14-C14)/D14))

---

Merci, @+

Essaie déjà ce qui a été proposé.

Et si ça ne fonctionne pas : donne des explications.

Pour la première formule, ça fonctionne parfait merci !

Pour la deuxième j'ai une erreur au milieu, je pige pas trop pourquoi ...

Ci-dessous ma formule Excel et celle VBA :

Code:

---

=IF(B14=0;"";IF(D14=C14;"OK";(D14-C14)/D14))

---

Code:

---

Sheets("TECH").Cells(d, 5).Formula = "=IF(B" & d & "=0,"""",IF(D"&d&"=C"&d&",""OK"",(D"&d&"-C"&d&")/D"&d&"))"

---

Merci d'avance !

:salut:
Tu y étais presque : il fallait juste séparer les "&" avec des espaces.
essaie ça:

Code:

---

Cells(D, 5).Formula = "=IF(B" & D & "=0,"""",IF(D" & D & "=C" & D & ",""OK"",(D" & D & "-C" & D & ")/D" & D & "))"

---

@+