Comment faire une copie depuis une feuille masquée. [Résolu]

Messages postés
4
Date d'inscription
lundi 11 novembre 2019
Statut
Membre
Dernière intervention
12 novembre 2019
-
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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
16000
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
4 décembre 2019
2830
1
Merci
En partant toujours ligne 2 folio "avancement etc" puisqu'on nettoie avant tout



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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 64069 internautes nous ont dit merci ce mois-ci

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
Commenter la réponse de michel_m
Messages postés
24733
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
3 décembre 2019
4911
0
Merci
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
12 novembre 2019
-
Merci pour votre réponse
Déjà fait mais aucune résultats malheureusement
Commenter la réponse de Vaucluse
Messages postés
16000
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
4 décembre 2019
2830
0
Merci
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
12 novembre 2019
-
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
16000
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
4 décembre 2019
2830 -
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
16000
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
4 décembre 2019
2830 -
Bonjour

quelle est la lettre de la dernière colonne utilisée ?
Bonjour
La dernière lettre du colonne est AB
michel_m
Messages postés
16000
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
4 décembre 2019
2830 -
Je dois m'absenter 1 ou 2 heures
en attendant répond à ma question post 7
Commenter la réponse de michel_m