Macro utilisant une feuille cachée

[JM]

Bonjour,
si une macro a dans une ligne de commande une sélection d'une feuille cachée, la macro "bugge". J'ai essayé de rendre la feuille visible le temps d'executer la macro, mais il y a peut-être plus simple, mais là, je ne sais pas comment faire.
Quelqu'un pourrait-il m'aider ?
Merci et bon dimanche
JM

 

[chris]

Bonjour
Il n'est pas toujours nécessaire d'effectuer une sélection (d'ailleurs ça prends plus de temps d'exécution) : tu peux te référer à des plages d'une feuilles sans les sélectionner.
Sinon il faut effectivement "démasquer" la feuille le temps de la macro puis la remasquer.
Chris

 

[Moa]

Salut Jm !

En effet, pour utiliser Select, il faut que la feuille soit visible.

Donc, il faut modifier ta macro en utilisant "Activate" ou rien.

Pour imager :

Quand tu "Select", tu tiens l'objet dans ta main.

Quand tu "Activate", tu l'allumes avec une télécommande.

Quand tu lui donnes un ordre sans Activate ni Select, tu lui donne directement l'ordre, avec une télécommande.

Comment modifier ta macro en conséquence ?

Prenons une macro simple, avec "Select" :

Sub Macro1()
Sheets("Feuil2").Select
Range("B4:C7").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

Devient avec "Activate" :

Sub Macro2()
Sheets("Feuil2").Activate
Range("B4:C7").Interior.ColorIndex = 6
End Sub

Sans "Select" ni "Activate" :

Sub Macro3()
Sheets("Feuil2").Range("B4:C7").Interior.ColorIndex = 6
End Sub

Dans la macro1, la feuille foit être visible, dans les macros 2 et 3, elle peut-être masquée.

Un autre Exemple, simple aussi, fait avec l'enregistreur de macro :

Sub Macro4()
Sheets("Feuil1").Select
Range("B37").Select
Selection.Copy
Sheets("Feuil2").Select
Range("E5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Deviendra :

Sub Macro5()
Sheets("Feuil2").Range("E5:G9") = Sheets("Feuil1").Range("B37").Value
End Sub


Bonne jouréne à toi

@ +

Moa

 

[JM]

Merci à vous Chris et Moa et bon dimanche également
JM