XL 2013 Instruction non exécutée VBA

F

FlamXYZ

XLDnaute Nouveau
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
 
Trier par date Trier par votes
F

FlamXYZ

XLDnaute Nouveau
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
 
Vote positif 0 Vote négatif

Membres actuellement en ligne

23 membres et 274 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 103
Messages
2 085 306
Membres
102 859
dernier inscrit
Diallokass