[Résolu]Créer avec l'enregistreur de macro

[Thibault98]

Bonsoir,

Avec l'enregistreur de macro je voudrai lorsque je sélectionne une ou plusieurs lignes les supprimer, voilà le code donné, mais ça ne fonctionne pas même modifié.

Sub Macro1()
'
' Macro1 Macro
'

'
    With Rows()
    Selection.Delete Shift:=xlUp
    End With
End Sub

La ou les lignes à supprimer ne sont pas connues d'avance, une fois sélectionnées comment les supprimer par code VBA à l'aide d'un bouton de commande ?

Merci

Thibault

 

[Dranreb]

Re : Créer avec l'enregistreur de macro

Bonsoir.
Mettez peut être la propriété TakeFocusOnClick du bouton à False.
Le With ne sert à rien. C'est plutot

Selection.EntireRow.Delete

Cordialement.

 

[Thibault98]

Re : Créer avec l'enregistreur de macro

Bonsoir et merci,

Je n'y arrive pas, vous auriez un exemple sous la main ?

Merci.

 

[Dranreb]

Re : Créer avec l'enregistreur de macro

Non. Joignez votre classeur.
À +

 

[Thibault98]

Re : Créer avec l'enregistreur de macro

Bonjour et merci pour votre aide,

 

[Dranreb]

Re : Créer avec l'enregistreur de macro

Bonjour
Je ne vois pas de macro dans votre classeur.
Alors j'en ai écris une dans un nouveau module que j'ai affectée à votre objet de formulaire ou de barre dessin (puisque vous avez préféré ça à un bouton de commande), et qui a fonctionné du premier coup :

Sub SupprimerLignesDeSélection()
Selection.EntireRow.Delete
End Sub

À +

 

[Thibault98]

Re : Créer avec l'enregistreur de macro

Bonsoir Monsieur,

Un très grand Merci.

Bonne soirée.
@+
Thibault