Code pour changer les valeurs à chaque double clic

[piga25]

Bonjour,

Juste une petite question que je n'arrive pas à résoudre.
Sur un fil de Fred0o j'ai recopié ce code qui fonctionne à merveille.

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

Par contre lorsque je change les valeurs "." par "X", ".." par "P" et "..." par "B", j'arrive uniquement par doubleclic dans la cellule à la valeur "P".
Pas moyen d'afficher le "B" et le ClearContents.
Merci

 

[tototiti2008]

Re : Code pour changer les valeurs à chaque double clic

Bonjour piga25 ,

Oui, c'est parce que les cas du "Select case" dépendent du nombre de caractères déjà présents dans la cellule "Len(.value)"
en mettant X, P et B, le nombre de caractères est toujours de 1 et donc tu restes toujours sur le même cas
"Case 1"
donc il écrit P à chaque fois

peut-être un truc du genre

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    With Target
        Select Case .Value
            Case "X"
                .Value = "P"
            Case "P"
                .Value = "B"
            Case "B"
                .clearcontents
            Case Else
                .value = "X"
        End Select
    End With
End Sub

 

[piga25]

Re : Code pour changer les valeurs à chaque double clic

Bonjour tototiti2008,

Je me doutais bien que la commande len y était pour quelque chose.
Ton code fonctionne très bien sur une feuille vierge, je vais l'imbriqué maintenant dans le code final.
Merci et au plaisir de te lire prochainement.