Discussion :

[Scoubi7]

Bonjour,

Je souhaiterais supprimer toutes les Shapes d'un classeur
cela fonctionne avec la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        For Each Shape In ActiveSheet.Shapes
            Shape.Delete
        Next Shape

jusqu'à ce que cela soit le tour des Comboboxes, j'obtiens une erreur car je leur ai attribué des Sub ComboBox0?_Change() (? remplace un nombre car il y en a plusieurs)

Quelqu'un a-t-il une solution ?

[Invité]

Bonjour,

A essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub EssaiSuppressionShape()
 
Dim ShapeEnCours As Shape
Dim OngletEnCours As Worksheet
 
    Application.EnableEvents = False
 
    For Each OngletEnCours In ActiveWorkbook.Worksheets
        For Each ShapeEnCours In OngletEnCours.Shapes
            ShapeEnCours.Delete
        Next ShapeEnCours
    Next OngletEnCours
 
    Application.EnableEvents = True
 
End Sub

Cordialement.

[Scoubi7]

Merci pour ton aide

Non toujours pareil

[Invité]

Non toujours pareil

Il faudrait tester sur un fichier sans données confidentielles.

Cordialement.

[Scoubi7]

Si finalement j'avais essayé de l'intégrer dans mon code directement en ajoutant uniquement "Application.EnableEvents = False"
mais quand je lance ta macro seule, cela fonctionne
Je vais chercher d'où cela peut provenir dans mon code

Merci !

[Invité]

Je vais chercher d'où cela peut provenir dans mon code

Il faut intégrer "Application.EnableEvents = False" en début de la procédure principale qui devrait se trouver dans un module standard.

Cordialement.

[Scoubi7]

Je me demande si cela ne vient pas d'une incompatibilité avec "On Error Resume Next" ou "Application.DisplayAlerts = False"

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Proprio(WB As Workbook, ByVal Password As String)
    On Error Resume Next
    Application.DisplayAlerts = False
    Chemin = ThisWorkbook.Path
    Fichier = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
    ThisWorkbook.SaveAs Filename:=Chemin & "\" & Fichier & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    For Each Sheet In Worksheets
        Sheet.Activate
        Sheet.Unprotect (PasswordA)
        Sheet.Unprotect (PasswordB)
        With ActiveSheet.UsedRange
            .Value = .Value
            .FormatConditions.Delete
        End With
        Application.EnableEvents = False
        For Each Shape In ActiveSheet.Shapes
            Shape.Delete
        Next Shape
        Application.EnableEvents = True
        If ActiveSheet.Visible = False Then ActiveSheet.Delete
    Next Sheet
    ThisWorkbook.Code = ""
    'Kill (Chemin & "\" & Fichier & ".xls") ' A intégrer quand finalisé
    Application.DisplayAlerts = True
    ThisWorkbook.Save
    ThisWorkbook.Close
End Sub

(en fait ce code me sert à supprimer macros, formules et mises en formes conditionnelles si le fichier n'est pas lancé sur mon ordi)

[Invité]

Voir mon message précédent pour l'emplacement de la ligne de commande.

En phase de test, il vaut mieux éviter de mettre des On Error Resume Next. Sinon vous ne voyez pas ce qui se passe.

Cordialement.

[Scoubi7]

En fait l'erreur vient de cette partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        With ActiveSheet.UsedRange
            .Value = .Value
            .FormatConditions.Delete
        End With

En fait le problème vient du fait que c'est la Macro de fichier xls qui est en cours alors que les modifs se font sur le fichier xlsx...

[unparia]

Bonjour

En fait le problème vient du fait que c'est la Macro de fichier xls qui est en cours alors que les modifs se font sur le fichier xlsx

voilà ce qui n'arrive jamais à ceux qui, de manière systématique et rigoureuse, travaillent (et les invoquent) directement sur les objets de l'Application.

[Scoubi7]

J'ai résolu une partie du problème en faisant comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub ESSAI()
    'Application.DisplayAlerts = False
    'Application.EnableEvents = False
    Chemin = ThisWorkbook.Path
    Fichier = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
    Set NewWorkbook = Workbooks.Add(1)
    ActiveWindow.DisplayGridlines = False
    NewWorkbook.SaveAs Filename:=Chemin & "\" & Fichier & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    For Each Sheet In Workbooks(Fichier & ".xls").Worksheets
        If Workbooks(Fichier & ".xls").Worksheets(Sheet.Name).Visible = True Then
            Workbooks(Fichier & ".xls").Worksheets(Sheet.Name).Cells.Copy
            Workbooks(Fichier & ".xlsx").Worksheets(xlLast).Paste
            Workbooks(Fichier & ".xlsx").ActiveSheet.Name = Sheet.Name
            Workbooks(Fichier & ".xlsx").ActiveSheet.Range("A1").Select
        End If
        With Workbooks(Fichier & ".xlsx").ActiveSheet.UsedRange
            .Value = .Value
            .FormatConditions.Delete
        End With
    Next Sheet
End Sub

Mais mon problème maintenant est qu'il faut que j'arrive à supprimer le fichier qui lance la macro mais qui est ouvert...

[Invité]

Si finalement j'avais essayé de l'intégrer dans mon code directement en ajoutant uniquement "Application.EnableEvents = False"
mais quand je lance ta macro seule, cela fonctionne

Bonsoir,

Ma première réponse répondait au problème posé. Vos derniers messages sont à des "km" du message d'origine et plus personne n'arrive à vous suivre. Vous devriez clôturer ce message et en créer un nouveau en expliquant ce que vous voulez faire réellement.

Cordialement.

[pijaku]

Bonjour,

Pour les anglophones : à lire