Discussion :

[letal]

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 :

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

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!

[casefayere]

Bonjour,
cette partie à corriger

Code :

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

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

par

Code :

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

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

enfin, vu de loin !!

[Marc-L]

Bonjour,

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

__________________________________________________________________________________________

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

[Invité]

Code :

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

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

[letal]

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

[letal]

Re-bonjour,

C'est OK, cela fonctionne parfaitement avec:

Code :

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

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.