Explication

Bonjour a vous,

Tout d’abord merci bcp pour l'explication mais si je peut me permettre d'abuser de votre temps ...serait t'il possible d'etre un peut plus precis sur :

Lig = .Columns("B").Find(Nom, .Range("B9")).Row
.Rows(Lig).Delete

et
Lig = .Columns("B").Find("", .Range("B9")).Row
.Cells(Lig, "B") = Nom

Je comprend pas bien le .row et .rows

D'avance merci

Bonjour john_dodo

Option Explicit
'-----------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Nom As String, Lig As Byte
    'la cellule "déclencheuse" (target) doit se trouver dans la zone B2;B47
    If Not Intersect(Target, Range("B7:B47")) Is Nothing Then
        'affectation de la nouvelle valeur de travail dans la colonne A
        Nom = Target.Offset(0, -1)
        'on travaille AVEC la feuille "resume"
        '(les objets lignes, colonnes, cellule doivent ^tre alors précédés d'un point)
        With Sheets("resume")
             'si la cible est vide
            If Target = "" Then 
                'on sort de la procédure
                On Error GoTo fin
                'sinon on supprime la ligne où se trouve "nom" après B9
                Lig = .Columns("B").Find(Nom, .Range("B9")).Row
                .Rows(Lig).Delete
            End If
        'si la cible est égale à "X"
        If Target = "X" Then
            'on cherche la première ligne vide dans la colonne B après B9
            Lig = .Columns("B").Find("", .Range("B9")).Row
            'on y ajoute la valeur de "nom"
            .Cells(Lig, "B") = Nom
        End If
    End With
End If
'gestionnaire d'erreurs
'(règle d'algorithmique: toutes les sorties de procédure regroupées en fin de code)
fin:
End Sub

en espèrant que...

 Michel

macro à installer dans le module feuille "vacances"
dans la feuille "resume" B9 ne doit pas être vide (un espace suffit)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Nom As String, Lig As Byte
If Not Intersect(Target, Range("B7:B47")) Is Nothing Then
Nom = Target.Offset(0, -1)
With Sheets("resume")
'suppression d'un X
If Target = "" Then
On Error GoTo fin
Lig = .Columns("B").Find(Nom, .Range("B9")).Row
.Rows(Lig).Delete
End If
'ajout d'un X
If Target = "X" Then
Lig = .Columns("B").Find("", .Range("B9")).Row
.Cells(Lig, "B") = Nom
End If
End With
End If
fin:
End Sub

bonjour, peux-tu partager le code  VBA de michel_m?