passer du format texte au format numérique en VBA

[Flam]

Bonjour le forum, 🙂
​

Sur une feuille j'aimerai en double cliquant obtenir une lettre X dans la cellule active.
donc en VBA j'ai placé
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = "X"
End Sub

Ok ça marche, mais j'aimerai que ce X soit interprété comme une valeur numérique (et non comme du texte)

Je suis sûr que c'est tout bête mais ...😕
Je ne trouve pas !!!!

quelqu'un peut-il m'aider ?
Merci d'avance
Flam
​

 

[pierrejean]

Re : passer du format texte au format numérique en VBA

bonjour François

teste

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = 0
ActiveCell.NumberFormat = "X"
End Sub

 

[Flam]

Re : passer du format texte au format numérique en VBA

Re bonjour PierreJean,
​

je ne voulais pas te déranger pour si peu 🙂

lorsque je faisais la macro "corrige" cela m'effacer tous mes "X"
(car il s'agissait de texte)
et je n'avais plus tous mes inscrits pour les différents concours 😱

maintenant
ça marche, MERCI

Bon il est tard pour moi je vais me coucher

Bonne journée
@+
François
​