Test si cellule fait partie d'un champ

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:

---

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:

---

If Target.Address

---

« ne fait pas partie du champ 1 » then

Code:

---

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

Bonjour,
Tout d'abord je te recommande vivement d'utiliser les balise code pou encadrer tes codes est le rendre plus lisible
un lien : http://www.developpez.net/forums/d57...ation-boutons/
(il n'était pas d'oukel'n'or ce mini tuto?)

Pour ta question, hé bien tu pourrais peut être nous dire ce que tu veux faire et ce qui ne fonctionne pas. Les chèvres se font rare pour pratiquer l'haruspicine.

Edit : bon je suis arrivé avant ton nouveau message pour ta question

Regarde laide sur els différent mot clef de ce test

Code:

---

if not intersect(target,range("taplage")) is nothing then

---

il faudra peut être enlever le not en fonction de ce que tu veux faire

Pardon, je crois avoir été clair

Des champs sont alloués aux différents utilisateurs. Si l’utilisateur par exemple ici « FANFAN » sélectionne une cellule HORS du champ qui lui est alloué « grille_1 », alors la sélection se porte au début de ce champ, soit ici déb_grille_1. Ceci afin qu'il ne puisse pas sélectionner et modifier cette cellule appartenant à un autre champ.

Je demande comment coder cette condition.

Pour rappel : ce claseur est partagé. Il y a donc impossibilité de déprotéger puis de protéger une feuille de calcul.

Merci.

Comme je te l'ai dit non?
Tu nome des plages de cellule, c'est bien ca tes champs?

Donc essaye d'adapter le teste ca devrais fonctionner sans souci. Si tu n'y arrive pas montre nous comment tu essayes de l'adapter ;)

Edit une solution peut être un début en tout cas
Si on ne selectionne pas une cellule de la plage Bob la macro celectionne la première cellule de la plage Bob

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("Bob")) Is Nothing Then Range("Bob").Cells(1, 1).Select End Sub

---

j'utiliserais même pour permetre la selection d'une plae dans la plage mais pas si elle "déborde"

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not (Union(Target, Range("Bob")).Address = Range("Bob").Address) Then Range("Bob").Cells(1, 1).Select End Sub

---

Ta méthode

Code:

---

If Intersect(Target, Range("Bob")) Is Nothing ...

---

fonctionne bien.

Merci Krovacs.

(Il n'y aura pas besoin d'haruspicine, terme que je viens d'apprendre, entre autres)

J'adore le terme d'aruspicine, je l'ai découvert récement.
par contre cette méthode a un inconvénient

Si tu a la plage B2:C5 et que tu selectionne B1:B2 (pour coller par exemple) ca passe le teste alors que cela ne devrais pas.
D'ou l'interet de la deuxième méthode