Au sein d'une boucle passer de colonne a colonne

hlander · 10/10/2008, 16h59

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 :

 
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 · 10/10/2008, 17h14

Bonjour

Code :

 
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 :

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

Ormonth · 10/10/2008, 17h30

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

10/10/2008, 16h59	#1 (permalink)
hlander Invité régulier Date d'inscription: décembre 2006 Messages: 15	Au sein d'une boucle passer de colonne a colonne 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 : Range("B25").Select For i= 1 To UBound(Ligne) ActiveCell.FormulaR1C1 = Cell ou ActiveCell.value = cell next i mais comment rendre ça dynamique

10/10/2008, 17h14	#2 (permalink)
Pierre Fauconnier Rédacteur/Modérateur Date d'inscription: novembre 2003 Localisation: Theux (Belgique) Âge: 41 Messages: 3 112	Bonjour Code : 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 : range(range("b25"),range("b25")(1,10))=... __________________ Pierre Fauconnier -------------------- "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire) Pensez au tag Mon blog sur DVP - Mes petits papiers sur DVP Je ne peux en aucun cas être tenu pour responsable des conséquences de l'utilisation des codes que je fournis dans le cadre des réponses apportées sur les forums, même s'il s'avérait que ces codes sont erronés ou amènent à des dysfonctionnements, de manière manifeste ou non.

10/10/2008, 17h30	#3 (permalink)
Ormonth Membre habitué Date d'inscription: février 2008 Localisation: Loire Atlantique Messages: 164	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 __________________ Didier Gonard N'oubliez pas de mettre : ..quand c'est le cas !

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Excel > VBA Excel
Au sein d'une boucle passer de colonne a colonne

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email