VBA: Sélectionner les feuilles Visibles

[MJ13]

Bonjour à tous

Je cherche, en VBA, à sélectionner toutes les feuilles visibles d'un classeur, sachant que j'ai des feuilles masquées.

Merci d'avance 🙂.

 

[MJ13]

Re : VBA: Sélectionner les feuilles Visibles

Re

J'ai trouvé un code qui a l'air de fonctionner 🙂. Je l'aurais difficilement trouvé tout seul 😱.

Sub SelectAllSheetsVisible()
'http://www.developpez.net/forums/d976183/logiciels/microsoft-office/excel/macros-vba-excel/muli-selection-sheets-vba/
Dim Nom_Feuilles() As Variant, j, n
n = Sheets.Count 'Me.ListBox1.ListCount
j = 0
' Stop
For i = 1 To n '- 1
    'If Me.ListBox1.Selected(i) = True Then
    If Sheets(i).Visible = True Then
        ReDim Preserve Nom_Feuilles(j)
        Nom_Feuilles(j) = Sheets(i).Name 'Me.ListBox1.List(i)
        j = j + 1
    End If
Next
If j > 0 Then
    Sheets(Nom_Feuilles()).Select
End If
End Sub

 

[camarchepas]

Re : VBA: Sélectionner les feuilles Visibles

Bonjour MJ13,

Santé, Bonheur et Prospérité.

Peut-être plus simple , si cela correspond à tes besoins

La variable nom n'est juste la que pour le debbug, et la compréhension de fonctionnement , a supprimmer ensuite

Sub SelectionFeuilles()
Dim Onglet As Worksheet
Dim Nom As String
For Each Onglet In ActiveWorkbook.Sheets
 Nom = Onglet.Name
    If Onglet.Visible Then Onglet.Select Replace:=False
Next
End Sub

 

[Pierrot93]

Re : VBA: Sélectionner les feuilles Visibles

Bonjour Michel, camarchepas,

c'est fait alors je post :

Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Visible = xlSheetVisible Then ws.Select False
Next ws

bonne journée
@+

 

[MJ13]

Re : VBA: Sélectionner les feuilles Visibles

Bonjour camarchepas, Pierrot

Merci à vous deux 🙂. Y'a pas à dire, vous êtes des champions 😱. En plus, c'est des codes de Ouf 😱.

Cela augure une bonne année 🙂.

 

[xuorel]

Re : VBA: Sélectionner les feuilles Visibles

Bonjour MJ13,

Santé, Bonheur et Prospérité.

Peut-être plus simple , si cela correspond à tes besoins

La variable nom n'est juste la que pour le debbug, et la compréhension de fonctionnement , a supprimmer ensuite

Sub SelectionFeuilles()
Dim Onglet As Worksheet
Dim Nom As String
For Each Onglet In ActiveWorkbook.Sheets
 Nom = Onglet.Name
    If Onglet.Visible Then Onglet.Select Replace:=False
Next
End Sub

pourriez-vous m'expliquer les actions de ces deux lignes :

Nom = Onglet.Name
    If Onglet.Visible Then Onglet.Select Replace:=False

merci

 

[camarchepas]

Re : VBA: Sélectionner les feuilles Visibles

Bonjour Xuorel,

Alors :
- Nom étant une variable de type chaine est chargée par le la propriété Name de l'onglet en cours de scrutation dans la boucle
- Onglet.visible donne l'état de la propriété visible de l'onglet en cours de scrutation dans la boucle,
et si celuici est vrai donc visible on selectionne l'onglet replace à faux permet de conserver les onglets sélectionné au paravent . (Comme lorsque l'on appuie sur CTRL et click souris sur les onglets de façon manuelle)

Voilà, donc pour faire court , l'on sélectionne toutes les feuilles visibles du classeur pour par exemple une opération d'impression ou de copie.

 

[xuorel]

Re : VBA: Sélectionner les feuilles Visibles

Ok merci.
Mais a quoi sert la variable NOM ?

 

[camarchepas]

Re : VBA: Sélectionner les feuilles Visibles

si tu relis , c'est écrit :

La variable nom n'est juste la que pour le debbug, et la compréhension de fonctionnement , à supprimmer ensuite

 

[xuorel]

Re : VBA: Sélectionner les feuilles Visibles

autant pour moi, j'étais passé un peu vite la dessus. Désolé et encore merci