OVH Cloud OVH Cloud

Copier / Coller discontinu en VBA

4 réponses
Avatar
ThierryP
Bonjour à tous !

Ben, je crois que tout est dans le titre....
Je souhaite pouvoir sélectionner des plages discontinues (jusque là, je
sais faire...) et les coller ailleurs, le tout en une seule manip (et
là, je ne sais plus faire....) afin d'alléger le code.

Si quelqu'un a une idée, qu'il le dise !!!

D'avance merci

thierryp

4 réponses

Avatar
michdenis
Bonjour Thierry,

Tu dois passer par un objet qui s'appelle Areas -> un petit tour dans l'aide d'excel

dim r as range, s as range
For Each r In Selection.Areas
For Each s In r
s.Copy 'destination
Next
Next


Salutations!



"ThierryP" a écrit dans le message de news: %
Bonjour à tous !

Ben, je crois que tout est dans le titre....
Je souhaite pouvoir sélectionner des plages discontinues (jusque là, je
sais faire...) et les coller ailleurs, le tout en une seule manip (et
là, je ne sais plus faire....) afin d'alléger le code.

Si quelqu'un a une idée, qu'il le dise !!!

D'avance merci

thierryp
Avatar
ThierryP
Bonjour Denis,

toujours aussi efficace :-)))
Merci pour l'info, je vais me plonger dans l'aide.

@+ thierryp

Bonjour Thierry,

Tu dois passer par un objet qui s'appelle Areas -> un petit tour dans l'aide d'excel

dim r as range, s as range
For Each r In Selection.Areas
For Each s In r
s.Copy 'destination
Next
Next


Salutations!



"ThierryP" a écrit dans le message de news: %
Bonjour à tous !

Ben, je crois que tout est dans le titre....
Je souhaite pouvoir sélectionner des plages discontinues (jusque là, je
sais faire...) et les coller ailleurs, le tout en une seule manip (et
là, je ne sais plus faire....) afin d'alléger le code.

Si quelqu'un a une idée, qu'il le dise !!!

D'avance merci

thierryp




Avatar
AV
Si tu veux copier seulement les valeurs de la plage (discontinue ou pas) de
"Feuil1" nommée par ex. "plg", au même emplacement(s) en "Feuil2"

For Each c In [plage]
Range("Feuil2!" & c.Address) = c
Next

AV
Avatar
Thierry
Mais comment fais-tu pour répondre à des questions que je n'ai encore
pas posées ???? :-))))))))

C'est bien ça que je veux faire.

Merci
thierryp

Si tu veux copier seulement les valeurs de la plage (discontinue ou pas) de
"Feuil1" nommée par ex. "plg", au même emplacement(s) en "Feuil2"

For Each c In [plage]
Range("Feuil2!" & c.Address) = c
Next

AV