Discussion :

[amel95140]

Bonjour à tous

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

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

cela m'affiche l'erreur suivante:

error '1004'
Application-defined or object-defined

Pouvez vous m'aider SVP

[SfJ5Rpw8]

affiche la formule histoire de voir si elle semble correcte :

Code :

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

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..

[ouskel'n'or]

Il te manque des guillemets

Code :

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

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

[SfJ5Rpw8]

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

[SfJ5Rpw8]

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

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

tiens rajoute aussi

Code :

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

1
2
 
debug.print "intRow = " & intRow

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

[amel95140]

J'ai ajouté la ligne suivante

debug.print "intRow = " & intRow

rien ne s'affiche

[SfJ5Rpw8]

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 !)

[amel95140]

effectivement lorque je fais ctrl + G cela m'affiche

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

pour le code suivant

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

[amel95140]

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

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

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

j'ai ensuite fait ceci

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