Faire Cop/Col en VBA sur feuille cachée sans afficher la feuille [Résolu/Fermé]

Signaler
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
-
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
-
Bonjour,

J’utilise le code si dessous pour faire un copier/coller sur une feuille cachée.

Dim resultat As Variant
resultat = Range("B2").Value
Range(resultat).Select
Selection.Copy

Sheets("dessin").Visible = True

Sheets("Dessin").Select
ActiveWindow.SmallScroll Down:=-21
Range("B2").Select
ActiveSheet.Paste
Range("B2").Select

Sheets("Dessin").Visible = False


Ma question :

Est-il possible de réaliser la même procédure sans voir apparaître la feuille cachée ?

Merci de l’aide

Bien cordialement
Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
3754
Bonjour,

Tu peux remplacer tout ton code par cette simple ligne :
Range("B2").Copy Destination:=Sheets("dessin").Range("B2")

et même plus simple mais moins explicite
Range("B2").Copy Sheets("dessin").Range("B2")

 Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer.  Antoine de Saint-Exupéry
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7
Bonjour,

Merci d’avoir pris du temps pour regarder mon problème, mais :

Ta proposition ne copie que la case B2 d’une feuille à l’autre alors que mon code copie la plage qui est définie dans la cellule B2 vers la deuxième feuille à partir de la cellule B2.

j'ai adapté le code à mon besoin suivant le code ci-dessous :

Range(resultat).Copy Sheets("dessin").Range("B2")


Merci pour l'orientation que tu m'as apporté qui ma permis d'aboutir à la solution.

Bien cordialement