Sujet Précédent Sujet Suivant

Excel VBA / Test du &

Résolu/Fermé
Jerome - Modifié par jordane45 le 30/11/2015 à 23:12
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 1 déc. 2015 à 08:28
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 38453 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 mars 2025 4 740
30 nov. 2015 à 23:15
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
30 nov. 2015 à 23:29
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 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
Modifié par michel_m le 1/12/2015 à 08:49
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