Target et double clic

Bonjour à tous. Voici mon bout de code...

Code:

---

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   If Target = Range("D5").Select Or Range("E5").Select Or Range("J5").Select Or Range("K5").Select Or Range("Q5").Select Then If ActiveCell.Value = "imprimé" Then ActiveCell.Value = "Masqué à l'impression" ActiveCell.Offset(0, 1).Select Exit Sub End If   If ActiveCell.Value = "Masqué à l'impression" Then ActiveCell.Value = "imprimé" ActiveCell.Offset(0, 1).Select Exit Sub End If   End If   End Sub

---

Mon but est de permettre à l'utilisateur de décider s'il désir que cette colonne sera imprimé ou non en indiquant un rappel dans ces cellules.

Mon problème est que si je double clic sur D5, cela va modifier Q5 sans avoir d'action sur D5.

Quelqu'un peut m'aider et me dire mon erreur.

Merci

Dlight

Ta condition est bizarre, Target est une variable objet de type Range

Essaies comme ceci pour changer le texte à l'intérieur des cellules double-cliquées

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const Masq As String = "Masqué à l'impression" Const Impr As String = "imprimé"   If Target = Range("A1").Select Then MsgBox "baba" If InStr("|D5|E5|J5|K5|Q5|", Target.Address(0, 0)) Then Cancel = True Target.Value = IIf(Target.Value = Impr, Masq, Impr) Target.Offset(0, 1).Select End If End Sub

---

Bonjour Mercatog,

J'étais en train de faire des essais de code sans succès avant de découvrir ta réponse.
Quelques questions sur ton code que j'ai testé:

- Je comprends que (0,0) de "address" revient, dans une instruction 'instr', à écrire l'adresse de la cellule double cliqueté puisque sauf erreur l'adresse (0,0) n'existe pas. Est-ce bien cela ? l'aide F1 ne dit rien sur ce point.

- cancel = true doit, si j'ai bien compris mes lectures, restituer l'action par défaut du double clic.
je comprends bien qu'il faille cette instruction, par exemple, pour un clic droit qui appel par défaut le menu contextuel mais que fait "BeforeDoubleClick" par défaut ? La suppression de "cancel = true" ne semble rien altérer par ailleurs.

- De même, vu les griefs constantes fait au "select" sur ce site je l'ai supprimé pour voir : Il semble que son absence soit sans conséquence.

Pour le reste du code tout est limpide pour moi.

Cordialement,

Help sur Address

Citation:

---

Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo)

---

Range("A1").Address(0,0) revient à Range("A1").Address(False,False) c'est à dire, A1 à la place de $A$1 au cas où RowAbsolute et ColumnAbsolute sont omis.

Quand on double clique sur une cellule, on met le curseur à l'intérieur de la cellule

Le Cancel=True permet d'éviter cela. Dans notre cas, après double clique en sélectionne la cellule à droite. De ce faite, le curseur à l'intérieur n'est pas tellement visible.

Pour le Select, l'utilisateur veut bien sélectionner la cellule de droite après double clique pour une raison qu seul l'intéressé pourra expliquer.

Merci à vous mercatog d'avoir pris le temps de me répondre. Cela fonctionne parfaitement !

:ccool:

Merci à vous nibledispo d'avoir ajouté une demande d'explications. Cela va me permettre de lire sur le sujet et comprendre le code et l'utiliser dans d'autres situations et merci à nouveau à mercotog d'y avoir ajouté une réponse.

J'ai quand même une question :

quelle est la raison du "msgbox" dans

Code:

---

If Target = Range("A1").Select Then MsgBox "baba"

---

Merci à l'avance

Dlight

La ligne 5 est une ligne totalement inutile mise pour vous montrer que votre condition initiale était bizarre.

Merci... :oops:

Dlight

Bonsoir,

address(0,0) : je conclus de cela que l'aide très souvent ne sert qu'à ceux qui connaissent déjà la réponse car jamais, même en la relisant suite à ta réponse, je ne serais parvenu à cette conclusion.

cancel = true : Même en supprimant le saut dans la cellule d'à coté, je ne vois pas de différence sur la cellule double cliquée. Avec ou sans, le trait vertical du curseur est présent dans la cellule. je vais creusé.

select : Effectivement j'ai écrit une ânerie, il est dans ce cas indispensable.

cordialement,

Paul

Testes cette procédure en double cliquant n'importe où

Code:

---

1 2 3 4

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   Cancel = True End Sub

---

C'est ok, le trait vertical est bien absent avec true et présent sans le true. Merci