XL 2013 Instruction non exécutée VBA

FlamXYZ · 14 Juillet 2020

Bonjour à tous,

Qu'est ce qui pourrait expliqué la non exécution de certaines instructions dans un bout de code?

En fait, avec l'enregistreur macro, j'ai exécuté une séquence de tache que j'ai ajoutée par la suite à un code écrit manuellement. Lorsque je lance la macro, parfois tout s'exécute correctement, et parfois des bouts d'instructions sont ignorées. Aucun message d'erreur ne s'affiche, mais tout n'est pas excuté comme commandé.

Auriez-vous des suggestions à me faire par rapport à cette situation? L'avez vous déjà expérimenté?

Merci pour votre partage et vos orientations

sylvanu · 14 Juillet 2020

Bonjour Flam,
Si on avait le code et les lignes non exécutées désignées, peut être l'un de nous aurait une explication.

FlamXYZ · 14 Juillet 2020

Hello!

Merci pour la reponse. Ci dessous les lignes dont l'execution est aléatoire.
Elles ont pour objectif d'ajouter des segments dans un tableau

VB:

Sub SegmentBaseIr()
Application.ScreenUpdating = False
Worksheets("COMPTES").Activate
Range("A16").Select
'
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("COMPTES"), _
        "Type ERREUR").Slicers.Add ActiveSheet, , "Type ERREUR 1", _
        "Type ERREUR", 9, 583.5, 144, 198.75
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("COMPTES"), _
        "Client").Slicers.Add ActiveSheet, , "Client 1", "Client", 46.5, 621, 144, _
        198.75
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("COMPTES"), _
        "Gestionnaire").Slicers.Add ActiveSheet, , "Gestionnaire 1", "Gestionnaire", 84 _
        , 658.5, 144, 198.75
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("COMPTES"), _
        "Marché").Slicers.Add ActiveSheet, , "Marché 1", "Marché", 121.5, 696, 144, _
        198.75
    ActiveSheet.Shapes.Range(Array("Marché 1")).Select
    ActiveSheet.Shapes.Range(Array("Type ERREUR 1")).Select
    Range("F2").Select
    ActiveSheet.Shapes.Range(Array("Type ERREUR 1")).Select
    ActiveSheet.Shapes.Range(Array("Type ERREUR 1", "Client 1")).Select
    ActiveSheet.Shapes.Range(Array("Type ERREUR 1", "Client 1", _
        "Gestionnaire 1")).Select
    ActiveSheet.Shapes.Range(Array("Type ERREUR 1", "Client 1", _
        "Gestionnaire 1", "Marché 1")).Select
    ActiveWorkbook.SlicerCaches("Segment_Type_ERREUR1").Slicers( _
        "Type ERREUR 1").Style = "SlicerStyleDark2"
    ActiveWorkbook.SlicerCaches("Segment_Client1").Slicers("Client 1").Style = _
        "SlicerStyleDark2"
    ActiveWorkbook.SlicerCaches("Segment_Gestionnaire1").Slicers("Gestionnaire 1"). _
        Style = "SlicerStyleDark2"
    ActiveWorkbook.SlicerCaches("Segment_Marché1").Slicers("Marché 1").Style = _
        "SlicerStyleDark2"
    With ActiveWorkbook.SlicerCaches("Segment_Type_ERREUR1").Slicers( _
        "Type ERREUR 1")
        .Caption = "Type ERREUR"
        .DisplayHeader = True
        .SlicerCache.CrossFilterType = xlSlicerCrossFilterHideButtonsWithNoData
        .SlicerCache.SortItems = xlSlicerSortAscending
        .SlicerCache.SortUsingCustomLists = True
    End With
    With ActiveWorkbook.SlicerCaches("Segment_Client1").Slicers("Client 1")
        .Caption = "Client"
        .DisplayHeader = True
        .SlicerCache.CrossFilterType = xlSlicerCrossFilterHideButtonsWithNoData
        .SlicerCache.SortItems = xlSlicerSortAscending
        .SlicerCache.SortUsingCustomLists = True
    End With
    With ActiveWorkbook.SlicerCaches("Segment_Gestionnaire1").Slicers( _
        "Gestionnaire 1")
        .Caption = "Gestionnaire"
        .DisplayHeader = True
        .SlicerCache.CrossFilterType = xlSlicerCrossFilterHideButtonsWithNoData
        .SlicerCache.SortItems = xlSlicerSortAscending
        .SlicerCache.SortUsingCustomLists = True
    End With
    With ActiveWorkbook.SlicerCaches("Segment_Marché1").Slicers("Marché 1")
        .Caption = "Marché"
        .DisplayHeader = True
        .SlicerCache.CrossFilterType = xlSlicerCrossFilterHideButtonsWithNoData
        .SlicerCache.SortItems = xlSlicerSortAscending
        .SlicerCache.SortUsingCustomLists = True
    End With
    Selection.ShapeRange.Align msoAlignLefts, msoFalse
    Selection.ShapeRange.Distribute msoDistributeHorizontally, msoFalse
    Selection.ShapeRange.IncrementLeft -504.75
    Selection.ShapeRange.IncrementTop -3.75
    Selection.ShapeRange.IncrementLeft -75
    Selection.ShapeRange.IncrementTop -1.5
    Range("B2").Select
    ActiveSheet.Shapes.Range(Array("Marché 1")).Select
    ActiveSheet.Shapes("Marché 1").IncrementLeft 165
    ActiveSheet.Shapes("Marché 1").IncrementTop -108
    ActiveSheet.Shapes.Range(Array("Gestionnaire 1")).Select
    ActiveSheet.Shapes("Gestionnaire 1").IncrementLeft 335.25
    ActiveSheet.Shapes("Gestionnaire 1").IncrementTop -72.75
    ActiveSheet.Shapes.Range(Array("Client 1")).Select
    ActiveSheet.Shapes("Client 1").IncrementLeft 515.25
    ActiveSheet.Shapes("Client 1").IncrementTop -36.75
    ActiveSheet.Shapes.Range(Array("Type ERREUR 1")).Select
    ActiveSheet.Shapes("Type ERREUR 1").IncrementLeft 674.25
    ActiveSheet.Shapes("Type ERREUR 1").IncrementTop 8.25
    ActiveSheet.Shapes.Range(Array("Marché 1")).Select
    ActiveSheet.Shapes("Marché 1").IncrementLeft -165
    ActiveSheet.Shapes("Marché 1").IncrementTop -0.75
    ActiveSheet.Shapes.Range(Array("Type ERREUR 1")).Select
    ActiveSheet.Shapes("Type ERREUR 1").IncrementLeft 287.25
    ActiveSheet.Shapes("Type ERREUR 1").IncrementTop -0.75
    ActiveSheet.Shapes.Range(Array("Client 1")).Select
    ActiveSheet.Shapes("Client 1").IncrementLeft 260.25
    ActiveSheet.Shapes("Client 1").IncrementTop 4.5
    ActiveSheet.Shapes.Range(Array("Gestionnaire 1")).Select
    ActiveSheet.Shapes("Gestionnaire 1").ScaleWidth 1.7864583333, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Gestionnaire 1").IncrementLeft -168.75
    ActiveSheet.Shapes("Gestionnaire 1").IncrementTop 2.25
    ActiveSheet.Shapes.Range(Array("Client 1")).Select
    ActiveSheet.Shapes("Client 1").IncrementLeft -207.75
    ActiveSheet.Shapes("Client 1").IncrementTop 2.25
    ActiveSheet.Shapes("Client 1").ScaleWidth 1.7708333333, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Client 1").IncrementLeft -66.75
    ActiveSheet.Shapes("Client 1").IncrementTop -1.5
    ActiveSheet.Shapes("Client 1").ScaleWidth 1.2676470588, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Client 1").IncrementLeft -28.5
    ActiveSheet.Shapes("Client 1").IncrementTop -0.75
    ActiveSheet.Shapes.Range(Array("Type ERREUR 1")).Select
    ActiveSheet.Shapes("Type ERREUR 1").ScaleWidth 1.578125, msoFalse, _
        msoScaleFromTopLeft
    ActiveWorkbook.SlicerCaches("Segment_Type_ERREUR1").Slicers( _
        "Type ERREUR 1").NumberOfColumns = 2
    ActiveSheet.Shapes("Type ERREUR 1").ScaleWidth 1.3729376402, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Type ERREUR 1").ScaleWidth 1.1177884318, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Type ERREUR 1").ScaleWidth 1.0494623544, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Type ERREUR 1").IncrementLeft 4.5
    ActiveSheet.Shapes("Type ERREUR 1").IncrementTop -3
    ActiveSheet.Shapes.Range(Array("Client 1")).Select
    ActiveSheet.Shapes("Client 1").IncrementLeft 159
    ActiveSheet.Shapes("Client 1").IncrementTop -2.25
    ActiveSheet.Shapes.Range(Array("Type ERREUR 1")).Select
    ActiveSheet.Shapes("Type ERREUR 1").IncrementLeft 57
    ActiveSheet.Shapes.Range(Array("Client 1")).Select
    ActiveSheet.Shapes("Client 1").IncrementLeft 57
    ActiveSheet.Shapes("Client 1").IncrementTop 3
    Range("COMPTES[[#Headers],[Type ERREUR]]").Select
    'ajout
    ActiveSheet.Shapes.Range(Array("Client 1")).Select
    ActiveSheet.Shapes("Client 1").IncrementLeft -245.25
    ActiveSheet.Shapes("Client 1").IncrementTop 0.75
    ActiveSheet.Shapes.Range(Array("Type ERREUR 1")).Select
    Range("H2:J3").Select
    Range("J2").Activate
    ActiveSheet.Shapes.Range(Array("Type ERREUR 1")).Select
    ActiveSheet.Shapes("Type ERREUR 1").IncrementLeft -231.75
    ActiveSheet.Shapes("Type ERREUR 1").IncrementTop 4.5
    Range("K10").Select
    Range("COMPTES[[#Headers],[Client]]").Select
   ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("COMPTES"), _
        "Nature compte").Slicers.Add ActiveSheet, , "Nature compte 1", "Nature compte" _
        , 314.25, 2732.25, 144, 198.75
    ActiveSheet.Shapes.Range(Array("Nature compte 1")).Select
    ActiveWorkbook.SlicerCaches("Segment_Nature_compte1").Slicers("Nature compte 1" _
        ).Style = "SlicerStyleDark2"
    With ActiveWorkbook.SlicerCaches("Segment_Nature_compte1").Slicers( _
        "Nature compte 1")
        .Caption = "Nature compte"
        .DisplayHeader = True
        .SlicerCache.CrossFilterType = xlSlicerCrossFilterHideButtonsWithNoData
        .SlicerCache.SortItems = xlSlicerSortAscending
        .SlicerCache.SortUsingCustomLists = True
    End With
    ActiveSheet.Shapes("Nature compte 1").IncrementLeft -445.5
    ActiveSheet.Shapes("Nature compte 1").IncrementTop -303.75
    ActiveWindow.SmallScroll ToRight:=-8
    ActiveSheet.Shapes("Nature compte 1").IncrementLeft -903.75
    ActiveSheet.Shapes("Nature compte 1").IncrementTop -3
    ActiveWindow.SmallScroll ToRight:=-9
    ActiveSheet.Shapes("Nature compte 1").IncrementLeft -202.5
    ActiveSheet.Shapes("Nature compte 1").IncrementTop 4.5
    ActiveWindow.SmallScroll ToRight:=0
    ActiveSheet.Shapes("Nature compte 1").ScaleWidth 1.15625, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Nature compte 1").ScaleWidth 1.1756756757, msoFalse, _
        msoScaleFromTopLeft
    Range("A17").Select
    Columns("AA:AA").Select
    Selection.EntireColumn.Hidden = True

sylvanu · 14 Juillet 2020

Oups, sorry. 😳
Je n'ai que XL2007 et ce sont des fonctions non encore implémentées.
Mais vous aurez surement une âme charitable qui va pouvoir vous aider.

Effectuez une recherche sur Excel Downloads...

XL 2013 Instruction non exécutée VBA

FlamXYZ

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

FlamXYZ

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Nous accordons de l'importance à votre vie privée