Supprimer Combobox avec Sub

Version imprimable

11/12/2016, 10h14
Scoubi7

Supprimer Combobox avec Sub
Bonjour,

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

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 ?

Bonjour,

A essayer :

Code:

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.

11/12/2016, 11h23
Scoubi7

Merci pour ton aide

Non toujours pareil
11/12/2016, 11h25
Invité

Citation:

Envoyé par Scoubi7

Non toujours pareil

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

Cordialement.
11/12/2016, 11h31
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 !
11/12/2016, 11h35
Invité

Citation:

Envoyé par Scoubi7

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.

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

Voici mon code :

Code:

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)

11/12/2016, 11h56
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.
11/12/2016, 14h48
Scoubi7
En fait l'erreur vient de cette partie :
Code:

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...
11/12/2016, 17h50
unparia

Bonjour

Citation:

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. ;)

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

Code:

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...

11/12/2016, 18h09
Invité

Citation:

Envoyé par 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

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.
13/12/2016, 11h44
pijaku

Bonjour,

Pour les anglophones : à lire