Comment faire une copie depuis une feuille masquée.
Résolu
madani.m
Messages postés
5
Statut
Membre
-
madani_m -
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 :
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
3 réponses
-
En partant toujours ligne 2 folio "avancement etc" puisqu'on nettoie avant tout
La maquette
https://mon-partage.fr/f/wcpCxdu3/
-
Bonjour
pour vous adresser à la feuille masquée, remplacer Select par Activate
crdlmnt
-
Bonjour madami.m,
Mes respects, mon cher Vaucluse :o)
Principe pour effacer des lignes sur une feuille masquéeSub 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...
