Hello,

Je me retrouve à nouveau bloquée et j'ai l'impression que ce que j'essaie de bricoler ne ressemble à rien du tout...! (n'est-ce vraiment qu'une impression ? ^^)
J'ai essayé de faire une compil de mes recherches sur le forum et d'adapter à mon cas mais je n'y arrive pas n'ayant pas les connaissances suffisantes.
Si quelqu'un pouvait m'aider et m'expliquer ce qui ne va pas ?

Pour chaque feuille du classeur, si B3="Nantes", alors sélectionner tous les feuilles concernées (pour les exporter en pdf par la suite)

Merci d'avance pour ceux qui auront la gentillesse de répondre.


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
16
17
 
Sub CommandButton1_Click()
 
Dim sh As Worksheet
 For Each sh In ActiveWorkbook.Worksheets
    With Sheets(sh).UsedRange
    Set t = Sheets(1).Range("B3").Value
 
     If t = "Nantes" Then
       Sheets(sh).Activate
 
 
 
        End If
        End With
        Next
        End Sub