Aide : mettre à jour le contenu de cellules si modifié

Bonjour,

J'ai un tableau B2:C11 avec des cellules qui peuvent être modifiées (l'exemple et la MFC ne s'applique ici que pour la plage B2:C4) mais souhaite qu'au moment de l'effacement de certaines cellules (décorélées de ce premier tableau) - action sur le Bouton 1 - ce tableau B2:C11 soit réinitialisé et fasse apparaître les valeurs paramétrées par défaut (coches noires).

Merci de votre aide.

Cdt.

bonjour

avec l'enregistreur de macro :

• effacer toute la zone de saisie
• mettre X dans les cellules voulues

mais à mon avis, il vaut mieux se faire un xltx (modèle un peu sécurisé) et faire des "enregistrer sous"

Bonjour,

Une proposition à étudier, sans MFC, avec une procédure événementielle.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, [B2:C11]) Is Nothing Then
        If Target.Count > 1 Then Exit Sub

        Select Case Target.Column
            Case 2
                If Target.Value = "x" Then Target.Offset(0, 1).Value = vbNullString
            Case 3
                If Target.Value = "x" Then Target.Offset(0, -1).Value = vbNullString
        End Select

        With Target.Font
            .Color = RGB(255, 0, 0)
            .Bold = True
        End With

    End If

End Sub

Sub Resset_Values()

    With Me
        With .Range("B2,C3:C5,B6:B8,C9,B10:B11")
            .Value = "x"
            With .Font
                .Color = RGB(0, 0, 0)
                .Bold = True
            End With
        End With
        .Range("C2,B3:B5,C6:C8,B9,C10:C11").Value = vbNullString
    End With

End Sub