OVH Cloud OVH Cloud

Macro - Se déplace de 'x' colonnes

5 réponses
Avatar
loup
Bonjour,

Je n'arrive pas par macro Excel à me déplacer de colonne
Par exemple, je suis en "A1" et je voudrais par rapport à cela
me déplacer de 2 colonnes et donc écrire dans la cellule "C1"
Merci

5 réponses

Avatar
Jacques93
Bonjout loup,

ActiveCell.Offset(0, n).Activate

ou n est le nombre de colonnes.

Bonjour,

Je n'arrive pas par macro Excel à me déplacer de colonne
Par exemple, je suis en "A1" et je voudrais par rapport à cela
me déplacer de 2 colonnes et donc écrire dans la cellule "C1"
Merci



--
Cordialement,

Jacques.

Avatar
loup
Bonjour Jacques93,

Merci de ton aide mais je n'ai pas l'impression que cela fonctionne...
Car ensuite j'utilise la fonction Cell.Value = "OK" pour écrire le
mot "OK" en "C1" et cela me l'écrit encore en "A1" ?!?
Merci


Bonjout loup,

ActiveCell.Offset(0, n).Activate

ou n est le nombre de colonnes.

Bonjour,

Je n'arrive pas par macro Excel à me déplacer de colonne
Par exemple, je suis en "A1" et je voudrais par rapport à cela
me déplacer de 2 colonnes et donc écrire dans la cellule "C1"
Merci



--
Cordialement,

Jacques.




Avatar
loup
Voila mon code complet :

For Each Cell In Range("A1:A5")
ActiveCell.Offset(0, 2).Activate
Cell.Value = "OK"
Next

Effectivement, c'est parce que j'utilise "Cell" pour 2 choses....
Merci


Bonjour Jacques93,

Merci de ton aide mais je n'ai pas l'impression que cela fonctionne...
Car ensuite j'utilise la fonction Cell.Value = "OK" pour écrire le
mot "OK" en "C1" et cela me l'écrit encore en "A1" ?!?
Merci


Bonjout loup,

ActiveCell.Offset(0, n).Activate

ou n est le nombre de colonnes.

Bonjour,

Je n'arrive pas par macro Excel à me déplacer de colonne
Par exemple, je suis en "A1" et je voudrais par rapport à cela
me déplacer de 2 colonnes et donc écrire dans la cellule "C1"
Merci



--
Cordialement,

Jacques.






Avatar
Jacques93
Bonjour loup,

For Each Cell In Range("A1:A5")
Cell.Offset(0, 2).Value = "OK"
Next

Voila mon code complet :

For Each Cell In Range("A1:A5")
ActiveCell.Offset(0, 2).Activate
Cell.Value = "OK"
Next

Effectivement, c'est parce que j'utilise "Cell" pour 2 choses....
Merci



--
Cordialement,

Jacques.

Avatar
loup
Merci :)


Bonjour loup,

For Each Cell In Range("A1:A5")
Cell.Offset(0, 2).Value = "OK"
Next

Voila mon code complet :

For Each Cell In Range("A1:A5")
ActiveCell.Offset(0, 2).Activate
Cell.Value = "OK"
Next

Effectivement, c'est parce que j'utilise "Cell" pour 2 choses....
Merci



--
Cordialement,

Jacques.