tester une cellule excel

Question

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

dedenet2 · Answer

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

jeanpeup · Answer

Merci dedenet2, ça marche.

dedenet2 · Answer

Bonjour ,
Pense à valider ma réponse

Dedenet2

Tester une cellule excel

3 réponses

Votre réponse

Discussions similaires