Discussion :

[darkspoilt]

Bonjour,
J'ai un probleme de bouclue il ne veut pas sortir.
D'access j'ouvre au préalable une feuille Excel.
Le but de cette boulce est de de trouver la ligne ou ma cellule Excel est égal a JANVIER 20" & ad
ad est un chaine de caractere variable qui contient deux chiffres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
            Do While UCase(wbfile.Sheets(1).Cells(ligneMOIS, 2)) <> ("JANVIER 20" & ad)
            Debug.Print UCase(wbfile.Sheets(1).Cells(ligneMOIS, 2))
            Debug.Print ("JANVIER 20" & ad)
            ligneMOIS = ligneMOIS + 1
            Loop

mes deux debug print m'affiche la meme chose JANVIER 2006
Alors pourquoi je ne sors pas de la boucle si quelqu'un a trouvé la réponse merci d'avane

[bernardmichel]

Salut,
Je ne suis pas - et de loin - un spécialiste d'Excel, aussi, je te livres de simples suggestions ou pistes (à tester peut-être ?)

Je ne comprends pas pourquoi, si tu dis que :

Le but de cette boulce est de de trouver la ligne ou ma cellule Excel est égal a JANVIER 20" & ad

Tu prends comme critère "<>" dans ton code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Do While UCase(wbfile.Sheets(1).Cells(ligneMOIS, 2)) <> ("JANVIER 20" & ad)
ligneMOIS = ligneMOIS + 1
Loop

Ne devrais-tu pas employer un "Value", du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wbfile.Sheets(1).Cells(ligneMOIS, 2).Value

Sinon, est-ce que c'est un problème de format ? Le travail avec les dates n'est pas toujours simple en VBA...

Ou encore, lier ta table Excel à ton applic Acces et ainsi, simplement appliquer une requête qui te donnerais le résultat recherché.

Ou... ?

Amicalement,

Bernard.

[darkspoilt]

Bah ma boucle c'est quand il ne trouve pas ce qu'il cherche il va a la ligne suivante.
Sinon j'ai trouvé le problème il y avait des espaces parasites a la fin voila tout