Discussion :

[PeaceMaker]

Bonjour à tous,

Je cherche à tester la présence de la valeur #N/A en colonne H.
Cette valeur #N/A est en fait issue de l'exécution d'une première partie du code (qui applique une formule dans la colonne et colle ensuite en valeur).

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim LookingForNA As Range
ValueNA = "#N/A"
Range("H13").Select
Set LookingForNA = Range(Selection, Selection.End(xlDown)).Find(Value, lookat:=xlWhole)
 
If LookingForNA Is Nothing Then
    Range("B12").Select
    MsgBox ("Tous les comptes ont été affectés")

La suite du code (à partir du IF) correspond au fait que si aucun #N/A ne se trouvent en colonne H, je veux qu'il m'affiche une MsgBox.

Merci de vérifier mon code s'il vous plait, car il ne marche pas (quand il y a bien des #N/A il me sort la MsgBox, car il n'a probablement pas reperé de #N/A)

[gFZT82]

Bonjour,

Tu peux essayer comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Sub Test()
Dim LookingForNA As Range, Cel As Range
    Range("B12").Select
    Set LookingForNA = Range(Range("H13"), Range("H13").End(xlDown))
    On Error Resume Next
    For Each Cel In LookingForNA
        If WorksheetFunction.IsError(Cel) = True Then
            If CVErr(xlErrNA) = Cel Then Exit Sub
        End If
    Next Cel
    MsgBox "Tous les comptes ont été affectés"
End Sub

Cordialement.

[mercatog]

Cette valeur #N/A est en fait issue de l'exécution d'une première partie du code (qui applique une formule dans la colonne et colle ensuite en valeur).

Peut être il faudra dans la formule vérifier le cas de l'erreur et l'éviter.
Par exemple (pour Excel2007) faire la formule suivante:

Code :

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

=SIERREUR(RECHERCHEV(D8;I2:L20;2;FAUX);"")

Utilisation de SIERREUR pour éviter que RECHERCHEV donne #N/A.

Sinon, une autre variante au code

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
Dim Rg As Range
 
On Error Resume Next
Set Rg = Worksheets("Feuil1").Range("E:E").SpecialCells(xlCellTypeConstants, xlErrors)
'ou bien en cas où on a des formules en colonne E
'Set Rg = Worksheets("Feuil1").Range("E:E").SpecialCells(xlCellTypeFormulas, xlErrors)
On Error GoTo 0
 
If Rg Is Nothing Then
    MsgBox "Aucune Erreur"
Else
    'on efface les erreurs
    Rg.ClearContents
    Set Rg=Nothing
End If

[PeaceMaker]

Merci pour vos codes.

Je les ai étudié mais il ne semblait pas nécessairement pertinent dans mon approche, car difficilement intégrable "brut" comme ça dans ma macro.

En fait, j'ai tout simplement suivi ton conseil Mercatog, en intégrant un SIERREUR dans ma formule de départ, avec comme renvoie "Anomalie" si #N/A.

Comme ça, le problème est réglé et la recherche se fait véritablement sur une valeur (le mot "Anomalie").

Merci de votre aide à vous deux!