VBV TextBox unité d'une cellule

Bonjour à tous,

je souhaite me créer un formulaire permettant des mettre une unité prédéfinie dans une cellule (km, Litre etc ...)

avec les buttonClick ça marche bien , mais je souhaite aussi une texbox me permettant de créer une unité (genre "machin", "bidule") en la tappant directement.

j'ai essayé ça :

Code:

---

1 2 3 4 5

Private Sub TextBox1_Change()   Selection.NumberFormat = "# " & TextBox1.Value & ""   End Sub

---

ça marche, mais un certain nombre de lettres ou enchaînement de lettres bloquent (a et z sont acceptés, o non mais zooo oui, étrange ...)

l'erreur renvoyée est "erre d’exécution 1004 : Impossible de définir la propriété NumberFormat de la classe Range"

auriez vous une idée pour m'inspirer svp ?

Merci d'avance

Bonjour,

Si les valeurs sont textuelles, essaie avec le signe @ plutôt que #
Si ce sont des numériques, mets un 0

Bonjour.

Voici un demo sur l'utilisation de NumberFormat.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

Private Sub TextBox1_Change() ligne = Selection.Cells(1).Row   Set c = Cells(ligne, 1) Cells(ligne, 1).Select   v = TextBox1.Value   If v = "vrai" Or v = "faux" Then 'Booleen Cells(ligne, 1).NumberFormat = "General"   If v = "vrai" Then Cells(ligne, 1).Value = True Else Cells(ligne, 1).Value = False End If   Else If IsNumeric(Replace(v, ".", ",")) Then 'Nombres Cells(ligne, 1).NumberFormat = "0.00" Cells(ligne, 1).Value = CDbl(Replace(v, ".", ","))     ElseIf IsDate(v) Then 'Dates Cells(ligne, 1).NumberFormat = "General" Cells(ligne, 1).FormulaLocal = v     Else 'Textes Cells(ligne, 1).NumberFormat = "@" Cells(ligne, 1).Value = v     End If End If   'Infos Cells(ligne, 3).Value = TypeName(Cells(ligne, 1).Value) Cells(ligne, 2).Value = Cells(ligne, 1).NumberFormat   End Sub

---

merci pour vos réponses,

@parmi , j'ai remplacé # par 0, ça ne foncitonne pas, l'erreur reste la même.

@docmarti, merci, ton code me permet de savoir quel est le type de ce que je rentre dans ma textbox, pour autant je ne vois pas comment récupèrer ce qu'il y'a dans ma textbox et l'appliquer comme étant le nouveau format de ma case.

auriez vous d'autres idées?

Bonjour !

Selection.NumberFormat = "# """ & TextBox1.Value & """" …

_________________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Il ne faut pas oublier qu'une textbox n'est pas numérique par défaut.
Il faut forcer la valeur texte en nombre

Code:

---

1 2	Range("A1") = CDbl(TextBox1) Range("A1").NumberFormat = "0 " & """Bidules"""

---