Discussion :

[l.flipper]

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

Code formule :

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

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

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

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

Merci

[Gado2600]

Bonjour,

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

Code :

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

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

[l.flipper]

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

Je ne comprends pas les formular1c1.

[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" ?

[l.flipper]

Incompatibilité de type

Code :

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

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

[l.flipper]

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"

[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

[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

[Gado2600]

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

Code :

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

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

[l.flipper]

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

Code :

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

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

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

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

[TOFatJOB]

Bonjour,

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

=if ... concatène, sinon ...)

[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

[l.flipper]

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.