Supprimer noms et lignes

Bonjour,

Lorsque je supprime un noms dans une colonne B il me faudrai que ça me supprime aussi toute la ligne

et que la colonne A ne bouge pas comme quand je rajoute un noms !

merci de votre réponse !

Bonjour Benoist

Si tu rajoutes dans la feuille nom le code suivant cela devrait supprimer la ligne dont le nom est effacé

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Dim lastRow As Long
Dim sh As Worksheet

    Set sh = ActiveSheet
    Dim intersectRange As Range

    lastRow = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row
    ' Define your specific range
    Set rng = sh.Range("A1:D" & lastRow)

    Set intersectRange = Intersect(rng, Columns("B"))
    If Not Intersect(Target, Me.Columns("B")) Is Nothing Then
        If intersectRange.Column = 2 And sh.Cells(Target.Row - 1, Target.Column).Text = "" Then
           sh.Rows(Target.Row - 1).EntireRow.Delete
        End If
    End If
End Sub

Merci de la réponse je rajoute le code ou ? un module ou a la suite de ce que j'ai déja ?

Bonjour Benoist,

Pas certain d'avoir bien compris ta demande mais voici une proposition qui, à priori, répond à tes souhaits.

A remarquer la numérotation de la colonne A suit le tri donc l'ordre numérique de la colonne A ne sera plus respecté.

Merci de confirmer si cela convient

Chris

Re,

Cela ne fonctionne pas , j'ai stop en jaune ?

Sorry, j'ai oublié d'enlever le STOP pour mes essais...

Voici le classeur corrigé

Chris

hélas la colonne d ne suis pas !

re,

j'ai bien un truc qui est pas mal avec la liste numéroté en colonne A ça m'affiche pas forcement le numéro quand ça change

vous en pensez quoi ??

Bonsoir,

Que veux tu dire par la colonne D ne suit pas ??

Tu as bien précisé que si on supprime le nom en colonne B, TOUTE la ligne doit disparaître sauf la colonne A

C'est ce que j'ai fait.

Maintenant s'il faut que la colonne D reste, ce n'est pas compliqué à réaliser.

En ne connaissant pas le contexte, il est difficile de réaliser tes souhaits... Soit plus précis dans ta demande. Expliques ce que tu veux réaliser.

A bientôt

Chris

re,

c'est bien toute la ligne sauf colonne A

mais en d la date reste des fois

re

et les dates en D ne se réactualisent pas quand on a enlevé un nom

Benoist.... stp ! Excel ne connait pas les indécisions.. parfois oui et parfois non n'est pas possible à réaliser pour Excel pour cela il faut aller chercher une cartomancienne à la foire du midi.

Trouves un test qui permet de faire un choix ou alors tu en supportes les conséquences et c'est toi qui décide si tu gardes l'informations toujours et la supprime à TA demande ou on enlève l'information toujours et TU la retapes à la demande et tu choisis en fonction du nombre de fois de parfois oui et de parfois non statistiquement possible.

Dis moi ton choix et j'adapterai le VBA

A bientôt

Chris

Bonjour,

Merci de la réponse je reposte un fichier

Si je supprime le nom Armen ,

Dans la colonne C et D , les nom kk et kk redescende en dernière ligne alors que je veut les supprimer !

j'ai bien ce code qui me supprime les lignes vide

mais il ne faudrait pas que sa touche la Colonne A

Sub supprimer() ' ' supprimer Macro ' ' Columns("B:B").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete Range("A23").Select End Sub

Bonsoir à tous,

Et bien j'ai trouvé, voila ce que je voulais !

Merci.