OVH Cloud OVH Cloud

vba

1 réponse
Avatar
srogeau
bonjour a tous
je voudrais de l'aide pour modifier ce code vba de facon a ce que par ex:
quand j'ecris c dans la cellule au lieu de modifier la couleur de la cellule il
m'ecrit "ca"dans cette meme cellule
cela est il possible
merci beaucoup
Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Interior
Select Case Target.Value
Case "c"
.ColorIndex = 5
Case "r"
.ColorIndex = 3
End Select
End With
End Sub

1 réponse

Avatar
mousnynao
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Value
Case "c"
Target.Value = "ca"
Case "r"
Target.Value = "ra"
End Select

End Sub

mousnynao!

-----Message d'origine-----
bonjour a tous
je voudrais de l'aide pour modifier ce code vba de facon
a ce que par ex:

quand j'ecris c dans la cellule au lieu de modifier la
couleur de la cellule il

m'ecrit "ca"dans cette meme cellule
cela est il possible
merci beaucoup
Private Sub Worksheet_Change(ByVal Target As Range)

With Target.Interior
Select Case Target.Value
Case "c"
..ColorIndex = 5
Case "r"
.ColorIndex = 3
End Select
End With
End Sub

.