Tester la présence d'une expression dans une feuille excel.

Version imprimable

21/01/2019, 10h37
valery.petit

Tester la présence d'une expression dans une feuille excel.

Bonjour,

J'aimerai teste la présence d'une expression dans l'intégralité d'une feuille excel.

j'ai plusieurs tableau dans cette feuille et pas forcément de point de repère.
du coup l'utilisation d'une boucle est à proscrire je pense.
De plus il fraudais respecter la case...donc si je recherche Test, il ne faut pas que la macro s'arrête sur Test2

je me disais que de faire une recherche dans la feuille serait mieux.
le top serai de renvoyer les valeur 0 ou 1 si la valeur est présente.

à terme je colorerai le texte d'origine en vers ou rouge si la correspondance a été trouvée dans le tableau.

merci beaucoup pour votre aide.

Valery
21/01/2019, 10h43
MarcelG

Bonjour et bienvenu sur le Forum,

Pour ton besoin, tu peux utiliser en l'adaptant le code retourné sur l'aide Microsoft quant à la méthode Find.
21/01/2019, 10h56
halaster08

Citation:

Envoyé par valery.petit

J'aimerai teste la présence d'une expression dans l'intégralité d'une feuille excel.

à terme je colorerai le texte d'origine en vers ou rouge si la correspondance a été trouvée dans le tableau.

Bonjour,

Une proposition sans VBA, en formule donc, à mettre dans une MFC pour gérer automatiquement la couleur:
=NB.SI(Feuil1!A:Z;"test")>0

Bonjour, Merci à vous deux pour vos réponse.

halaster08 : je préfère rester en VBA d'autant plus que je ne connais pas la taille de mon tableau d'origine qui change d'un projet à l'autre.

MarcelG : effectivement ça semble être la bonne solution.

J'ai testé ceci, mais ai un défaut "Boucle sans Do"......

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub Valider_Tags()
 
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'On Boucle Chaque tags pour valider sa présence dans le catalogue.
Nb_ligne_Valid = Range("F65536").End(xlUp).Row
For Each Valid In Range("F3:F" & Nb_ligne_Valid)
 
With Worksheets(Tags) '.Range("a:z")
    Set c = .Find("F" & c + 3, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
    Do
 
    ' On colore le tags en vert si présence validée
        Range("firstAddress").Select
        With Selection.Font
        .Color = -11489280
        .TintAndShade = 0
 
        Loop While Not c Is Nothing
    End If
End With
 
Next Valid
 
End Sub

Bonjour,

C'est là qu'on comprend tout l'intérêt d'indenter le code correctement !!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Valider_Tags()
Nb_ligne_Valid = Range("F65536").End(xlUp).Row
For Each Valid In Range("F3:F" & Nb_ligne_Valid)
    With Worksheets(Tags) '.Range("a:z")
        Set c = .Find("F" & c + 3, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                Range("firstAddress").Select
                With Selection.Font
                    .Color = -11489280
                    .TintAndShade = 0
                End With
            Loop While Not c Is Nothing
        End If
    End With
Next Valid
End Sub

21/01/2019, 12h04
MarcelG

Salut Valery,

Les messages d'erreur Excel VBA ne sont certes pas toujours explicites.

Il te manque une fin de bloc.
Regarde les Do, With.....
Un conseil pour éviter ce genre d'erreur.
Bien indenter le code. A chaque bloc(Do, With....), mettre en retrait le code placé à l'intérieur.

Autre chose. Tu peux ôter ces f... Select qui n'ajoutent rien au code, si ce n'est que de l'alourdir.
21/01/2019, 12h10
MarcelG

Salut Patrice,

Pas de Select!!
Ce code ne correspond pas à l'aide en ligne de la fonction Find.
En effet, la boucle s'effectue tant que c n'est pas rien, certes, mais aussi tant que l'objet trouvé n'a pas la même adresse que la 1ère.
21/01/2019, 12h24
Patrice740

Citation:

Envoyé par MarcelG

Salut Patrice, ...

C'est pas moi qui demande de l'aide, j'ai n'ai fait qu'indenter son code sans aucune modification pour lui monter où est son erreur "Boucle sans Do" !
Avançons pas à pas ...

Oui effectivement j'avais coupé collé un bout de code crée avec l'enregistreur d'Excel et avais oublié un morceau visiblement.

Je supprime le .Select, ça veux dire que j'en ai pas besoin au vu de l'avancement du programme?

actuellement l'expression à vérifier est dans l'onglet Tags et je veux vérifier qu'elle soit dans l'onglet Catalogue.
auquel cas je lui donne la couleur verte.

J'ai un peu modifié le code pour m'assurer d'être dans le bon tableau. -> ligne 9

Il y a toujours une erreur '438' : Propriété ou méthode non gérée par l'objet -> ligne 9
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub Valider_Tags() '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'On Boucle Chaque tags pour valider sa présence dans le catalogue. Nb_ligne_Valid = Range("F65536").End(xlUp).Row For Each Valid In Range("F3:F" & Nb_ligne_Valid) With Worksheets(3) '.Range("a:z") Set C = .Find("Tags!F" & C + 3, LookIn:=xlValues) If Not C Is Nothing Then firstAddress = C.Address Do ' On colore le tags en vert si présence validée 'Range("firstAddress").Select With Selection.Font .Color = -11489280 .TintAndShade = 0 End With Loop While Not C Is Nothing End If End With Next Valid End Sub

21/01/2019, 12h55
patricktoulon

RE

re
bonjour a tous
je dis peut etre une sottise (vous me direz)
mais la question etait de tester la presence d'une expression dans une plage et pas de mettre en evidence cette expression
un countif(vba ou formule) ferait parfaitement l'affaire je crois

cela dit histoire de mettre tout le monde d'accord
je me pose une question:koi: pourquoi mettre un format conditionel sur les cellule DEJA!! trouvée avec find??????
pourquoi ne pas mettre un format conditionel sur toute la plage vous aurez le meme resultat ;) et pas de code!!!!!
je dis ca moi ,je dis peut etre une sottise hein ???;)

surtout que les format conditionels peuvent etre cumulés et donc on peu mettre en evidence diverses expressions dans une meme cellules
21/01/2019, 13h17
valery.petit

Je suis perdu là....:roll:

1 pièce(s) jointe(s)

re
un exemple
code optenue avec l'enregistreur que j'ai nétoyé
on va mettre en evidence tout les "toto" et "titi" dans la plage "A18:A24"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    With Sheets(1).Range("A18:A24")    'modifier ta plage ici ainsi que le sheets 
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""toto"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).Interior.Color = vbGreen
 
        .FormatConditions(1).StopIfTrue = False
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""titi"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).Interior.Color = vbRed
        .FormatConditions(1).StopIfTrue = False
    End With
End Sub

il te sera facile d'en faire une fonction et d'avoir toto et titi en variable dynamique

resultat
Pièce jointe 443224

Merci patricktoulon sur le coup je n'avais pas compris, mais effectivement c'est plus simple.

du coup ça me donne ça.
Je n'ai pas de défaut, mais par contre rien ne se passe lorsque j’exécute le code....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub Valider_Tags()
 
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'On Boucle Chaque tags pour valider sa présence dans le catalogue.
Nb_ligne_Valid = Range("F65536").End(xlUp).Row
For Each Valid In Range("F3:F" & Nb_ligne_Valid)
Tag_Rech = Range("F" & Valid.Row).Value
 
    With Worksheets(3).Range("a:z")
        Set C = .Find(Tag_Rech, LookIn:=xlValues)
        If Not C Is Nothing Then
            firstAddress = C.Address
            'Do
' On colore le tags en vert si présence validée
                'Range("firstAddress").Select
               With Sheets(1).Range("F3:F65536")    'modifier ta plage ici ainsi que le sheets
                .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""toto"""
                .FormatConditions(.FormatConditions.Count).SetFirstPriority
                .FormatConditions(1).Interior.Color = vbGreen
                End With
            'Loop While Not C Is Nothing
        End If
    End With
Next Valid
End Sub

21/01/2019, 14h26
valery.petit

:aie: désolé j'ai pas fini mon café ce matin....

je corrige et je reteste.

Voici

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 
Sub Valider_Tags()
 
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'On Effaces les anciennes régles de la feuille
    Cells.FormatConditions.Delete
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'On Boucle Chaque tags pour valider sa présence dans le catalogue.
Nb_ligne_Valid = Range("F65536").End(xlUp).Row
For Each Valid In Range("F3:F" & Nb_ligne_Valid)
Tag_Rech = Range("F" & Valid.Row).Value
 
    With Worksheets(3).Range("a:z")
        Set C = .Find(Tag_Rech, LookIn:=xlValues)
        If Not C Is Nothing Then
            firstAddress = C.Address
 
' On colore le tags en vert si présence validée
                'Range("firstAddress").Select
               With Sheets(1).Range("F3:F65536")    'modifier ta plage ici ainsi que le sheets
                .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:=Tag_Rech
                .FormatConditions(.FormatConditions.Count).SetFirstPriority
                .FormatConditions(1).Interior.Color = vbGreen
                End With
           End If
    End With
Next Valid
End Sub