Discussion :

[dlight]

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

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
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

[mercatog]

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 :

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

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

[nibledispo]

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,

[mercatog]

Help sur Address

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.

[dlight]

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



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 :

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

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

Merci à l'avance

Dlight

[mercatog]

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