boucle For each sur VBA (excel)

Question

Bonjour, je travaille sur sur office 2003 avec un windows 2000 j'ai preparer un tout p'tit programme de gestion de base de donn&#233;e sur  excel en utilisant VBA et &#231;a marche tres bien sauf que lorsque j'ai essay&#233; de le mettre sur un autre ordi avec le meme office mais avec un windows XP &#231;a Bug a 2 niveau 
- le premier a chaque variable non declar&#233; (j'ai pu regler ce probleme en passant quelque minutes en declarant ces variable)
- le second a la boucle for each et c'est &#231;a qui me coince 
j'ai vraiment besion d'une solution voici un exemple :

for each c in [a:a] 'boucle sur toute la colone A
if a.value<>empty then ' un simple test logique 
a.select
end if 
next
merci d'avance

bertholdt · Answer

Salut,

Bien que tu aies un probl&#232;me avec For Each, je pense que tu ne devrais pas faire ta recherche sur toute la colonne car il y a quand m&#234;me 65536 lignes. Compte tout d'abord le nombre de lignes utilis&#233;es et fais une boucle dessus ensuite.


D&#233;cris moi mieux ton probl&#232;me et/ou envoies une partie de ta proc&#233;dure de recherche.

++
Pierrick

nostra78 · Answer

Option explictit
DIm Cellule as range

Sub macro1
For each cellule in  [a:a]
If cellule.value <> "" then
cellule.select
end if 
next
End Sub

valtrase · Answer

Salut, Tout d'abord toujours déclarer tes variables c'est plus propre et cela évite bien des problèmes. Donc Dim c as Range Ensuite tu dis textuellement pour chaque C si A.Value<> .....alors ...... Dis y'a pas un prob là? cela doit être: Dim C as Range for each c in [a:a] 'boucle sur toute la colone A if c.value<>empty then ' un simple test logique c.select end if next Attention aussi à l'utilisation de Empty je te renvois sur l'aide dernière précision tel-quel ton code ne sélectionnera que la dernière cellule non vide (les autres auront été séléctionné mais tu ne le verra pas....) Cordialement, Jean-Paul ______________________________________________________________________ Le Savoir n'a de valeur que s'il est partagé

cs_dodii · Answer

merci la &#231;a fonctionne tres bien mais si declare le "C" comme variant est ce que &#231;a differe avec la declaration en tant que Range ?

valtrase · Answer

Re,
Ne sachant pas ce que C contiendra si tu le d&#233;clares en variant il occupera plus de place en m&#233;moire.

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Boucle For each sur VBA (excel)

5 réponses

Discussions similaires