Problème Select Case multiples

Version imprimable

Bonjour Forum,

Je bloque sur un select case :aie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
 
Private Sub Btnvalider_Click()
  Dim strChemin As String
  Dim strNomFic As String
  Dim Lg
 
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  ' Si le nom du fichier n'est pas saisi, message alerte et on ne fait rien
  strNomFic = TextBox1.Value
  If strNomFic = "" Then
    MsgBox "Le nom du fichier doit être saisi", vbCritical, "Enregistrement impossible"
    Exit Sub
  End If
  If strChemin = "" Then strChemin = ThisWorkbook.Path
  ' Copie en Excel
  Select Case Sheets("47").Range("M1")
     Case "Vente Janvier"
     With Sheets("1")
    .Visible = xlSheetVisible
    .Copy
    .Visible = xlSheetHidden
    End With
     Case Else
       MsgBox "Page inexistante"
        Exit Sub
  End Select
        ActiveSheet.SaveAs strChemin & "\" & strNomFic
        ' Fermer le fichier sauvegardé
        ActiveWorkbook.Close
 
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
 
 
End Sub

Je souhaites modifier ma macro pour que si je selectionne Vente Février il aille me chercher la feuille 2 et si je sélectionne Vente Mars idem feuille 3 ect...

En vous remerciant par avance car je bloque vraiement sur ce point :cry:

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Select Case Sheets("47").Range("M1")
     Case "Vente Janvier"
          With Sheets("1")
              .Visible = xlSheetVisible
              .Copy
              .Visible = xlSheetHidden
         End With
     Case "Vente Février"
          With Sheets("2")
              .Visible = xlSheetVisible
              .Copy
              .Visible = xlSheetHidden
         End With
     Case "Vente Mars"
          With Sheets("3")
              .Visible = xlSheetVisible
              .Copy
              .Visible = xlSheetHidden
         End With
     '(...etc...)
     Case Else
          MsgBox "Page inexistante"
          Exit Sub
End Select

Par contre, est-ce que la macro est complète ? Je ne vois pas trop ce qu'elle fait, une feuille est sélectionnée et copiée mais jamais collée...

Bonjour,
quelquechose comme ceci, par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
  Dim sh as integer
'....
 
sh = 0
Select Case Sheets("47").Range("M1")
     Case "Vente Janvier"
         sh  = 1
     Case "Vente Février"
        sh = 2
'....
     Case "Vente Décembre"
       sh = 12
     Case else
       MsgBox "Page inexistante"
        Exit Sub
     end select
 
 
     With Sheets(sh)
        .Visible = xlSheetVisible
        .Copy
        .Visible = xlSheetHidden
    End With
 
'....

06/01/2011, 10h09
pgz

Bonjour

Citation:

Envoyé par tedo01

Par contre, est-ce que la macro est complète ? Je ne vois pas trop ce qu'elle fait, une feuille est sélectionnée et copiée mais jamais collée...

Attention, il s'agit de la méthode copy de l'objet Worksheet. Il n'y a pas de coller. Si les paramètres Before et after sont omis, la feuille est copiée dans un nouveau classeur.

Cordialement,

PGZ
06/01/2011, 10h29
Estimea

1 pièce(s) jointe(s)

Plop tout le monde ;)

Merci à vous deux la macro fonctionne parfaitement en "multi case"

Cette macro me sert à export une feuille vers un nouveau classeur (Fichier ci-joint)

J'ai constaté un petit souci après l'export de la feuille la listbox se fige pendant environ 10 à 15 seconde et je vois vraiement pas pourquoi.

Merci encore à vous