Bonjour,

Je travaille sur classeur partagé, et donc je ne peux utiliser la protection / la déprotection des feuilles.

J’ ai trouvé une ancienne discussion sur ce forum

http://www.developpez.net/forums/d27...-utilisateurs/

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
16
17
18
19
20
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim CEL As Range
 
Dim champimp_noms As Range
Dim champimp_noms_comp As Range
Dim premcell_noms As Range
 
Select Case Application.UserName
Case "FANFAN", "TOTO"
Set champimp_noms = Range("grille_1")
Set champimp_noms_comp = Range("grille_comp_1")
Set premcell_noms = Range("déb_grille_1")
 
Case else 
Set champimp_noms = Range("grille_2")
Set champimp_noms_comp = Range("grille_comp_2")
Set premcell_noms = Range("déb_grille_2")
 
End Select
Je souhaite effectuer le test suivant
Si Username = « FANFAN » et que l’on sélectionne une cellule hors du champ grille_1 alors la sélection se porte sur déb_grille_1

Autrement dit :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Target.Address
« ne fait pas partie du champ 1 » then
Code : Sélectionner tout - Visualiser dans une fenêtre à part
premcell_noms.Select
Je bloque sur la syntaxe VBA de « ne fait pas partie du champ 1 »

J'ai recherché sur le forum et le net la solution mais sans succès.

Merci pour votre aide