Plage avec valeur fixe + variable

Bonjour à tous,

Etant débutant je m'exerce à reproduire des exemples trouvés sur des sites...

Je ne comprends pas pourquoi la macro (simple) suivante ne fonctionne pas :

Sub SelectionDiscontinue()

Dim Z1, Z2, MaPlageMultiZone As Range

Worksheets("Feuil1").Select

Range("A1").Select

ActiveCell.End(xlDown).Select

Zone1 = ActiveCell.Address

Selection.Offset(0, 2).Select

Zone2 = ActiveCell.Address

Set Z1 = Range("A1", Zone1)

Set Z2 = Range("C1", Zone2)

Set MaPlageMultiZone = Union(Z1, Z2)

ZoneSelection = MaPlageMultiZone.Select

A la ligne "Set Z1", VBA me renvoie une erreur '1004'

Je vous remercie d'avance de votre aide

MichaelH

Bonjour et bienvenue sur le forum,

Je pense que tu fais une erreur de syntaxe

c'est plutôt:

      Set Z1 = Range("A1:" & Zone1)
      Set Z2 = Range("C1:" & Zone2)

Cordialement

ddetp88

Bonjour,

En testant sur Excel 10, les 2 syntaxes fonctionnent

( chez moi en Excel 2013 ça ne passait pas...)

Merci beaucoup de votre réponse !

MichaelH

Rechercher des sujets similaires à "plage valeur fixe variable"