balayer plusieurs cases en vba d'une feuille

[fanoux]

bonjour le forum,

je voudrais balayer plusieurs cases d'une meme colonne pour vérifier les infos que chaque case contient, et le probleme vient de Range, il n'accepte pas les variable ou en tout cas je sais pas comment on fait...
j'ai essayé de faire une boucle, mais il bug. voici un exemple de code, ca peut aider a me faire comprendre:

Do Until i = 100
tmp = wsExcel1.Range('A 'i'')
i = i + 1
Loop

Par exemple ici, je voudrais balayer toute la colonne A.

Si qq'un a une idée, toute proposition sera la bienvenue.
merci d'avance
Salutations

 

[PascalXLD]

Bonjour

Pour une variable dans un range pour les lignes c'est ainsi

Range('A' & i) où i est ta variable

Bonne journée

 

[_Thierry]

Bonjour Fanoux, Pascal, le Forum

Oui comme Pascal t'indique très justement, et en complement on préfèrera faire une boucle For / Next pour le cas de figure que tu représentes :

    For i = 1 To 100
        Tmp = Tmp & Range('A' & i) & ';'
    Next

Que l'on peut écrire comme ceci aussi (pratique pour bouger en Colonne)

    For i = 1 To 100
        Tmp = Tmp & Cells(i, 1) & ';'
    Next

Bon App
@+Thierry

 

[2passage]

Bonjour,

Allez.. mes 2 coppers à grand coup de for each :

For each Cellule_a_examiner in range('A1:A100').cells
tmp = Cellule_a_examiner.value
next

A+

 

[JJM]

Bonjour fanoux, Pascal76,

Voici un exemple de code avec 'For Each'. [file name=ForEach.zip size=8176]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ForEach.zip[/file]

P;s; : à adapter, évidemment, pour un cumul.

Message édité par: JJM, à: 21/07/2005 13:44

 

[JJM]

Bonjour 2passage, _Thierry, fanoux, Pascal76,

Oups, nos réponses se sont croisées.

 

[fanoux]

merci bcp pour toutes ces reponses intéressante qui me sauvent. bonne journée et a bientot sur le forum