Select Case => sélectionner une colonne

Bonjour à tous,

J'ai actuellement un léger soucis dans mon code :

Private Sub Workbook_Open()

Select Case Range("H6").Value

Case Is = "NC"

MsgBox "Il y a des NC, voulez-vous les traiter ?", vbYesNo + vbCritical, "CONFORMITE MACHINE"

End Select

End Sub

Je veux simplement changer le code de façon qu'au lieu que ce soit une simple cellule H6, ce soit la feuille entière ou une selection du type B3:X95

(NB:C'est mon premier code)

Merci pour votre aide

Bonsoir,

Inspire-toi du code suivant pour ce faire :

Private Sub Workbook_Open()
    If WorksheetFunction.CountIf(Range("PLAGE"), "NC") > 0 Then
        MsgBox "Il y a des NC"
    End If
End Sub

Bonjour,

ça marche parfaitement. merci Raja.

Bon courage à tous