Discussion :

[housemiouzic]

bonjour à tous,

j'ai un petit problème avec une macro excel : je m'explique, j'ai des tableaux qui sont générés dans des feuilles différente grâce à une autre macro. Sauf que je souhaite masquer ces feuilles (pour des raisons personnelles). J'ai alors utiliser la méthode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
Dim ws As Worksheet  
For Each ws In Worksheets
 
If ws.Name Like "Tab*" Then
 
ws.Select
ActiveWindow.SelectedSheets.Visible = False
End If
Next ws

et ca marche bien,

sauf que dans une autre macro, qui doit copier les tableaux cachés dans une présentation powerpoint, ca ne copie pas les tableaux. Alors que si je "démasque" mes feuilles, ca les colles très bien.
j'ai alors pensé a mettre ce code au début de ma macro qui copie les tableaux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim ws As Worksheet  
For Each ws In Worksheets
 
If ws.Name Like "Tab*" Then
 
ws.Select
ActiveWindow.SelectedSheets.Visible = true
End If
Next ws

mais ca ne marche pas..

je n'arrive pas a comprendre pourquoi, il n'arrive pas à me copier mes tableaux alors que les feuilles de départ sont cachées.

[fring]

Bonjour,

Il ne te viendrait pas à l'esprit que le problème ne provient peut-être pas du fait que les feuilles soient masquées mais de la manière dont tu copies les tableaux.

Ma main à couper que dans ta procédure de copie tu as des "Select"

Prend un classeur vierge, mets y une donnée dans la cellule A1 de la feuille 1 et essaie ces deux petits bouts de code.
Refait le même essais après avoir masqué la feuille 1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test1()
    Sheets("feuil1").Select
    Range("A1").Select
    Selection.Copy
    Sheets("feuil2").Select
    Range("A1").Select
    Selection.PasteSpecial xlValue
    Application.CutCopyMode = False
End Sub
 
Sub test2()
    Sheets("feuil1").Range("A1").Copy
    Sheets("feuil2").Range("A1").PasteSpecial xlValue
    Application.CutCopyMode = False
End Sub

[housemiouzic]

ta main est sauve !

j'ai arrangé à ma sauce et ca marche bien. Merci Beaucoup, je vais bannir le Select à partir d'aujourd'hui

[Gorfael]

Salut housemiouzic et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim ws As Worksheet  
For Each ws In Worksheets
If ws.Name Like "Tab*" Then
ws.Visible = true
End If
Next ws

2 choses :
- Tu ne peux pas sélectionner un objet invisible ou inatif. Donc, fait faire sans select.
- Select est un bouffeur de temps, et des fois, n'est pas autorisé (quand tu es sur un module lié à une feuille pour une instruction sélectionnant une plage d'une autre feuille, quand la feuille est masquée , par exemple :
conclusion : éviter les sélect, au maximum.
A+