Discussion :

[hlander]

Bonjour,

Pour faire simple, je selectionne une colonne exemple : B25

Par une boucle je veux écrire une premier valeur dans cette cellule, puis ensuite dans C25, puis D25 et jusqu' a la fin d'un tableau.

Code :

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

1
2
3
4
5
6
 
Range("B25").Select
 
For i= 1 To UBound(Ligne)
ActiveCell.FormulaR1C1 = Cell ou ActiveCell.value = cell
next i

mais comment rendre ça dynamique

[Pierre Fauconnier]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
 
Dim Cellule as Range
dim col as integer
 
Set cellule = range("b25")
For col = 1 to 10
    cellule(1,col)= ...
next col

Ok?

Cela étant, si c'est pour y coller la même chose, tu peux utiliser, sans boucle

Code :

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

range(range("b25"),range("b25")(1,10))=...

[Didier Gonard]

Bonjour,

S'il s'agit de coller les valeurs de ton tableau, s'il est à 1 dimention de que ton collage est sur des cellules à suivre, vois ce fil aussi :

http://www.developpez.net/forums/d62...au-vers-excel/

sinon en partant, d'une cellule et en se déplaçant tu peux voir du côté de la proprièté Offset (cf aide vba).

cordialement,

Didier