Discussion :

[nono le golfeur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[nono le golfeur]

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

Any idea ?

A+

[Lou Pitchoun]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gorfael]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ) la partie avant, la variable, la partie après
A+

[dam2p]

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

[nono le golfeur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci, @+

[Lou Pitchoun]

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

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

[nono le golfeur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !