Discussion :

[sebastienmarche]

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 :

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

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

[fring]

Bonjour,

Je ferais comme ceci :

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

[sebastienmarche]

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 :

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

[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

[fring]

Tu pourrais faire comme ceci

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

[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