recherche valeurs dans une plage

[icarus]

Je voudrais que dans une plage spécifique une macro recherche une certaine valeur dans toutes les cellules pour pouvoir mettre en forme les cellules contenant cette valeur.

 

[jeanpierre]

Re : recherche valeurs dans une plage

Je chercher aussi, j'ai perdu mon trousseau de clés...

 

[Staple1600]

Re : recherche valeurs dans une plage

Bonsoir à tous

Ne pas oublier la charte (en tout cas de la lire), svp
Lien supprimé

Néanmoins (en guise de bienvenue)

Sub cherche()
Dim c As Range
Dim r As Range
Set r = Range("A1:A50")
Quoi = InputBox("Quelle est la valeur recherchée?")
For Each c In r
    If c Like Quoi Then
        With c
            .Font.Bold = True
            .BorderAround ColorIndex:=3, Weight:=xlThick
        End With
    End If
Next
End Sub

 

[Spitnolan08]

Re : recherche valeurs dans une plage

Salut les copains,

Je pense qu'ICARUS ne sait pas lire... voir ce fil!...

Et en plus il ne sait pas dire merci...😎

Bonne soirée à vous

 

[jeanpierre]

Re : recherche valeurs dans une plage

Bonsoir Spit,

C'est pour cela.... tout compris toi, mais en plus , je pense qu'il vient sous différents pseudo...

Bonne soirée.

Jean-Pierre

 

[icarus]

Re : recherche valeurs dans une plage

Je vais lire la charte.
Vous n'etes pas très tendre avec les bleus de ce forum. Merci tout de même.

 

[icarus]

Re : recherche valeurs dans une plage

Désoler mais la procédure ne correspond pas à ce que je souhaite
Voila je travail sous Excel 2002 windows xp.

Voila mon dilemme dans une plage ("A1:E50") il faut que toutes les cellule ayant pour valeur "RH" deviennent bleu et que par la même occasion je puisse récupérer le nombre de "RH" dans cette plage.

J’ai écris cette procédure mais je trouve son execution un peu longue

Merci d'avance

Sub RechercheRH()

Dim valeurRH

For Each valeurRH In Range("E6:CQ33")
valeurRH.Select
Select Case valeurRH
Case Is = "RH"
Selection.Interior.ColorIndex = 8
Selection.Font.ColorIndex = 8
Case Is <> "RH"
Selection.Font.ColorIndex = 0
End Select
Next
Range("E6").Select
End Sub