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.

1 réponse

  1.
    jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   4 831
     
    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
    1. Jerome
       
      J'essaie demain et je te dis : merci pour la réponse rapide. Je ne connaissais pas le LIKE...
      0
    2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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