Insérer des formules en vba

Version imprimable

17/06/2021, 16h11
l.flipper

Insérer des formules en vba

Bonjour, Je voudrais insérer cette formule grâce à VBA

Code:

=SI(V722-W722<>0;V722-W722 & "-" & V722+W722;"")

Colonne V, j'ai une valeur (3 par exemple)
Colonne W, j'ai une tolérance (+/- 0.2 par exemple)
Colonne X, je veux 2.8 - 3.2
722 est la variable Ligne

J'ai une erreur à cause du tiret entre les 2 valeurs, comment contourner ce problème ?

Code:

Sheets(ActiveSheet.Name).Cells(ligne, 24).Formula = "=if(V" & ligne & "-W" & ligne & "<>0,V" & ligne & "-W" & ligne & " - " & "V" & ligne & "+W" & ligne & ","""")"

Merci
17/06/2021, 16h46
Gado2600

Bonjour,

Pour ton problème de tirets, je crois que c'est comme ça :

Code:

"=if(V" & ligne & "-W" & ligne & "<>0,V" & ligne & "-W" & ligne & "" - "" & "V" & ligne & "+W" & ligne & ","""")"

Par contre, d'un point de vue personnel, passe par du formular1c1 pour 2 raisons :
1 - Pas de problèmes de compatibilité entre le français et l'anglais
2 - C'est le format utilisé par l'enregistreur de macro Excel (donc facilement récupérable)

Cordialement,
17/06/2021, 16h55
l.flipper

Bonjour, toujours une erreur malgré les "" - "".

Je ne comprends pas les formular1c1.
17/06/2021, 16h58
Gado2600

Tu peux donner le code erreur et la description, stp ?

ça fonctionne chez moi.

Quand tu dis "Colonne X, je veux 2.8 - 3.2", tu veux voir afficher "2.8 - 3.2" ou le résultat de "2.8 - 3.2" ?
17/06/2021, 17h01
l.flipper

Citation:

Incompatibilité de type

Code:

Sheets(ActiveSheet.Name).Cells(ligne, 24).Formula = "=if(V" & ligne & "-W" & ligne & "<>0,V" & ligne & "-W" & ligne & "" - "" & "V" & ligne & "+W" & ligne & ","""")"
17/06/2021, 17h01
l.flipper

Citation:

Envoyé par Gado2600

Tu peux donner le code erreur et la description, stp ?

ça fonctionne chez moi.

Quand tu dis "Colonne X, je veux 2.8 - 3.2", tu veux voir afficher "2.8 - 3.2" ou le résultat de "2.8 - 3.2" ?

Je veux voir afficher "2.8 - 3.2"
17/06/2021, 17h07
Gado2600

Ok. La formule n'est pas la même alors.

En tout cas, en copiant ton dernier message, j'ai le même message d'erreur. Incompréhensible xd
17/06/2021, 17h14
Jean-Philippe André

Salut,

plutôt que de chercher à tâtons, je te suggère de passer par un string, et de faire un debug.print plutôt que de l'affecter tout de suite en formula, ca se verra plus facilement ;)
17/06/2021, 17h14
Gado2600

En gros, il te faut cette formule pour réussir à afficher ton texte :

Code:

=SI(V2-W2<>0;CONCATENER(V1-W1;" - ";V1+W1);"")
27/08/2021, 13h07
l.flipper

Citation:

Envoyé par Gado2600

En gros, il te faut cette formule pour réussir à afficher ton texte :

Code:

=SI(V2-W2<>0;CONCATENER(V1-W1;" - ";V1+W1);"")

Bonjour,
Merci je n'avais pas vu cette réponse et avais mis le projet de côté.
Je suis toujours perdue, je n'arrive pas à écrire la formule, je me perds dans les guillemets et les virgules

Code:

Cells(ligne, 24).Formula = "=CONCATENATE(=if(V" & ligne & "-W" & ligne & "<>0,V" & ligne & "-W" & ligne,""-"",& "V" & ligne & "+W" & ligne & ","""")")"
27/08/2021, 13h51
TOFatJOB

Bonjour,

si la condition est vérifiée, alors tu concatènes

=if ... concatène, sinon ...)
27/08/2021, 14h37
Jean-Philippe André

Salut,
il faut surtout n'avoir qu'un seul = dans la formule, sauf si tu effectues une comparaison d'égalité dedans :)

Le plus pertinent dans ton cas de figure ca reste d'utiliser l'enregistreur de macros.

Tu y effectues ta formule de base, et tu adaptes ensuite ton code si nécessaire ;)
07/09/2021, 16h06
l.flipper

Citation:

Envoyé par Jean-Philippe André

Salut,
il faut surtout n'avoir qu'un seul = dans la formule, sauf si tu effectues une comparaison d'égalité dedans :)

Le plus pertinent dans ton cas de figure ca reste d'utiliser l'enregistreur de macros.

Tu y effectues ta formule de base, et tu adaptes ensuite ton code si nécessaire ;)

Bonjour, c'est ce que j'ai fini par faire, je ne m'en sortais pas sinon.