Discussion :

[max60fr]

Bonjour,

Je ne parviens pas a récupérer l'adresse de la cellule pointée...
Seul le premier test sur C2 est actif..

Ce que je cherche à faire :
Empecher de marquer dans C2 ou D2, lorsque A2 ou B2 est déjà écrit
(L'inverse sera aussi à programmer : Si C2 ou D2 sont écrits , pas de pointage possible des cellules A2 et B2)
Plus clair :
- Possible d'écrire dans cellules vertes SI AUCUNES des cellules jaunes sont écrites
et
- Possible d'écrire dans cellules jaunes SI AUCUNES des cellules vertes sont écrites


Mes quelques lignes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_selectionChange(ByVal Target As Range)
 
If Target.Address(0, 0) = "C2" Or Target.Address(0, 0) = "d2" Then
 
 
    For Each Cell In Range("a2:b2")
 
        If Not Cell = "" Then
            MsgBox "ERREUR !  Le mouvement du jour ne peut etre que d'une seule personne !"
            Range("A1").Select
        End If
 
    Next Cell
 
End If

Que dois-je faire ?
Merci !