Discussion :

[MarcelG]

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

[Krovax]

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 :

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

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

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

[MarcelG]

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.

[Krovax]

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 :

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

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 :

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

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

[MarcelG]

Ta méthode

Code :

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

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)

[Krovax]

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