Comment faire une copie depuis une feuille masquée.

Résolu/Fermé

madani.m Messages postés 4 Date d'inscription lundi 11 novembre 2019 Statut Membre Dernière intervention 11 novembre 2019 - Modifié le 11 nov. 2019 à 14:59
madani_m - 12 nov. 2019 à 11:29

Bonjour
je veux copier des données depuis une feuille masquer vers une autre feuille
l'exécution du macro ne donne aucune résultats voilà le code :

Sub effacer()
Sheets("Avancement programme").Select
Rows("2:100000").Select
Selection.Delete shift:=xlUp
Range("A2").Select
End Sub
Sub generer()

Application.ScreenUpdating = False
effacer
    Sheets("CF SALE 1").Visible = True
    Sheets("CF SALE 1").Select
    k = Range("A100000").End(xlUp).Row
        For i = 2 To k
            Sheets("CF SALE 1").Select
            Rows(i).Select
            Selection.Copy
            Sheets("Avancement programme").Select
            lr = Range("A100000").End(xlUp).Row + 1
            Sheets("Avancement programme").Cells(lr, 1).Select
            ActiveSheet.Paste
            Application.CutCopyMode = False
        Next i
        Application.ScreenUpdating = True
       Sheets("CF SALE 1").Visible = False
End Sub

A voir également:

Comment faire une copie depuis une feuille masquée.
Copie cachée - Guide
Comment supprimer une feuille sur word - Guide
Url masquée pour votre sécurité - Forum Programmation
Couche de destination masquée photoshop ✓ - Forum Graphisme
Excel reporter des données sur une autre feuille avec conditions - Forum Excel

3 réponses

Réponse 1 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié le 12 nov. 2019 à 10:12

En partant toujours ligne 2 folio "avancement etc" puisqu'on nettoie avant tout

La maquette
https://mon-partage.fr/f/wcpCxdu3/

madani_m
12 nov. 2019 à 11:29

Bonjour
mais la macro d'effacement efface les données mais l'entête du tableau reste c'est pour cela on doit se positionner a la cellule A2.
Merci michel pour votre aide

Réponse 2 / 3

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 414
11 nov. 2019 à 14:52

Bonjour
pour vous adresser à la feuille masquée, remplacer Select par Activate
crdlmnt

madani.m Messages postés 4 Date d'inscription lundi 11 novembre 2019 Statut Membre Dernière intervention 11 novembre 2019
11 nov. 2019 à 14:54

Merci pour votre réponse
Déjà fait mais aucune résultats malheureusement

Réponse 3 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié le 11 nov. 2019 à 15:52

Bonjour madami.m,
Mes respects, mon cher Vaucluse :o)

Principe pour effacer des lignes sur une feuille masquée

Sub effacer()
With Sheets("feuil2")
.Rows("2:100").Delete
End With
'Vérif
Sheets("feuil2").Visible = True
End Sub

mais je n'ai rien compris à ce que tu veux faire...

madani.m Messages postés 4 Date d'inscription lundi 11 novembre 2019 Statut Membre Dernière intervention 11 novembre 2019
11 nov. 2019 à 15:51

Bonjour michel_m pour votre aide
La macro effacer ne pause pas de problème car elle est exécutée sur une feuille visible mais la 2ème macro generer qui pose de problème car je veux copier depuis une feuille masquée.
merci

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
11 nov. 2019 à 16:50

Donc, tu ne veux pas rendre la feuille CF SALE 1 visible ?

madani.m Messages postés 4 Date d'inscription lundi 11 novembre 2019 Statut Membre Dernière intervention 11 novembre 2019
11 nov. 2019 à 16:53

Merci pour votre aide michel
la feuille CF SALE 1 est une feuille masquée je veux copier des donner depuis elle vers la feuille Avancement programme qui est visible.
mais avant de copier j'exécute la macro pour supprimer les données situer dans la feuille Avancement programme.

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
11 nov. 2019 à 17:58

Ok, mais si tu effaces les lignes dans "avancement travaux" pourquoi cherches tu ensuite la ligne dans cette feuille puisque tu sélectionnes A2 ?

A demain

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
12 nov. 2019 à 08:21

Bonjour

quelle est la lettre de la dernière colonne utilisée ?

Discussions similaires

Sécurité de l'URL

lien copié

La nouvelle messagerie du Boncoin....

comment lire un message masqué????

Comment retrouver des lien copier sur sont téléphone