Discussion :

[CristofMartins]

Bonjour,
J'ai crée une boucle qui parcourt toute une feuille excel afin de pouvoir retrouver certains champs.

boucle :

Code :

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

1
2
3
4
5
6
7
 
for c = 1 to ColEnd
     for r = 1 to RowEnd
 
 
     next r
next c

Le but de cette dernière est de retrouver plusieurs cellules qui contiennent une valeur.
ex :

Code :

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

1
2
3
4
 
    if (cells(r,c) = "%%DATA%%") then
    .....
    End if

Il faut aussi savoir qu'il se peut que ma feuille excel contienne plusieurs fois une cellule avec la même valeur.

ex :

Cellule "A2" valeur = %%data%%
Cellule "A4" valeur = %%data%%


Mon problème est :
Mon teste est positif quand la boucle passe sur A2 mais quand cette dernière passe sur A4 elle ne fait rien.

PS: je sais même pas si ma boucle y passe dessus.
Propositions ?

[gFZT82]

Bonjour,

Pour savoir si ta boucle fonctionne correctement, tu peux exécuter ta procédure en mode pas à pas.
http://silkyroad.developpez.com/VBA/...acros/#LII-C-4
De plus, tu peux créer une variable qui te permettra de visualiser la valeur dans la fenêtre variables locales ou par survol de la souris.

Code :

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

1
2
3
4
5
6
7
8
9
Dim V as String
For c = 1 To ColEnd
     For r = 1 To RowEnd
        V = Cells(r, c)
        If V = "%%DATA%%" Then
            '.....
        End If
     Next r
Next c

Cordialement.

[CristofMartins]

Salut,
J'ai essayé ta réponse mais toujours le même problème.
En gros d’après ce que j'ai compris il fait juste soit toutes les colonnes mais juste la première ligne ou alors toutes les lignes mais seulement de la première colonne.
J'ai trouvé une autre solution.
Avec une foreach j'arrive à passer vraiment dans toutes les cellules.