piga25
XLDnaute Barbatruc
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.
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
Juste une petite question que je n'arrive pas à résoudre.
Sur un fil de Fred0o j'ai recopié ce code qui fonctionne à merveille.
Code:
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