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

[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

[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