colorier cellule aprés une recherche

Le
Le Nordiste
Bonsoir,


Je désire rechercher les cellules contenant un critére donné,
marquer -couleur ou autre- la cellule trouvée,
et passer au critére suivant.

j'ai dejà ça qui tourne :

For Each Cellule In Range("C2:C710")

With Cellule.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Critere = Cellule.Value
Columns("A:A").Select
Selection.Find(What:=Critere, After:=ActiveCell, LookIn:=xlFormulas, _=

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate


Next Cellule

mais comment détecter quand on a trouvé ?

Le Nordiste
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5185151
Bonjour,


Sub cherche_plusieurs()
[A:C].Interior.ColorIndex = xlNone
nom = InputBox("Nom cherché?")
If nom = "" Then Exit Sub
Set c = [A:A].Find(nom, , , xlWhole)
If Not c Is Nothing Then
premier = c.Address
Do
c.Resize(, 3).Interior.ColorIndex = 4
Set c = [A:A].FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End Sub

http://boisgontierjacques.free.fr/pages_site/cellules.htm#RechercherFind

JB


On 12 mar, 16:43, Le Nordiste wrote:
Bonsoir,

Je désire rechercher les cellules contenant un critére donné,
marquer -couleur ou autre- la cellule trouvée,
et passer au critére suivant.

j'ai dejà ça qui tourne :

For Each Cellule In Range("C2:C710")

    With Cellule.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
Critere = Cellule.Value
Columns("A:A").Select
Selection.Find(What:=Critere, After:¬tiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNe xt, _
    MatchCase:úlse, SearchFormat:úlse).Activate

Next Cellule

mais comment détecter quand on a trouvé ?

Le Nordiste


Publicité
Poster une réponse
Anonyme