Bonjour à tous,
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
End Select
End With
End Sub
Pourriez-vous m'aider ?
D'avance merci
Greg
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
End Select
End With
End Sub
Pourriez-vous m'aider ?
D'avance merci
Greg