Discussion :

[jean30]

Bonjour à tous,
En J2 et/ou L2 je voudrais que par un double clic dans ces cellules ça mette un X dans les champs nommés
SelDestMailCc (J2) et/ou SelDestMailCci (L2)
et que, si un X figure dans le champ nommé SelDestMailCci il soit effacé dans le champ nommé SelDestMailCc
Si de nouveau, je double clic en J2 et/ou L2 ça efface tous les X des champs nommés.
Est-ce possible... ?
En vous remerciant chaleureusement.

[Drisc007]

Bonjour Jean30

Je suis pas sur d'avoir compris ta demande, voici un proposition :

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_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("J2, L2")) Is Nothing Then
  If Target.Address = "$J$2" Then
      If Target.Value <> "" Then
          Range("$J$2") = ""
      Else
          Range("$J$2").Value = "X"
          Range("$L$2").Value = ""
      End If
  Else
    If Target.Value <> "" Then
          Range("$L$2") = ""
      Else
          Range("$L$2").Value = "X"
          Range("$J$2").Value = ""
    End If
  End If
End If
Cancel = True
End Sub

[jean30]

Bonjour Drisc007 et merci de me répondre,
J'ai testé ton code qui me met bien un X en J2 ou L2 ou le supprime, mais il ne reporte aucun X dans les champs nommés dynamiques
J'ai mis un fichier si ça peut te permettre une meilleure compréhension.
En te remerciant.

[Drisc007]

En effet c'est plus facilement compréhensible, voici :

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_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("J2, L2")) Is Nothing Then
  If Target.Address = "$J$2" Then
      If Target.Value <> "" Then
          Range("SelDestMailCc") = ""
      Else
          Range("SelDestMailCc").Value = "X"
          Range("SelDestMailCci").Value = ""
      End If
  Else
    If Target.Value <> "" Then
          Range("SelDestMailCci") = ""
      Else
          Range("SelDestMailCci").Value = "X"
          Range("SelDestMailCc").Value = ""
    End If
  End If
End If
Cancel = True
End Sub

[jean30]

Re Drisc007,
Ton code fonctionne très bien, mais je viens de voir un truc en plus, désolé de ne pas y avoir pensé avant.
Peut-on ajouter au code une sélection individuelle des adresses selon le même principe ?
En te remerciant beaucoup.

[Drisc007]

Oui bien sur que c'est possible :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("SelDestMailCc, SelDestMailCci")) Is Nothing Then
    If Not Intersect(Target, Range("J2, L2")) Is Nothing Then
        If Target.Address = "$J$2" Then
            If Target.Value <> "" Then
                Range("SelDestMailCc") = ""
            Else
                Range("SelDestMailCc").Value = "X"
                Range("SelDestMailCci").Value = ""
            End If
        Else
            If Target.Value <> "" Then
                Range("SelDestMailCci") = ""
            Else
                Range("SelDestMailCci").Value = "X"
                Range("SelDestMailCc").Value = ""
            End If
        End If
    Else
        If Target.Column = 10 Then
            If Target.Value <> "" Then
                Target.Value = ""
            Else
                Target.Value = "X"
                Target.Offset(0, 2).Value = ""
            End If
        Else
            If Target.Value <> "" Then
                Target.Value = ""
            Else
                Target.Value = "X"
                Target.Offset(0, -2).Value = ""
            End If
        End If
    End If
End If
Cancel = True
End Sub