Je fais des essais erreurs depuis une heure sans arriver à ce que je veux... Je souhaite qu'à chaque double clic se succède la suite suivante : cellule vide ==> "." ==> ".." ==> "..." ==> cellule vide ==> ..etc.
Pour l'instant, avec le code suivant, j'ai la suite : cellule vide ==> "." ==> ".." ==> cellule vide ==> ..etc.
Il me manque donc mon "..."
Voici le code:
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
Cancel = True
With Target
Select Case Len(.Value)
Case 0
.Value = "."
Case Else
If .Value = "." Then
.Value = ".."
Case Else
If .Value = ".." Then
.Value = "..."
Else
.ClearContents
End If
Re : Code pour changer les valeurs à chaque double clic
Bonsoir delboe,
Tu peux essayer ceci :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
Select Case Len(.Value)
Case 0
.Value = "."
Case 1
.Value = ".."
Case 2
.Value = "..."
Case Else
.ClearContents
End Select
End With
End Sub