Excel VBA / Test du &

Résolu
Jerome -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Dans une macro Excel VBA, je cherche à détecter une cellule ayant un caractère spécial & dans une boucle For. Malheureusement ça ne fonctionne pas.
Mon code est le suivant 
For Cpt_ligne = 1 To Nb_lignes
  If Range("A" & Cpt_ligne).Value = "Elo & J" Then
    MsgBox "blabla"
  EndIf
Next Cpt_ligne

Aucun message n'apparaît. Auriez-vous une idée ?
D'avance merci!

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.
A voir également:

1 réponse

Réponse 1 / 1
jordane45 Messages postés 40050 Date d'inscription   Statut Modérateur Dernière intervention   4 759
 
Bonjour,

Que contient ta cellule exactement ?
Seulement le texte "Elo & J" ... ou bien un texte plus long contenant cette string ?


Si c'est une "portion" d'un phrase.. il ne faut pas un "=" mais un LIKE 
For Cpt_ligne = 1 To Nb_lignes
  If Range("A" & Cpt_ligne).Value Like "*Elo & J*" Then
    MsgBox "blabla"
  End If
Next Cpt_ligne

0
Jerome
 
J'essaie demain et je te dis : merci pour la réponse rapide. Je ne connaissais pas le LIKE...
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour
pas besoin de boucler sur toute la plage 

Nbre = Application.CountIf(Columns("A"), "&")
If Nbre > 0 Then
    Lig = Rows.Count
    For Cptr = 1 To Nbre
        Lig = Columns("A").Find("&", Cells(Lig, "A")).Row
        MsgBox ("blabla sur ligne " & Lig)
    Next
End If
0