Comment faire une copie depuis une feuille masquée.
Résolu
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
-
ContributeurEn partant toujours ligne 2 folio "avancement etc" puisqu'on nettoie avant tout
La maquette
https://mon-partage.fr/f/wcpCxdu3/
-
ContributeurBonjour
pour vous adresser à la feuille masquée, remplacer Select par Activate
crdlmnt
-
ContributeurBonjour 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...
