Afficher message erreur si valeur introuvable dans tableau VBA

Bonjour à tous,

Je souhaiterais afficher un message d'erreur "N° DP introuvable" dans le cas ou la valeur indiquée dans la cellule C1 de la feuille (ETIQUETTES EXPE) n'est pas présente dans le tableau (A$2:A).

1 macros a été réalisée, elle est liée au bouton (FILTRER DP)

Je souhaiterais associer cette fonctionnalité à la macro "Filtrer_DP_Etiquettes_Expe" qui permet de filtrer les données dans le tableau en fonction de 2 critères

Lors d'un clic sur le bouton FILTRER DP, il faudrait afficher un message d'erreur si la "DP N°24" dans cette exemple n'est pas présente dans la colonne (A$2:A)

Auriez-vous une idée ?

Merci

Fabien

Bonjour,

dans la Sub Filtrer_DP_Etiquettes_Expe(), juste avant la ligne:

For Ligne =.....

insérer

If Application.WorksheetFunction.CountIf(Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row), Range("C1")) = 0 Then
    MsgBox "N° DP introuvable : " & Range("C1")
    Exit Sub
End If

A+

Merci beaucoup !

Serait-il possible de modifier cette macro afin de mettre le texte de la cellule C1 de couleur verte lorsque le bouton "FILTRER DP" est actif ?

en début de macro

Range("C1").Font.Color = RGB(0, 255, 0)

et en fin la même instruction avec RGB(0, 0, 0)

quelques recherche sur le net vous auraient renseigné.

Merci