Importer code macro

[husnu]

Bonjour,

J'avais un souci pour effecer une case et grace à ce forum on a pu m'aider pour supprimer la case.

Mais pour pouvoir supprimer la case, j'ai copié/collé la case en question du fichier original et je l'ai collé sur une page excel pour l'envoyer dans le forum en piece jointe. Le probleme, lorsque je copie et colle le code pour supprimer la case dans le fichier d'origine cela ne fonctionne plus. Auriez vous une solution pour ce probleme svp ?

Voici le code en question:

Sub Suppression()
For i = 1 To 1000
On Error Resume Next
ActiveSheet.Shapes("Check Box " & i).Cut
Next i
End Sub

 

[tototiti2008]

Re : Importer code macro

Bonjour husnu,

Tu aurais pû rester sur l'autre fil, mais tant pis

Ouvre ton vrai fichier
Active la feuille contenant tes cases à cocher
Sur l'onglet de cette feuille (en bas de ton écran, les onglets qui permettent de passer d'une feuille à l'autre, Feuil1, Feuil2...)
Clic droit sur l'onglet - Visualiser le code
Colle le code de la macro Suppression
Cliques dans une ligne du code collé
appuies sur la touche F5 pour l’exécuter

 

[husnu]

Re : Importer code macro

Bonjour toto,

Merci pour ton explication précise😀 Mais ca ne fonctionne pas, j'ai joind le fichier original en supprimant les données hors contexte.

 

[tototiti2008]

Re : Importer code macro

Re,

essaye la macro là alors :

Sub suppr()
    For Each Sh In ActiveSheet.Shapes
        If Sh.FormControlType = xlCheckBox Then
            Sh.Delete
        End If
    Next Sh
End Sub

 

[husnu]

Re : Importer code macro

Sur le fichier exemple cela à fonctionné mais cette fois ci lorsque je colle le code sur l'original il y a un message d'erreur, j'ai joind une photo pour le message d'erreur.

 

[tototiti2008]

Re : Importer code macro

Re,

Et comme ça ?

Sub suppr()
    For Each Sh In ActiveSheet.Shapes
        If Sh.Type = msoFormControl Then
            If Sh.FormControlType = xlCheckBox Then
                Sh.Delete
            End If
        End If
    Next Sh
End Sub

 

[husnu]

Re : Importer code macro

Merci 1000 fois toto !!!