Liste array ou tableau

[BOB75000]

Bonjour,

est-il possible dans un boucle d'aller de cellule en cellule non pas à l'verticalement
avec une boucle qui incrémente de +1 à chaque cycle.
exemple:
i = 1
départ Ai --> A1
Boucle i=i +1
fin boucle
Ai --> A2

mais plutot horizontalement de cellule en cellule
exemple:
A1 -> B1 -> C1 -> D1 -> E1 -> ...
sachant que une fois pointer sur la cellule, une action est effectué.

Merci d'avance

 

[Papaye]

Bonjour Bob,

Oui tu peux utiliser :

Sub toto()
Range('A1').Select
For i = 1 To 5 'colonne de B à F,toujours ligne 1
ActiveCell.Offset(0, i).Value = 'Toto'
Next i
End Sub

Cette macro te mettra 'Toto' dans les cellules B1, C1, ...

Papaye

 

[Hervé]

bonjour bob, papaye

une autre syntaxe possible :

For i = 1 To 5 'colonne de A à E,toujours ligne 1
Cells(1, i) = 'Toto'
Next i

salut

edition : par contre j'ai pas compris pourquoi ce titre de post ?

Message édité par: hervé, à: 06/06/2006 14:29

 

[Papaye]

Re,

Ou :
For i = 1 To 5
Range(Chr(65 + i) & '1').Value = 'Toto'
Next i

ou ???

 

[Hervé]

re

ou :

For Each c In Array('B', 'C', 'D', 'E', 'F')
Range(c & 1) = 'toto'
Next c

ou ???

 

[Papaye]

Euh ... ou ... ou ... allez :

Range('B1:F1').Value='Toto'

😛inch:

 

[Hervé]

re final 🙂


Dim tablo()
Dim c As Range
Dim i As Byte, x As Byte

For i = 2 To 6
x = x + 1
ReDim Preserve tablo(1 To x)
tablo(x) = Left(Cells(1, i).Address(0, 0), 1)
Next i

For i = 1 To UBound(tablo)
tablo(i) = tablo(i) & 1
Set c = Range(tablo(i))
c = 'toto'
Next i

j'ai pas osé faire plus long.

salut