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
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
Code:
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
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.