Bug dans une macro

Le 07/12/2022 à 22:03

Re-bonsoir,

J'ai un pb dans cette macro que je n'arrive pas à solutionner...

Private Sub ToggleButton1_Click()

If ToggleButton1 Then

'
Sheets("Codes Articles + Tarifs").Select
Sheets("(Prix)").Visible = True
Sheets("(Prix)").Select
Sheets("(Prix) Cas Part").Visible = True
Sheets("Codes Articles + Tarifs").Select
Sheets("4) Fusion pr TC").Visible = True
Sheets("Codes Articles + Tarifs").Select
Sheets("Coordonnées").Visible = True
Sheets("Recettes").Select
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
Sheets("FC Cas Part").Select
ActiveWindow.DisplayGridlines = True
Sheets("FC basse saison").Select
ActiveWindow.DisplayGridlines = True
Sheets("FC pleine saison").Select
ActiveWindow.DisplayGridlines = True
Sheets("Tableau de chargement").Select
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayGridlines = True
Sheets("Inventaire").Select
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
Sheets("Codes Articles + Tarifs").Select
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
Range("P1:AZ370").Select ---> pb sur cette ligne. A la base, j'avais " Columns ("P:AZ").Select ". Mais l'une ou l'autre formule ne fonctionne pas...
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets("Com (2) Cas Part").Select
ActiveWindow.DisplayGridlines = True
Sheets("Commandes").Select
ActiveWindow.DisplayGridlines = True
ToggleButton1.Caption = "M Travail"

Else
'

Sheets("Commandes").Select
ActiveWindow.DisplayGridlines = False
Sheets("Com (2) Cas Part").Select
ActiveWindow.DisplayGridlines = False
Sheets("Codes Articles + Tarifs").Select
Range("E2:KR3").Select
Range("P1:AZ370").Select ---> Idem. Le reste semble Ok; mais je n'ai jamais réussi à l'activer jusqu'au bout sans bug...
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A4").Select
Sheets("Inventaire").Select
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Sheets("Tableau de chargement").Select
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Sheets("FC pleine saison").Select
ActiveWindow.DisplayGridlines = False
Sheets("FC basse saison").Select
ActiveWindow.DisplayGridlines = False
Sheets("FC Cas Part").Select
ActiveWindow.DisplayGridlines = False
Sheets("Recettes").Select
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Sheets("4) Fusion pr TC").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("(Prix) Cas Part").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("(Prix)").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Coordonnées").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Commandes").Select
ToggleButton1.Caption = "M Utilisation"

End If
End Sub

Edit modo : code mis entre balises avec le bouton </>

Si qqn veut y jeter un oeil et me dire où cela bug...

Avec mes remerciements.

Cordialement,

Le 08/12/2022 à 03:42

Bonjour,

La feuille "Codes Articles + Tarifs" n'est-elle pas masquée? ou bien le nom de la feuille est-il correct (pas d'espace après le nom, cas fréquemment rencontré)?

Cdlt

Le 08/12/2022 à 04:28

Bonjour,

Il y a quelques trucs à changer dans le code 

Private Sub ToggleButton1_Click()
  If ToggleButton1 Then
    Sheets("(Prix)").Visible = xlSheetVisible
    Sheets("(Prix) Cas Part").Visible = xlSheetVisible
    Sheets("4) Fusion pr TC").Visible = xlSheetVisible
    Sheets("Coordonnées").Visible = xlSheetVisible
    Sheets("Recettes").Select
    ActiveWindow.DisplayGridlines = True
    ActiveWindow.DisplayHeadings = True
    Sheets("FC Cas Part").Select
    ActiveWindow.DisplayGridlines = True
    Sheets("FC basse saison").Select
    ActiveWindow.DisplayGridlines = True
    Sheets("FC pleine saison").Select
    ActiveWindow.DisplayGridlines = True
    Sheets("Tableau de chargement").Select
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayGridlines = True
    Sheets("Inventaire").Select
    ActiveWindow.DisplayGridlines = True
    ActiveWindow.DisplayHeadings = True
    With Sheets("Codes Articles + Tarifs")
      .Activate
      ActiveWindow.DisplayGridlines = True
      ActiveWindow.DisplayHeadings = True
      With .Range("P1:AZ370")
        With .Font
          .ColorIndex = xlAutomatic
          .TintAndShade = 0
        End With
        With .Interior
          .Pattern = xlNone
          .TintAndShade = 0
          .PatternTintAndShade = 0
        End With
      End With
    End With
    Sheets("Com (2) Cas Part").Select
    ActiveWindow.DisplayGridlines = True
    Sheets("Commandes").Select
    ActiveWindow.DisplayGridlines = True
    ToggleButton1.Caption = "M Travail"

  Else

    Sheets("Commandes").Select
    ActiveWindow.DisplayGridlines = False
    Sheets("Com (2) Cas Part").Select
    ActiveWindow.DisplayGridlines = False
    With Sheets("Codes Articles + Tarifs")
      .Activate
      ActiveWindow.DisplayGridlines = False
      ActiveWindow.DisplayHeadings = False
      ActiveWindow.ScrollColumn = 1
      With .Range("P1:AZ370")
        With .Font
          .ThemeColor = xlThemeColorDark1
          .TintAndShade = 0
        End With
        With .Interior
          .Pattern = xlSolid
          .PatternColorIndex = xlAutomatic
          .ThemeColor = xlThemeColorDark1
          .TintAndShade = 0
          .PatternTintAndShade = 0
        End With
      End With
    End With
    Sheets("Inventaire").Select
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Sheets("Tableau de chargement").Select
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Sheets("FC pleine saison").Select
    ActiveWindow.DisplayGridlines = False
    Sheets("FC basse saison").Select
    ActiveWindow.DisplayGridlines = False
    Sheets("FC Cas Part").Select
    ActiveWindow.DisplayGridlines = False
    Sheets("Recettes").Select
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Sheets("4) Fusion pr TC").Visible = xlSheetHidden
    Sheets("(Prix) Cas Part").Visible = xlSheetHidden
    Sheets("(Prix)").Visible = xlSheetHidden
    Sheets("Coordonnées").Visible = xlSheetHidden
    Sheets("Commandes").Select
    ToggleButton1.Caption = "M Utilisation"
  End If
End Sub

A+

Le 08/12/2022 à 22:05

Bonsoir,

Désolée de ma réponse tardive...grosse journée...

@ Arturo: la feuille n'est pas masquée, et j'ai vérifié les espaces, pas de pb... Merci qd mm!

@ Bruno: trop top!!! fabuleux!

Ca marche nickel. J'avais enregistré ma macro via l'enregistreur dans développeur (je n'ai pas maitrisé l'écriture du code), et je prends bien note des modif apportées... En effet, c'est bien plus clair! Et ca marche parfaitement!

Je m'en resservirai certainement!

Un grand MERCI!

Bien cordialement,

Le 08/12/2022 à 22:43

Re-bonsoir,

@ Arturo: merci pour les tuyaux, ça vient de me servir pour une autre macro!!!

J'apprends une qté de choses depuis que je suis sur ce forum! un truc de ouf, trop cool !

Merci!!

Rechercher des sujets similaires à "bug macro"