Discussion :

[valery.petit]

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

[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.

[halaster08]

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

[valery.petit]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Patrice740]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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.

[Patrice740]

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 ...

[valery.petit]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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 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

[valery.petit]

Je suis perdu là....

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[valery.petit]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[valery.petit]

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

je corrige et je reteste.

[valery.petit]

Voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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