macro simple

[mythotem]

Bonsoir tout le monde.
Je cherche une macro pour mon compte bancaire qui éviterait que lorsque je coche d'un "X" certaines cellules en H, celà évite ensuite que les lignes correspondantes soient effacées par mégarde.
Merci d'avance.
mythotem.

 

[soenda]

Re : macro simple

Bonsoir le fil, mythotem

Vois si le bidouillage ci-dessous te conviens

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Count > 1 Then
        If UCase(Cells(Target.Row, 8)) = "X" Then
            MsgBox "Effacement interdit !", vbCritical
            [A1].Activate
        End If
    End If
 
End Sub

A plus

 

[mythotem]

Re : macro simple

Merci Soenda,

J'ai un message d'erreur: erreur d'éxécution'424' - objet requis
La ligne : If Target.Count > 1 Then est surlignée en jaune.
Si tu peux m'aider

Bonne journée.

Mythotem