Faire Cop/Col en VBA sur feuille cachée sans afficher la feuille

Résolu/Fermé

mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 7 nov. 2016 à 22:04
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 8 nov. 2016 à 08:59

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

A voir également:

Faire Cop/Col en VBA sur feuille cachée sans afficher la feuille
Copie cachée - Guide
Feuille de pointage excel - Télécharger - Tableur
Feuille a5 - Guide
Verrouiller cellule excel sans verrouiller la feuille - Guide
Supprimer une feuille word - Guide

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
Modifié par gbinforme le 7/11/2016 à 22:41

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 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10
Modifié par mijean94 le 8/11/2016 à 09:09

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

Discussions similaires

Reporter valeur sur autre feuille avec critere

Feuille de score belote

programme qui n'affiche pas le mot secret

feuille excel de gestion belote

Discussions similaires

Newsletters