Comment faire une copie depuis une feuille masquée.

Résolu
madani.m Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
 madani_m -
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:

3 réponses

Réponse 1 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
En partant toujours ligne 2 folio "avancement etc" puisqu'on nettoie avant tout



La maquette
https://mon-partage.fr/f/wcpCxdu3/
1
madani_m
 
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
0
Réponse 2 / 3
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
Bonjour
pour vous adresser à la feuille masquée, remplacer Select par Activate
crdlmnt
0
madani.m Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour votre réponse
Déjà fait mais aucune résultats malheureusement
0
Réponse 3 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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...

0
madani.m Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Donc, tu ne veux pas rendre la feuille CF SALE 1 visible ?
0
madani.m Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour

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

Discussions similaires

Copier un lien instagram
alaurore -
LEFEUVRE -

7 réponses
Sécurité de l'URL
ghaouar -
fiddy -

2 réponses
comment lire un message masqué????
linx33 -
linx33 -

6 réponses
La nouvelle messagerie du Boncoin....
Utilisateur anonyme -
Madabatro -

69 réponses
Retrouver liens copiés sur le téléphone
SAMA -
Peterson -

3 réponses