Liste array ou tableau

P

Papaye

Guest

• 6 Juin 2006

• #2

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 6 Juin 2006

• #3

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

 

Vote positif 0 Vote négatif

P

Papaye

Guest

• 6 Juin 2006

• #4

Re,

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

ou ???

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 6 Juin 2006

• #5

re

ou :

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

ou ???

 

Vote positif 0 Vote négatif

P

Papaye

Guest

• 6 Juin 2006

• #6

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

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

😛inch:

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 6 Juin 2006

• #7

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

 

Vote positif 0 Vote négatif