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