OVH Cloud OVH Cloud

variable

2 réponses
Avatar
Julien
Bonjour,
Comment je peut faire pour mettre une variable qui=20
s'incr=E9mente dans un range, voici un exemple:

nb =3D 8

<d=E9but de la boucle>

Sheets("DATA").Select
Range("K rang").Select 'je voudrais avoir K8,K9,etc
Selection.Copy
Sheets("Macro").Select
Range("A2").Select
ActiveSheet.Paste

nb=3Dnb+1
<fin de ma boucle>

Merci d'avance

2 réponses

Avatar
Nicolas B.
Salut Julien,

Avec une boucle For... Next :
dim nb as integer
for nb=8 to 12 'Remplace 12 par la valeur à atteindre
...
Range("K" & nb).Select
...
next


A+
--
Nicolas B.


Julien nous a écrit
dans le message 2adb101c467fe$ea1d9d60$ :
Bonjour,
Comment je peut faire pour mettre une variable qui
s'incrémente dans un range, voici un exemple:

nb = 8

<début de la boucle>

Sheets("DATA").Select
Range("K rang").Select 'je voudrais avoir K8,K9,etc
Selection.Copy
Sheets("Macro").Select
Range("A2").Select
ActiveSheet.Paste

nb=nb+1
<fin de ma boucle>

Merci d'avance


Avatar
Merci Nicolas pour ton aide
@+
-----Message d'origine-----
Salut Julien,

Avec une boucle For... Next :
dim nb as integer
for nb=8 to 12 'Remplace 12 par la valeur à atteindre
....
Range("K" & nb).Select
....
next


A+
--
Nicolas B.


Julien nous a écrit
dans le message 2adb101c467fe$ea1d9d60$ :
Bonjour,
Comment je peut faire pour mettre une variable qui
s'incrémente dans un range, voici un exemple:

nb = 8

<début de la boucle>

Sheets("DATA").Select
Range("K rang").Select 'je voudrais avoir K8,K9,etc
Selection.Copy
Sheets("Macro").Select
Range("A2").Select
ActiveSheet.Paste

nb=nb+1
<fin de ma boucle>

Merci d'avance



.