suprimer la rangé pointé par le curseur

[zaberlibobed]

Bonjour à toutes et à tous


Je voudrais creer une macro qui suprime la rangé d'une cellule quelconque selectionné par le curseur sur ma feuille excel.

Autrement dit sur ma feuille excel je clique sur une cellule quelconque, je lance la précieuse macro et la rangé entiere est suprimé.

Ca serait chouette. Non?


D'avance un grand merci
zaberlibobed

 

[Temjeh]

Bonsoir zaber....

Voici le code:

Sub Delete()
Dim Cellule As Range
For Each Cellule In Selection
Selection.EntireRow.Delete
Next
End Sub

A++

Temjeh

 

[Eric C]

Bonjour le forum
Bonjour Zaberlibobed & Temjeh (Ca va mieux ?)

Je pense plutôt que c'est ceci qui esr recherché par zaber ..

Sub delete ()
ActiveCell.EntireRow.delete
end sub

Qui supprime la "rangée" qui doit être la ligne quelle que soit la cellule activée.

Bon Ouikand à toutes & à tous
@ ++ Eric C

 

[zaberlibobed]

bonjour

He bin merci j'essaye les 2 tout de suite désolé de la clarté du message
merci

 

[Temjeh]

Tu as raison Eric et plus simple j'avais juste modifié un code que j'avais en changeant selection.Copy par Selection.EntireRow.Delete

Sub Delete()
Dim Cellule As Range
For Each Cellule In Selection
Selection.Copy
Next
End Sub

 

[zaberlibobed]

Désolé mais ca marche pas
je me suis surement mal exprimé ou j'ai bien sur rien compris

Dans mon dialecte de néophyte:
je clique sur une cellule quelconque de ma worksheet , je lance la macro et la ligne entiere est selectionné et suprimé
Merci de vos lumieres

zaberlibobed

 

[Eric C]

Bonjour le forum
Re bonjour Zaber & Temjeh

Il faut placer le code dans un module / Insertion module dans VBA et non dans le Worsheet ainsi cela fonctionnera.
Bon dimanche à toutes & à tous.

@ ++ Eric C

 

[zaberlibobed]

Bonjour le forum

Merci à Temjeh et Eric C
C'est au poil et bien sur "simple". Surtout quand on enleve la protection de feuille.

Longue vie à excel-downloads et au forum
zaberlibobed