Discussion :

[Nicolas1977]

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 :

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

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 :

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

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

[Quentin77170]

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 :

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

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

[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 :

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

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

la formule suivante donne le même résultat

Code :

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

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

soit en VBA

Code :

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

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

et encore plus simple

Code :

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

Cells(i, 6).Formula = "=IF(LEN($D$2),$C$2/$D$2*100,10)"

[Nicolas1977]

Bonjour,

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

Merci beaucoup
Nicolas

[Djohn92]

Pour revenir sur ta formule originale :

Code :

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

"=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

[Philippe Tulliez]

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

Code :

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

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 :

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

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)

[Nicolas1977]

merci a tous,

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

Code :

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

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