macro et feuilles masquées

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

laurent999

XLDnaute Occasionnel
Bonjour a tous,

Novice je viens de créer une macro faisant référence à plusieurs feuilles.Lorsque j'utilise la macro tout ce passe bien sauf quand je masque ces feuilles.Je suis obligé de les masquer car le fichier est transmi à d'autres utilisateurs qui utiliserons la macro via un bouton entrée.Comment faire pour que ces feuilles restent invisible, même pendant l'exécution de la macro?

Merci a tous.
 
Trier par date Trier par votes
Re : macro et feuilles masquées

Bonsoir,
L'idéal serait de nous passer ton code.....enfin essaie déjà ça:
Si tu as enregistré ta macro, tes feuilles sont appelées de la manière suivante:
Code: 
Sheets("Feuil1").Select

En général (mais soit prudent....) tu peux enlever le "Select" et remonter la ligne suivante à la suite (exemple en dessous si ce n'est pas clair). De même, supprimer les .Select / Selection.
Tu vas ainsi faire appel à tes cellules sans les sélectionner! Incroyable n'est-ce pas?

ex:
Code: 
Sheets("Feuil1").Select
Range("A1").Select
Selection.Copy

Se simplifie en

Code: 
Sheets("Feuil1").Range("A1").Copy

En espérant que ça suffise....

Cordialement
 
Vote positif 0 Vote négatif
Re : macro et feuilles masquées

Merci pour ta réponse,

Cependant je n'ai pas tout saisi.

Voici la macro

peux-tu y jeter un oeuil?

merci


Sub Macro2()
'
' Macro2 Macro
'

'
Sheets("l").Select
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
Range("H1:O28").Select
Selection.Copy
Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=5
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("l").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("l").Sort.SortFields.Add Key:=Range("X1:X28"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("l").Sort
.SetRange Range("Q1:X28")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 16
Columns("Q:W").Select
Range("W1").Activate
Selection.Copy
Range("Y1").Select
ActiveSheet.Paste
Range("X1:AE27").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A12").Select
ActiveSheet.Paste
Sheets("Feuil3").Select
Range("A1:K854").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll ToRight:=1
Range("N2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("N:X").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range("P2😛972") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil3").Sort
.SetRange Range("N1:X972")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
Range("AA1:AB6").Select
Selection.Copy
Range("AC1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Columns("AC:AD").Select
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range( _
"AC1:AC972"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
Range("AA1:AB7").Select
Selection.Copy
Range("AC1:AD7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range("AC1:AC7") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil3").Sort
.SetRange Range("AC1:AD7")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
 
Vote positif 0 Vote négatif
Re : macro et feuilles masquées

Bon, je donne un coup de hache la-dedans....mais en fait il y a plus simple (moi pas réveillé....)

Au début de ta macro, tu ajoute

Application.ScreenUpdating = False

(juste en-dessous de Sub Macro2() )

et à l'avant dernière ligne,

Application.ScreenUpdating = True

Ca désactive (resp. active) le rafraichissement de l'écran.....tu ne vois rien à ce qui se passe, et la macro s'effectue en moyenne environ 20x plus vite! Tout bénéf!

Cordialement
 
Vote positif 0 Vote négatif
Re : macro et feuilles masquées

Oups, je viens de relire ton premier post, et il semblerait que j'ai mal compris!
Que se passe-t-il quand tu masques les feuilles?
Est-ce que la macro ne fonctionne pas? Ou bien le problème est qu'elles deviennent visibles durant l'exécution de la macro,ce que tu ne souhaites pas?

Cordialement
 
Vote positif 0 Vote négatif
Re : macro et feuilles masquées

En effet, j'avais mal compris....ce que je te propose (pour faire simple), c'est d'enregistrer une macro qui cache, puis affiche une feuille, histoire de voir ce que ça donne en VBA.

Puis tu mets ces lignes au début (afficher feuille) et à la fin (cacher) de ta macro (en l'appliquant à la bonne feuille)....N'hésite pas à revenir si ça ne fonctionne toujours pas.

Cordialement
 
Vote positif 0 Vote négatif
Re : macro et feuilles masquées

Et comme promis, le code allégé....mais quand les XLDnautes barbatrucs vont passer par là, ils vont encore réduire ça de moitié 😀

Le premier truc, facile à enlever, c'est les "ActiveWindow.ScrollColumn =....", ça correspond à quand tu fais défiler ta page.....vraiment inutile, sans aucune hésitation!

Code: 
Sub Macro2()

Application.ScreenUpdating = False

ActiveWindow.Sheets("l").Visible = True

Sheets("l").Range("H1:O28").Copy

Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWorkbook.Worksheets("l").Sort.SortFields.Add Key:=Range("X1:X28"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("l").Sort
    .SetRange Range("Q1:X28")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Columns("Q:W").Copy
Range("Y1").Select
ActiveSheet.Paste

Range("X1:AE27").Copy
Sheets("Feuil2").Select
Range("A12").Select
ActiveSheet.Paste

Sheets("Feuil3").Range("A1:K854").Copy
Range("N2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Columns("N:X").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range("P2:P972") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil3").Sort
    .SetRange Range("N1:X972")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Range("AA1:AB6").Copy
Range("AC1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Columns("AC:AD").Select
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range( _
"AC1:AC972"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

Range("AA1:AB7").Copy
Range("AC1:AD7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range("AC1:AC7") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil3").Sort
    .SetRange Range("AC1:AD7")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

ActiveWindow.Sheets("l").Visible = False

Application.ScreenUpdating = True
End Sub
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
M
  • Question Question
XL 2021 Protection des onglets
Réponses
2
Affichages
414
MANU64360
M
Y
  • Question Question
XL 2021 Lien Hypertexte et feuilles masquées
Réponses
4
Affichages
1 K
Yacine
Y
CGU2022.
  • Résolu(e)
XL 2013 Masquer un shape (forme) définit dans toutes les feuilles
2
Réponses
17
Affichages
2 K
sylvanu
sylvanu
T
  • Question Question
Microsoft 365 Vérifications et simplifications de Macro
Réponses
2
Affichages
646
TAL
T
Lu76Fer
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
685
Lu76Fer
Lu76Fer
C
  • Question Question
XL 2010 grâce à une userform modifier une ligne dans deux feuilles
Réponses
3
Affichages
987
ccia
C
A
  • Résolu(e)
XL 2013 Actionner les commandes présentes dans d'autres feuilles
Réponses
3
Affichages
1 K
arnoldbrice19
A
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
1 K
fanfan38
fanfan38
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
9 K
Scorp0211
S
lajoie25
  • Question Question
XL 2016 rendre inaccessible des feuilles masquées par clic droit afficher
Réponses
2
Affichages
1 K
patricktoulon
patricktoulon
J
  • Résolu(e)
XL 2013 Vba - Suppression des noms dont le resultat est #REF
Réponses
4
Affichages
3 K
juicelink
J
P
  • Question Question
XL 2019 Enregistrer et imprimer une feuille en pdf
Réponses
9
Affichages
2 K
PeewhY
P
M
  • Question Question
Problème de référence formule et graphique lors de copie de feuilles excel pour réinitialiser données
Réponses
4
Affichages
2 K
mathi22
M
S
  • Résolu(e)
XL 2010 Macro enregistrement PDF + choix des feuilles
2 3 4
Réponses
50
Affichages
7 K
safranien
S
M
  • Question Question
XL 2013 Macro pour faire la somme d'une même cellule sur plusieurs feuilles en ignorant les feuilles masquées
Réponses
4
Affichages
1 K
mariebasile
M
M
  • Résolu(e)
Supprimer une ligne d'un tableau selon la valeur d'une cellule sous VBA (sans supprimer les lignes au dessus)
Réponses
14
Affichages
9 K
MaDesn
M
E
  • Question Question
XL 2019 VBA Afficher toutes les feuilles et remasquer l'ensemble en fonction d'une variable
Réponses
4
Affichages
2 K
E5kobar
E
osiris150
  • Question Question
XL 2013 Feuilles masqués lors d'envoi email en VBA
Réponses
2
Affichages
1 K
osiris150
osiris150
G
  • Question Question
[RESOLU] Masque et demasque avec VBA (Pbléme de mise à jour)
Réponses
1
Affichages
564
greg63
G
Retour