Discussion :

[ricki69]

Bonsoir,

J'ai besoin d'un peu d'aide sur Excel. Je dispose sur une feuille de calcul de noms de personnes listées les unes sous les autres (une personne = une cellule).
Je voudrais gérer par macro la suppression d'une personne dans cette liste (décalage "vers le haut" quand supp dans la liste) et renommer automatiquement cette liste avec son nom précédent.

Comment faire ?
Merci pour aide.

[ouskel'n'or]

C'est possible mais risqué. Suppose que tu veuilles simplement effacer une cellule, non la supprimer ? Tu devras déjà ajouter une demande de confirmation.
Le mieux serait que tu exposes ton pb. Il y a peut-être une autre solution...
Veux-tu supprimer les doublons ? Supprimer simplement des noms ?

Voici toujours un code qui, quand tu supprimes le contenu d'une cellule de la colonne A, supprime la ligne

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub ' à adapter à la colonne concernée
    If Not IsEmpty(Target) Then Exit Sub 'ta cellule n'a pas été effacée
    Rows(Target.Row).EntireRow.Delete Shift:=xlUp
End Sub

A placer dans la feuille de code de la feuille de calculs -> Dans l'éditeur VB -> 1 clic sur le nom de la feuille pour avoir la feuille de code -> Tu colles ça ▲
Bonne soirée