recherche puis colorer cellule

[PHILOUFAL]

Bonjour a tous les pros d exel.J ai besoin de votre aide j ai un userform avec un combobox.Apres avoir selectionner un non dans la combobox effectuer une recherche et colorer en gris les celulles qui ont ce non. fichier joint
merci d avance

 

[Mytå]

Re : recherche puis colorer cellule

Salut le forum

Philoufal, non ou nom

Pour le nom, code dans ton USF

Private Sub CommandButton2_Click()
With ActiveSheet.Range("B8:H12")
    Set c = .Find(ComboBox1.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Interior.ColorIndex = 3
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

Plage et couleur à adapter

Mytå

Merci de bien vouloir donner un retour à ta question.
Nous ne sommes pas des robots...........

 

[PHILOUFAL]

Re : recherche puis colorer cellule

Salut le forum

Philoufal, non ou nom

Pour le nom, code dans ton USF

Private Sub CommandButton2_Click()
With ActiveSheet.Range("B8:H12")
    Set c = .Find(ComboBox1.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Interior.ColorIndex = 3
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

Plage et couleur à adapter

Mytå

Merci de bien vouloir donner un retour à ta question.
Nous ne sommes pas des robots...........

merci c est exatement ca que je voulais.Je suis desole j ai pas pu repondre avant.Encore une fois merci