Discussion :

[mouftie]

Bonjour,
Je voudrais déclarer 2 feuilles en constante, car j'ai de nombreux copier coller à faire ; je les ai déclarées dans un module standard de la façon suivante (je n'ai pas réussi à les écrire sur une seule ligne ?)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Const ShAgt = Sheets("RécapAgt")
Public Const ShDon = Sheets("Données")

dans ma procédure, j'ai écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    ShAgt.Select
    With ShAgt
        ShDon.Range("I3").Copy .Range("A23:A33")
        ShDon.Range("I4").Copy .Range("A34:A44")

l'erreur vient sur le Sheets de la ligne Public Const ShAgt = Sheets("RécapAgt").

Pouvez-vous m'expliquer ce qu'il faut faire, svp.
Merci

[halaster08]

Bonjour,

Dans l'aide interne sur Const:

type Facultatif. Type de données de la constante ; elle peut être de type byte, Boolean, Integer, Long, Currency, Single, Double, Decimal (non pris en charge actuellement), Date, String ou Variant. Utilisez une clause As type distincte pour chaque constante à déclarer.

Sheet ne faisant pas parti des types possible, je ne pense pas que tu puisse déclarer une feuille comme constante

[mouftie]

Bonjour halaster,
Merci pour ta réponse, j'avais bien regardé l'aide, mais mal approfondi...
tant pis on va faire autrement.
Encore merci pour ton aide