Déselection d'une cellule après Worksheet_BeforeDoubleClick

Bonjour,

Si je n'inscris rien dans la cellule (cf. mon code, à la ligne "mon pb est ici), le curseur apparaît néanmoins et permet une autre saisie que celle que j'ai prévue par la variable "synthese". Comment peut-on éviter la présence du curseur ? J'ai essayé avec un "application.cutcopymode" mais ça ne fonctionne pas.
Par ailleurs, quand je clique sur une cellule protégée de ma feuille, le curseur de déplace spontanément sur la zone non protégée et dans le cas présent ça peut poser problème à l'utilisateur distrait. Peut-on éviter cela ?
Je vous remercie d'avance pour vos réponses éventuelles,
Cordialement,

'------

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'ok   prem_col = [i2] dern_col = [i3] prem_lign = [i4] dern_lign = [i5] synthese = [i11]   If Target.Row > prem_lign - 1 And Target.Row < dern_lign + 1 And (Target.Column > prem_col - 1 And Target.Column < dern_col + 1) Then If Target.Offset(0, 0).Value = "" Then Target.Offset(0, 0).Value = synthese Else Target.Offset(0, 0).Value = "" [mon problème est ici !] End If End If Cancel = True End Sub

---

'------

Bonjour jpma75,

Je n'ai pas réellement compris ton problème, peux-tu le réexpliquer avec un exemple plus concret ?

En tout cas, tu peux simplifier ton code comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rg As Range, synthese 'as type Set rg = Range(Cells([I4], [I2]), Cells([I5], [I3])) synthese = [I11] If Not Application.Intersect(Target, rg) Is Nothing Then If Target = "" Then Target = synthese Else Target = "" End If End If Cancel = True End Sub

---

Il fait exactement la même chose.

Bonjour,

Merci pour ta proposition de simplification de code.

Je vais essayer d'être plus clair.
La variable "synthèse" est la combinaison d'une date et des initiales de l'utilisateur (informations concaténées et renseignées dans la cellule I11).
Sur ma feuille, si je fais un double-clic sur la zone prédéfinie (et donc non protégée), la valeur de "I11" s'inscrit dans la cellule sélectionnée. Cette même valeur s'efface, si je refais un double-clic.
Le problème est que si je l'efface, le curseur reste dans la cellule et clignote comme s'il attendait une pression sur la touche "ENTER". A ce moment-là, si l'utilisateur décider d'entrer quoique ce soit, ça s'inscrit dans la cellule alors que ne devrait y figurer que le contenu de la cellule "I11".
Comme artifice, j'avais prévu, une fois le double-clic effectué, de sélectionner une autre cellule de la zone non protégée, ce qui revenait à valider la cellule initiale !
J'ai posté une autre question dans la même logique : "comment puis-je sauvegarder l'adresse de cette cellule initiale" de sorte que si je déplace temporairement ma sélection sur une autre cellule (lambda) je puisse revenir à la cellule "active".

Question subsidiaire : Je me suis rendu compte que si je fais un double-clic sur une zone protégée de ma feuille, le curseur se déplace automatiquement sur la première cellule en haut à gauche de ma zone non protégée... Et dans le cas présent, l'utilisateur distrait pourrait saisir le contenu d' "I11" par inadvertance ! Peut-on rendre le "double-clic" inactif sur une zone protégée (sachant qu'il doit normalement opérer que sur la zone que j'ai prédéfinie et pour laquelle tu as simplifié mon code) ?

Merci beaucoup pour ton aide et désolé de n'être peut-être pas assez clair.

Bonjour,

Citation:

---

Envoyé par antonysansh

...

Code:

---

1 2 3

... Set rg = Range(Cells([I4], [I2]), Cells([I5], [I3])) ...

---

...

---

Je ne connais pas cette notation avec cells, et elle ne fonctionne pas chez moi. Tu peux l'expliquer??

Cells(i,i) est la cellule au croisement de la ligne i et de la colonne j.
C'est plus simple à utiliser que Range lorsque tu n'as qu'une cellule à prendre.

Ensuite Range(Cellule_1,Cellule_2) est la plage qui comme première cellule Cellule_1 et pour dernière Cellule_2.

Donc

Code:

---

Range(Cells(1,1),Cells(2,2))

---

est en fait la même chose que

Code:

---

Range("A1:B2")

---

ou même pour raccourcir

Code:

---

[A1:B2]

---

directement

En utilisant tout ça,

Code:

---

Set rg = Range(Cells([I4], [I2]), Cells([I5], [I3]))

---

est en fait une plage dont la première colonne est inscrite en I2, la dernière colonne en I3, la première ligne en I4 et la dernière ligne en I5

Test le même code avec des valeurs dans ces 4 cellules, y a pas de raison que ça ne marche pas ;)

jpma75, je n'arrive pas simuler ton problème, chez moi la cellule s'inscrit bien avec la valeur en I11, elle reste sélectionnée mais pas de clignotement.
Ensuite s'il n'y a pas de cellule protéger dans la plage bornée pas les valeurs des cellules I2, I3, I4 et I5, la sélection ne bouge pas grâce à :

Code:

---

If Not Application.Intersect(Target, rg) Is Nothing Then

---

En gros si tu n'es pas dans la plage bornée, la macro n'exécute que Cancel = True

Citation:

---

Envoyé par antonysansh

Code:

---

Set rg = Range(Cells([I4], [I2]), Cells([I5], [I3]))

---

---

ce n'est pas l'utilisatin de cells qui me pose problèmes mais l'utilisation entre crochet à l'intérieur de la fonction.
Chez moi cette notation ne fonctionne pas du tout.

ceci dis pour le probleme original.

on peut pour la cellule I11 et le double click In et out faire ceci

Code:

---

1 2 3 4 5 6 7 8 9

if not intersect(target, [I11]) is nothing then if target="" then target= machinchose application.sendkeys "{ESC}" else target="" end if end if

---

Effectivement Échap ou Enter résoudrait le problème.
Mais ce n'est pas logique car Dbl_clic fait entrer dans la cellule mais ça ne devrait pas être le cas car dans le l'évènement il y a Cancel = True qui est toujours exécuté.

EDIT : [A1] et la même chose que Range("A1") c'est juste pour les fainéants ^^
Tu peux faire [A1].row ou Sheets("Feuil1").[A1] et bien d'autres choses que tu pourais faire avec Range()

c'est vrai que c'est bizarre...

sinon, tu ne comprends pas ce que je veux te dire
je n'ai pas de soucis avec la notation entre crochet, mais en combinaison avec cells ... elle ne fonctionne pas... chez moi.
de Meme que suivant la même logique , je devrais pouvoir faire

Code:

---

Cells(range("I4"), range("I2"))

---

mais cela ne fonctionne pas chez moi non plus....

EDIT:
je viens de comprendre, j'était betement parti sur l'hypothese que tu donnais une cellule en références. alors que tu récupère la valeur contenue dans la cellule.
ça ne pouvais pas fonctionner chez moi, si les cellules sont vides.....
Bon c'est vendredi... vivement l' apéro....

Les cellules I2 et I4 contiennent bien des entiers positifs ?

Test comme ça :

Code:

---

1 2 3 4 5 6

Sub test() Dim rg As Range [I2] = 1: [I4] = 1 Set rg = Cells([I2], [I4]) MsgBox rg.Address End Sub

---

Tu devrais avoir $A$1 dans le MsgBox

les posts se sont croisé je vois ;o)

Citation:

---

Envoyé par mayekeul

EDIT:

Bon c'est vendredi... vivement l' apéro....

---

Tu viens de me donner soif, mais il est vrai que [A1].Value serais plus correct et on se serait compris tout de suite.
Mais comme je le disais, si j'utilise [A1] au lieu de Range("A1") c'est pour en écrire le moins possible :pastaper:

Anthony : Merci beaucoup ! Après usage de ton code "simplifié" + quelques ajouts dont je t'ai fait grâce dans ma question, tout fonctionne bien.
Cdt

PS : Je m'aperçois avec horreur que je n'avais pas placé mon code entre balises ! Désolé !

Bonjour,

Juste une petite précision concernant les crochets qui perturbe mayekeul.
Les crochets sont le raccorci de la fonction Evaluate et pour exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Test()   'en B2 l'adresse d'une cellule sous cette forme : I4   'retourne la valeur située en I4 MsgBox Range([B2])   'idem MsgBox Range(Evaluate("B2"))   'mais pas ici, retourne la valeur située en B2 MsgBox [B2]   End Sub

---

Hervé.