Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Bonjour le forum,
Dans une procédure, je sélectionne des ranges non contigus en utilisant la propriété OFFSET:
Cells(x - 1, 1).Activate
Set rng_dest = Union(Range(ActiveCell, ActiveCell.Offset(0, 5)), Range(ActiveCell.Offset(0, 9), ActiveCell(0, lastcol)))
Lorsque je veux copier le contenu de rng_dest dans une autre feuille:
rng_dest.Copy Destination:=Sheets("Synthèse").Cells(y, 1)
je reçois un message disant que cette action ne fonctionne pas sur de multiples sélections.
Par contre, si j'utilise
' Set rng_dest = Union(Range(Cells(x - 1, 1), Cells(x - 1, 5)), Range(Cells(x - 1, 9), Cells(x - 1, lastcol)))
la copie se fait correctement.
Il me semble que les deux manières d'assigner une valeur à rng_dest font la même chose.
Un membre du forum pourrait-il m'expliquer pourquoi cela ne fonctionne pas avec OFFSET?
D'avance merci pour vos réponses.
Gihem
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Bonjour,
Perso, j'ai une erreur sur "ActiveCell(0, lastcol)". Est-ce qu'il ne manque pas "Offset" ?
Cordialement.
Daniel
Bonjour Daniel,
Merci d'avoir répondu.
Merci aussi d'avoir mis le doigt (ou la souris) sur une erreur de ma part. Après correction, la procédure s'exécute normalement avec OFFSET.
Je n'avais pas d'erreur de compilation sur cette instruction.
Une fois de plus, bravo
Bonne journée
Gihem