Excel VBA / Test du &

Résolu/Fermé

Jerome - Modifié par jordane45 le 30/11/2015 à 23:12
michel_m Messages postés 16603 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:

Excel VBA / Test du &
Test performance pc - Guide
Liste déroulante excel - Guide
Formule excel - Guide
Test composant pc - Guide
Si et excel - Guide

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
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

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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

Discussions similaires

PXE-E61 : media test failure, check cable

Discussions similaires

Newsletters