Discussion :

[gislain99]

Bonjour,

Je souhaiterais avoir la possibilité d'ecire une lettre dans une cellule et interdire l'ecriture d'une autre cellule.
exemple j'ecrit "a" en D2 et je ne voudrais pas pouvoir écrire dans la cellule D6 et inversement si j'ecrit dans "a" en D6 sa efface en D2.

[Franc]

Bonjour, ta demande me semble un peu contradictoire. Tu dis que tu veux interdire l'écriture dans une cellule mais si tu écris dans cette même cellule, tu effaces l'autre ???

[gislain99]

Oui je sais bien en definitive ci j'ecrit dans D2 sa efface D6 et ci j'ecrit dans D6 sa efface D2
est ce possible?

[Franc]

Voici une macro à insérer dans l'évènement _Change de ta feuille:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$D$2" Then
        Range("$D$6").Value = ""
    ElseIf Target.Address = "$D$6" Then
        Range("$D$2").Value = ""
    End If
    Application.EnableEvents = True
End Sub

[gislain99]

Merci pour votre aide c'est exactement ce que je voulais.