Sélections feuilles et graphiques

[Regor]

Bonjour

Je souhaite pouvoir sélectionner les feuilles et ou les graphiques de mon classeur Excell.

Avec les codes ci-desous, c'est soit les feuilles ou les graphiques.

Merci de votre aide

Regor

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub graph()
 
Dim s() As String
Dim F As Chart
Dim Rep As Integer
Dim i As Integer
 
For Each F In Charts
 Select Case MsgBox("Sélection feuille : " & F.Name, vbYesNo + vbQuestion)
  Case vbYes
   ReDim Preserve s(i)
    s(i) = F.Name
    i = i + 1
   Debug.Print "Rajout de " & F.Name
  Case vbNo
   Debug.Print "refut de " & F.Name
 End Select
Next
If i > 0 Then
Sheets(s).Select
End If
 
End Sub

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub feuil()
 
Dim s() As String
Dim F As Worksheet
Dim Rep As Integer
Dim i As Integer
 
For Each F In Worksheets
 Select Case MsgBox("Selection feuille : " & F.Name, vbYesNo)
  Case vbYes
   ReDim Preserve s(i)
    s(i) = F.Name
    i = i + 1
   Debug.Print "Rajout de " & F.Name
  Case vbNo
   Debug.Print "refut de " & F.Name
 End Select
Next
If i > 0 Then
Sheets(s).Select
End If
 
End Sub