Tester une cellule excel

Signaler
Messages postés
12
Date d'inscription
mardi 18 août 2009
Statut
Membre
Dernière intervention
8 octobre 2009
-
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
-
Bonjour,

J'ai un fichier excel dans lequel je recherche un libellé.
En fait je parcours une colonne et lorsque je trouve le mot "Objectif" dans une cellule j'ai un traitement à faire. Le problème est que quand je teste la valeur des cellules il ne passe jamais dans mon if.

Ex :
With FeuilXLS ' On parcourt la colonne C
Do While (.Range("B" & i) <> "FIN")
i = i + 1

sVal = Trim(UCase(FeuilXLS.Range("B"&i).Value))
if (sVal="OBJECTIF") then
msgbox sVal
end if
Loop

J'ai beau tout mettre en majuscule, mettre un trim rien n'y fait.
Quand je lui fait afficher les valeurs (avec msgbox) il m'affiche "Objectif"
Quelqu'un aurait-il une idée car là j'avoue que je ne comprends pas
Merci

3 réponses

Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
1
Bonjour ,

Dim I
Dim msg As String
Dim sVal As String
I = 1

With FeuilXLS ' On parcourt la colonne C
Do While (.Range("B" & I).Value <> "FIN")
I = I + 1
sVal = FeuilXLS.Range("B" & I).Value
If Trim(UCase(sVal)) Like "*OBJECTIF*" = True
Then
msg = msg & Chr(13) & sVal
End If
Loop
End With
MsgBox "Le resultat" & Chr(13) & msg

Dedenet2
Messages postés
12
Date d'inscription
mardi 18 août 2009
Statut
Membre
Dernière intervention
8 octobre 2009

Merci dedenet2, ça marche.
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
1
Bonjour ,
Pense à valider ma réponse

Dedenet2