code vba a modifié

[fr832]

Bonsoir à tous voila j'utilise ce code pour masquer des feuilles et ça fonctionne impeccable,

 Option Explicit

Private Sub CB_1_Click()
    Dim I As Integer, MesSht As String, TSht() As String
  ' Tableau des feuilles à AFFICHER/CACHER séparée par des virgule
  MesSht = "Feuil1,Feuil2,Feuil4"
  TSht = Split(MesSht, ",")
  '
  If CB_1.Caption = "Afficher les feuilles" Then
    ' Demander le mot de passe
    USF_Mdp.TextBox1.Value = ""
    USF_Mdp.Show
    If FlgOk = False Then
      MsgBox "Mot de passe érroné !"
      Exit Sub
    End If
    ' Si OK, masquer les feuilles
    For I = 0 To UBound(TSht)
      Sheets(TSht(I)).Visible = xlSheetVisible
    Next I
    CB_1.Caption = "Masquer les feuilles"
    CB_1.BackColor = 255
  Else
    For I = 0 To UBound(TSht)
      Sheets(TSht(I)).Visible = xlSheetVeryHidden
    Next I
    CB_1.Caption = "Afficher les feuilles"
    CB_1.BackColor = 32768
  End If
  Range("A1").Select
End Sub

ensuite j'ai fais ce code pour récupérer des données , il fonctionne quand mes feuilles sont affichées, et lorsqu'elles sont masquée ça bug ou le texte est en rouge.

Private Sub CommandButton2_Click()
[COLOR="Red"]Sheets("Feuil1").Select[/COLOR]
    Range("K302:X303").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("F10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Range("F9:G23").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("G10"), Order1:=xlDescending, Key2:=Range( _
        "F10"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
    'Range("F8").Select
    Sheets("accueil").Select

Comment puis je modifier ce code afin qu'il puisse fonctionner les feuilles masquées?

par avance merci

 

[kllmoon]

Re : code vba a modifié

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Sheets("Feuil1").Visible = True
Sheets("Feuil2").Visible = True
Sheets("Feuil1").Select
    Range("K302:X303").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("F10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Range("F9:G23").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("G10"), Order1:=xlDescending, Key2:=Range( _
        "F10"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
    'Range("F8").Select
    Sheets("accueil").Select
Sheets("Feuil1").Visible = False
Sheets("Feuil2").Visible = False
Application.ScreenUpdating = True

 

[fr832]

Re : code vba a modifié

Bonsoir KLLMOON super je te remercie mes amitiés et mes meilleurs voeux, bye