vba écriture d'un formule IF dans une cellule avec test <>""

Version imprimable

08/05/2015, 16h35
Nicolas1977

vba écriture d'un formule IF dans une cellule avec test <>""
Bonjour à tous,

je viens vers vous car je bloque sur l'écriture d'une formule dans une cellule par vba:

je cherche a ce que la macro écrive la formule suivante dans une cellule =si(D5<>"";C5/D5*100;"")

j'arrive a faire le test sur une cellule différente de 10
Code:

1 2 Cells(i, 5).Formula = "=IF(" & Cells(i, 4).Address & " <> " & "10" & "," & Cells(i, 3).Address & "/" & Cells(i, 4).Address & "*100" & ",10)"
mais lorsque je cherche a faire le test sur cellule <>""
Code:

1 2 Cells(i, 5).Formula = "=IF(" & Cells(i, 4).Address & " <> " & """" & "," & Cells(i, 3).Address & "/" & Cells(i, 4).Address & "*100" & "," & """" & ")"
ca plante avec une erreur d'exécution '1004' sur cette ligne, comment je peux écrire cellule vide sans écrire "" ?
Merci
08/05/2015, 17h10
Quentin77170

Ceci devrait aller

Bonjour,

Vous pouvez inclure directement les virgules et les "" dans le code sans passer par des &

Par exemple & "<>" & """"" & "," & devient simplement & "<>""""," &. De plus """" signifie : simplement un seul " entre guillemets pour lui. donc """" -> " dans Excel

Code:

Cells(i, 5).Formula = "=IF(" & Cells(i, 4).Address & "<>""""," & Cells(i, 3).Address & "/" & Cells(i, 4).Address & "*100,"""")"

Je ne sais pas si j'ai été clair :)

Cordialement,

Quentin
08/05/2015, 17h22
Philippe Tulliez

Bonjour,
Une autre solution pour éviter ces suites de guillemets indigestes, c'est le test sur la longueur des caractères.
A la place de

Code:

=SI($D$2)<>"";$C$2/$D$2*100;10)

la formule suivante donne le même résultat

Code:

=SI(NBCAR($D$2)<>0;$C$2/$D$2*100;10)

soit en VBA

Code:

Cells(i, 5).Formula = "=IF(LEN($D$2)<>0,$C$2/$D$2*100,10)"

et encore plus simple

Code:

Cells(i, 6).Formula = "=IF(LEN($D$2),$C$2/$D$2*100,10)"
08/05/2015, 17h26
Nicolas1977

ça marche

Bonjour,

ca marche impeccable, et en plus j ai appris quelque chose.

Merci beaucoup
Nicolas
08/05/2015, 17h32
Djohn92

Pour revenir sur ta formule originale :

Code:

"=IF(" & Cells(i, 4).Address & " <> " & """""" & "," & Cells(i, 3).Address & "/" & Cells(i, 4).Address & "*100" & "," & """""" & ")"

Tu as oublié que

"" Donne "

mais que "" est du texte, le texte s'ouvre avec "

Donc pour écrire
<>""
Il faut faire
"<>"""""
"<>"" "" "
ouverture ; Premier "; second " ; fermeture
08/05/2015, 17h36
Philippe Tulliez

Bonjour,
J'avais oublié que c'était inclus dans une boucle

Code:

Cells(i, 5).Formula = "=IF(LEN(" & Cells(i, 4).Address & ")<>0," & Cells(i, 3).Address & "/" & Cells(i, 4).Address & "*100,10)"

Ceci dit, il est préférable et plus rapide d'inclure la formule directement dans la plage complète
Exemple

Code:

Range("E2:E100").Formula = "=IF(LEN($D$2),$C$2/$D$2*100,10)"

A lire ces billets : Ecrire une formule dans Excel à l'aide d'une procédure VBA et la suite Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)
08/05/2015, 18h10
Nicolas1977

yes
merci a tous,

en reprenant le test de longueur et les doubles guillemets j arrive a ca :
Code:

1 2 Cells(i, 5).Formula = "=IF(LEN(" & Cells(i, 4).Address & ")," & Cells(i, 3).Address & "/" & Cells(i, 4).Address & "*100,"""")"
et ca marche :)

@Philippe : effectivement c est inclu dans une boucle, je viens écrire dans un tableau avec nombre de ligne variable, et pour chaque ligne en fonction du nom inscrit dans la colonne B j inscrit la quantité associée dans la colonne F et ecrit des formules dans d'autre colonnes. je vais conserver ma variable i qui me déplace de ligne en ligne même si c est moins rapide c'est plus lisible pour moi.

merci
Nicolas