Affichage de valeurs différentes selon cellule par double clic

[rod26]

Bonjour,
Je souhaite inscrire par double clic dans une cellule (appartenant à une colonne C) la valeur 1 par exemple puis la valeur 2 dans une autre (appartenant à la colonne G).
Je dispose de ce code mais ne trouve pas le moyen de le modifier pour arriver à mes fins...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
temp = Array("1", "")
If Not Application.Intersect(Target, Range("C1:C38")) Is Nothing Then
With Target
p = Application.Match(Target, temp, 0)
If Not IsError(p) Then
If p = UBound(temp) + 1 Then p = 0
Else
p = 0
End If
Target = temp(p)
Cancel = True
End With
End If
End Sub

J'ai essayé plusieurs choses mais à chaque fois je bloque...
Merci pour votre aide.

 

[phlaurent55]

Bonjour Rod, et bienvenue sur le forum

essaie ce code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'un double-clic en colonne C fera alterner les valeurs 1 ou "rien"
If Not Intersect(Target, Range("C1:C38")) Is Nothing Then
Target = IIf(Target = "", 1, "")
End If
'un double-clic en colonne G fera alterner les valeurs 2 ou "rien"
If Not Intersect(Target, Range("G1:G38")) Is Nothing Then
Target = IIf(Target = "", 2, "")
End If
End Sub

à+
Philippe

 

[rod26]

Bonjour Philippe,
Super. ça marche nickel. Maintenant, j'arrive même à mettre les colonnes que je veux à 2 et à 1 sans forcément qu'elles se suivent.
Une petite question en + :
est-il possible de ne pas voir apparaître le 1 ou 2 au moment du double clic (comme avec mon ancien code)? Après, je le fais disparaître en personnalisant le format de cellule ( avec ;;😉, ça marche. Mais au moment du clic, je vois les 1 et 2 (cf doc ci-joint).
Après, ce n'est pas bien grave si ce n'est pas possible...
Merci
++

 

[phlaurent55]

Re,

voir fichier joint
il n'y a plus de chiffres 1 ou 2 dans les cellules et j'ai supprimé toutes les mises en forme conditionnelles
................ tout se fait via la macro

à+
Philippe

 

[rod26]

re,
super. Merci beaucoup.
Tout marche. Au top.