Code pour changer les valeurs à chaque double clic

[delboe]

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

 

[Fred0o]

Re : Code pour changer les valeurs à chaque double clic

Bonsoir delboe,

Tu peux essayer ceci :

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

A+

 

[delboe]

Re : Code pour changer les valeurs à chaque double clic

Merci beaucoup ! Ca marche parfaitement !