recherche #N/A en VBA

Version imprimable

Bonjour à tous,

J'ai un problème avec ma macro sur une recherche de valeur contenant des #N/A.

Pour faire rapide, je souhaite qu'Excel face une recherche sur une plage donnée, et s'il rencontre un #N/A qu'il active le filtre de cette même plage.

J'ai créé le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 Set R = Sheets("extraction").Range("R:R").Find(Error) If Not R Is Nothing Then reponse = MsgBox("Il y a des #N/A dans le tableau d'extraction. Complétez la table avant édition du TCD", vbOKOnly) Selection.AutoFilter Field:=18, Criteria1:="#N/A" Else Sheets("Balance IG").Select Range("E8").Select ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh ActiveWindow.SelectedSheets.PrintOut Copies:=1 End If
Le problème vient qu'il active la boite de dialogue qu'il y ait ou pas de #N/A. J'ai essayé avec la formule Each sauf qu'il m'affiche la boite à chaque #N/A.

Pouvez-vous m'aider ?

Je vous remercie par avance de votre aide.

Bonne journée à tous

Bonjour,

Je ferais comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Cel As Range, Plage As Range
 
With Sheets("extraction")
    Set Plage = .Range("R1:R" & .Range("R" & Rows.Count).End(xlUp).Row)
 
    For Each Cel In Plage
        If Application.WorksheetFunction.IsNA(Cel.Value) = True Then
            MsgBox "Il y a des #N/A dans le tableau d'extraction. Complétez la table avant édition du TCD"
            Plage.AutoFilter Field:=1, Criteria1:="#N/A"
            Exit For
        Else
            '...
            '...
        End If
    Next
End With

Bonjour Fring,

merci pour ton aide. Ton code marche bien... sauf lorsque la condition else est renseignée. Cette dernière devient "prioritaire" dans l'exécution du code alors qu'elle ne devrait s'exécuter que si le If n'est pas valable.

Tu trouveras ci-dessous le code complet que j'ai fait à partir du tien :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim Cel As Range, Plage As Range With Sheets("Extraction") Set Plage = .Range("R1:R" & .Range("R" & Rows.Count).End(xlUp).Row) For Each Cel In Plage If Application.WorksheetFunction.IsNA(Cel.Value) = True Then MsgBox "Il y a des #N/A dans le tableau d'extraction. Complétez la table avant édition du TCD" Plage.AutoFilter Field:=1, Criteria1:="#N/A" Exit For Else Sheets("Balance IG").Select Range("E8").Select ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh ActiveWindow.SelectedSheets.PrintOut Copies:=1 Exit For End If Next End With
Mon souhait est que mon TCD ne soit pas activé ni imprimé s'il y a un #N/A dans ma source. S'il n'y en a pas en revanche, l'action doit se réaliser....

Comment faire ?

Merci pour ton aide

13/04/2012, 07h29
sebastienmarche

Fring Rebonjour,

C'est bon j'ai résolu mon pb par une solution moins académique (en passant par une cellule qui me calcule le nb de #N/A).

En tout cas si tu as une solution directe via le code je suis quand même preneur, histoire de m'instruire un peu !

Bonne journée

Tu pourrais faire comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim Cel As Range, Plage As Range, Verif As Boolean
 
With Sheets("Extraction")
    Set Plage = .Range("R1:R" & .Range("R" & Rows.Count).End(xlUp).Row)
    For Each Cel In Plage
        If Application.WorksheetFunction.IsNA(Cel.Value) = True Then
            MsgBox "Il y a des #N/A dans le tableau d'extraction. Complétez la table avant édition du TCD"
            Plage.AutoFilter Field:=1, Criteria1:="#N/A"
            Verif = True
            Exit For
        End If
    Next
End With
 
If Verif = False Then
    Sheets("Balance IG").Select
    Range("E8").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If

13/04/2012, 09h56
Philippe Tulliez

Bonjour,
Désolé de m'incruster dans cette discussion mais ne serait-il pas intéressant d'abord de faire en sorte qu'il n'y ait pas ce message d'erreur dans la feuille Excel.
Je ne sais pas ce qui provoque ce message d'erreur mais si c'est un VlookUp/RechercheV, remplacer par "Pas trouver" ou par tout autre chaîne de caractères par exemple.
[EDIT] Un petit tuto ici