formulaire dans une cellule excel

Bonjour à tous

je veux utiliser la condition if dans une cellule excel
voici mon code:

Citation:

---

Cells(intRow, 1).FormulaR1C1 = "=IF(RC[" & departurecolumn & "]-RC[" & arrivalcolumn & "]<0;"";RC[" & departurecolumn & "]-RC[" & arrivalcolumn & "])"

---

cela m'affiche l'erreur suivante:

Citation:

---

error '1004'
Application-defined or object-defined

---

Pouvez vous m'aider SVP :cry:

affiche la formule histoire de voir si elle semble correcte :

Code:

---

1 2 3

Debug.print "=IF(RC[" & departurecolumn & "]-RC[" & arrivalcolumn & "]<0;"";RC[" & departurecolumn & "]-RC[" & arrivalcolumn & "])"   .

---

fait ensuite un copier coller depuis ta fenêtre execution et envoi nous le résultat..

Il te manque des guillemets

Code:

---

1 2 3

Cells(intRow, 1).FormulaR1C1 = "=IF(RC[" & departurecolumn & "]-RC[" _ & arrivalcolumn & "]<0;" & """""" & ";RC[" & departurecolumn & "]-RC[" _ & arrivalcolumn & "])"

---

Mais bbil te donne le moyen de le vérifier

verifie aussi la valeur de intRow (1..65535) ;)

j'ai essayé le code que m'a passé ouskel'n'or à savoir

Citation:

---

Cells(intRow, 1).FormulaR1C1 = "=IF(RC[" & departurecolumn & "]-RC[" & arrivalcolumn & "]<0;" & """""" & ";RC[" & departurecolumn & "]-RC[" & arrivalcolumn & "])"

---

:cry:

et cela m'affiche le meme message d'erreur qu'avant

j'ai ensuite fait ceci

Citation:

---

Debug.Print "=IF(RC[" & departurecolumn & "]-RC[" & arrivalcolumn & "]<0;" & """""" & ";RC[" & departurecolumn & "]-RC[" & arrivalcolumn & "])"

---

et il n'y a aucun message d'erreur qui s'affiche.

J'aimerais également savoir à quoi sert concretement "Debug.Print".

Merci

Pour le debug.print... je te l'ai écrit plus haut...

Citation:

---

Envoyé par bbil

...
fait ensuite un copier coller depuis ta fenêtre execution et envoi nous le résultat..

---

tiens rajoute aussi

Code:

---

1 2	debug.print "intRow = " & intRow

---

afin d'afficher en plus le numero de ligne traité dans ta fenêtre exécution .;)

J'ai ajouté la ligne suivante

Citation:

---

debug.print "intRow = " & intRow

---

rien ne s'affiche:?

Citation:

---

Envoyé par amel95140

J'ai ajouté la ligne suivante



rien ne s'affiche:?

---

tu la mis ou la ligne ... avant les lignes qui provoque l'erreur , j'espére...
l'affichage se fait dans le fenêtre exécution ( CTRL+G , depuis l'éditeur VBE !)

effectivement lorque je fais ctrl + G cela m'affiche

Citation:

---

=IF(RC[5]-RC[8]<0;"";RC[5]-RC[8])

---

pour le code suivant

Citation:

---

Debug.Print "=IF(RC[" & departurecolumn & "]-RC[" & arrivalcolumn & "]<0;" & """""" & ";RC[" & departurecolumn & "]-RC[" & arrivalcolumn & "])"

---

L'affichage me parait juste mais je ne comprend pas pourquoi cela m'affiche toujours la même erreur

Parce qu'en VBA ce ne sont pas des ; (points-virgules) mais des , (vigules) qui servent de séparateurs :mur: Et pourtant autant bbil que moi-même le savons ! :cry:

Merci beaucoup pour votre aide effectivement maintenant ca marche :D :mouarf: