erreur vba macro excel

Question

Bonjour

J'ai fait ce petit code sur un fichier excel 2010
A l'action du bouton sur les feuilles j'obtiens le message suivant :
La valeur tapée est en dehors des limites

voici mon code
Sub SaveFeuilleActive()
Dim Sh As Shape
     ActiveSheet.Copy
     'Affiche la boîte de dialogue
     Application.Dialogs(xlDialogSaveAs).Show
     ActiveSheet.PrintOut
    For Each Sh In ActiveSheet.Shapes
     If Sh.Name Like "Button*" Then Sh.Delete
    Next Sh
     ActiveWorkbook.Save
     ActiveWorkbook.Close
     Select Case ActiveSheet.Name
     Case "ICL Cadres Métallurgie", "ICL Etam Ouvriers Métallurgie"
         Range("B1:B6,B9,B10,E3:E14,B13").ClearContents
         MsgBox "les données sont effacées"
     Case "ICL Ouvrier TP", "ICL Ouvriers Bâtiment"
         Range("B1:B6,B9,B10,E3:E15,B13").ClearContents
         MsgBox "les données sont effacées"
     Case "ICL Cadres Intermittents", "ICL Non Cadres Intermittents"
         Range("B1:B4,B6,B9,B10,E3:E14,B14").ClearContents
         MsgBox "les données sont effacées"
     Case "ICL IAC Bâtiment", "ICL Etam Bâtiment", "ICL IAC TP", "ICL ETAM TP"
         Range("B1:B6,B9,B10,F3:F15,E14,B13").ClearContents
         MsgBox "les données sont effacées"
     Case "Ind Retraite IAC TP", "Ind Retraite IAC Bâtiment", "Ind Retraite ETAM TP", "Ind Retraite ETAM Bâtiment"
         Range("B1:B6,B9,B10,F3:F14,E14").ClearContents
         MsgBox "les données sont effacées"
     Case "Ind Retraite Métallurgie", "Ind Retraite Intermittents"
         Range("B1:B6,B9,B10,F3:F14").ClearContents
         MsgBox "les données sont effacées"
     End Select
     Sheets("Menu").Select
     Range("A1:O1").Select
End Sub

Quelqu'un peut il m'aider svp

Merci beaucoup

Cdt

cs_Megafan · Answer

Pour commencer à t'aider je dirais :
Pose la question dans le bon forum, tu auras plus de chance d'avoir une réponse...

Megafan

Développeur de http://www.o10c.eu (Lien)


La nouvelle référence en matière de jeu de stratégie spatiale .

Erreur vba macro excel

1 réponse

Votre réponse

Discussions similaires