Double clic dans deux colonnes différentes de la même feuille

[JBARBE]

Bonjour tous,

J'ai fait une macro qui fonctionne dans la colonne D en double cliquant pour mettre un X !

Je voudrais ajouter un P dans la colonne E de la même feuille !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("D:D"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
  Target = "X"
  Cancel = True
Else: Target = "X"
  Target = ""
  Cancel = True
End If
End Sub

Merci à l'avance!

 

[JBARBE]

Re : Double clic dans deux colonnes différentes de la même feuille

Merci pour la réponse mais il y a un probléme !

Lorsque je double clic en colonne D,le X se met + le P se met automatiquement en colonne E !

Ce que je veux, c'est que le X se mette en colonne D lors du double clic et lorsque je double clic en colonne E le P se met !

Merci beaucoup

 

[JBARBE]

Re : Double clic dans deux colonnes différentes de la même feuille

Non dans ce cas c'est la colonne E qui est prise en compte avec le P !

La colonne D avec le X est délaissée !

Ce que je veux, c'est pouvoir cliquer dans la même feuille sur la Col D pour X et Col E pour P !

Certainement avec des "si" ou une autre macro !

 

[JBARBE]

Re : Double clic dans deux colonnes différentes de la même feuille

Je pense que ma demande est complexe avec ses deux colonnes !

Ainsi, je vais me contenter d'une suggestion ( la seule) de carcharodon que je remercie vivement !

Voici mon code définitif ( à moins d'avoir une proposition )!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("D:D"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
  Target = "X"
  Target.Offset(0, 1) = ""
  Cancel = True
Else: Target = "X"
  Target = ""
  Target.Offset(0, 1) = "P"
  Cancel = True
End If
End Sub

 

[Yaloo]

Re : Double clic dans deux colonnes différentes de la même feuille

Bonjour JBARBE, bonjour à tous,

Peut être avec ça :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 Then
    If Not Application.Intersect(Target, Range("$D:$D")) Is Nothing Then
      If Target = "" Then
       Target = "X"
      ElseIf Target = "X" Then
       Target = ""
      End If
    End If
    If Not Application.Intersect(Target, Range("$E:$E")) Is Nothing Then
      If Target = "" Then
       Target = "P"
      ElseIf Target = "P" Then
       Target = ""
      End If
    End If
Cancel = True
End If
End Sub

A te relire

 

[JBARBE]

Re : Double clic dans deux colonnes différentes de la même feuille

Bonjour JBARBE, bonjour à tous,

Peut être avec ça :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 Then
    If Not Application.Intersect(Target, Range("$D:$D")) Is Nothing Then
      If Target = "" Then
       Target = "X"
      ElseIf Target = "X" Then
       Target = ""
      End If
    End If
    If Not Application.Intersect(Target, Range("$E:$E")) Is Nothing Then
      If Target = "" Then
       Target = "P"
      ElseIf Target = "P" Then
       Target = ""
      End If
    End If
Cancel = True
End If
End Sub

A te relire

C'est exactement ce qu'il me faut ! Merci à tous pour votre dévouement ! Maintenant je peux continuer à voir le match de foot!

 

[Dull]

Re : Double clic dans deux colonnes différentes de la même feuille

Salut JBARBE, Yaloo, CC🙂, le Forum

Histoire de raccourcir le code 😛

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 And Target.Column = 4 Or Target.Column = 5 Then Cancel = True
    If Not Intersect(Target, Range("$D:$D")) Is Nothing Then Target = IIf(Target = "X", "", "X")
    If Not Intersect(Target, Range("$E:$E")) Is Nothing Then Target = IIf(Target = "P", "", "P")
End Sub

Bonne Journée