Discussion :

[sossso112333]

Bonjour ,

SVP , j'ai des données sur une feuille excel et j'ai fait un bouton "effacer" avec macro pour qu'il m'efface le contenu de n'importe qu'il ligne que j'ai séléctionné en utilisant cette fonction :

Code :

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

Selection.EntireRow.Clear

, ce que je veux c'est lorsque j'efface le contenu d'une ligne , le contenu de la ligne au dessous remonte , pour n'importe quel nombre de ligne (une ou plusieurs) .

Merci

cordialement .

[Philippe Tulliez]

Bonjour,
En résumé tu souhaites supprimer la ligne sélectionnée. Il faut utiliser pour cela la méthode Delete au lieu de Clear.
L'enregistreur de macros t'aurait apporté cette réponse.

[Daniel.C]

Bonjour,

Code :

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

Selection.EntireRow.Delete

[sossso112333]

Merci pour vos réponses , mais je veux pas utiliser "Delete" , parceque dans mon code , j'ai utiliser le nom des lignes de façon précise , et si je supprime une ligne , cela va modifier mon code . est ce qu'il existe une possibilité pour remonter le contenu ?

Cordialement

[Philippe Tulliez]

Bonjour,

j'ai utiliser le nom des lignes de façon précise

Dans ce cas, utilise le tri décroissant de la plage ainsi les lignes ayant une cellule vide se trouvera en dessous mais dans ce cas le nom sera également déplacé.

[Daniel.C]

Sinon, en copiant les valeurs :

Code :

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

1
2
3
4
5
    Dim DerLigne As Long, Plage As Range
    Selection.EntireRow.Clear
    DerLigne = Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
    Set Plage = Range(Selection.Row + 1 & ":" & DerLigne)
    Selection.Resize(Plage.Rows.Count, Plage.Columns.Count).Value = Plage.Value