Problème avec chr(35) #

Bonjour,

J'ai un programme qui parcours une colonne de ma feuille pour récolter les valeurs à des fins de statistiques!
Cette colonne est le fruit d'un résultat de conditions Si(etc...) et parfois la condition n'est pas remplie et j'ai un #N/A (ce qui n'est pas un problème à ce moment).
Le problème apparaît lorsque je lance ma macro Stat

J'ai un message d'erreur d'exécution 13 " incompatibilité de type" (ligne 3 à 6), tant qu'il n'y pas de #n/a c'est OK, mais dès qu'il y a un #N/A ça bug, j'en déduis un problème de caractère "#"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

nbLigne = nbLigneBudget For i = 2 To nbLigne If Cells(i, 35).Value Like "#N/A" Then ' MsgBox "OK" ' salaireOK = salaireOK + 1 End If   If Cells(i, 35).Value = 0 Then salaireOK = salaireOK + 1 End If   If Cells(i, 35).Value = 1 Then salaireFaux = salaireFaux + 1 End If   Next

---

J'ai essayé toute sorte de caractère échappatoire et dans tous les sens: "" ou ' ou \ / mais sans succès!
Je ne veux pas toucher non plus la condition car à ce niveau, je veux rester le plus standard!

Je précise que ma macro n'est pas terminée, je sais qu'elle ne compte pas juste, je veux pour l'instant bypasser le problème du #n/a

Si vous avez quelques idées je suis prenneur ;-)

Merci et bonne fin de semaine à vous!

Bonjour,
cette partie à corriger

Code:

---

1 2 3 4

If Cells(i, 35).Value Like "#N/A" Then ' MsgBox "OK" ' salaireOK = salaireOK + 1 End If

---

par

Code:

---

1 2 3

If IsError(Cells(i, 35)) Then 'ce que tu veux End If

---

enfin, vu de loin !!

Bonjour,

voir du côté de la propriété Text ou encore de la fonction IsError …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Code:

---

1 2 3 4

If Cells(i, 35).text Like "#N/A" Then ' MsgBox "OK" ' salaireOK = salaireOK + 1 End If

---

Bonsoir,

Un grand merci pour ces réponses déjà!
Je vais tester cela ce vendredi et je vous tiens au courant!

Je pense m'orienter vers la solution .text. et si je comprends ce que je trouve sur le net:
.text = ce qui est affiché dans la cellule
.value = ce qui est affiché, mais prends en compte le format de la cellule, date, nombre etc... du coup problème!!

J'ai vu un .value2 aussi??? identique à value mais indépendant du type (string, date etc...)


Je garde aussi en poche isError

Vive le 1er mai :mrgreen:

Re-bonjour,

C'est OK, cela fonctionne parfaitement avec:

Code:

---

1 2 3

If Cells(i, 35).text Like "#N/A" Then salaireNA = salaireNA + 1 End If

---

et merci pour vos suggestions.

A bientôt.