Faire Cop/Col en VBA sur feuille cachée sans afficher la feuille
Résolu
mijean94
Messages postés
415
Date d'inscription
Statut
Membre
Dernière intervention
-
mijean94 Messages postés 415 Date d'inscription Statut Membre Dernière intervention -
mijean94 Messages postés 415 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J’utilise le code si dessous pour faire un copier/coller sur une feuille cachée.
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
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
A voir également:
- Faire Cop/Col en VBA sur feuille cachée sans afficher la feuille
- Copie cachée - Guide
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment imprimer en a5 sur une feuille a4 - Guide
- Verrouiller cellule excel sans verrouiller la feuille - Guide
1 réponse
Bonjour,
Tu peux remplacer tout ton code par cette simple ligne :
et même plus simple mais moins explicite
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
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
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