Format numerique

[denis]

Bonjour à tous

je renseigne une feuille nomée "Liste" avec 3 Usf mon prolème est que sur ma feuille j'ai du texte et du numérique , j'ai 3 colonnes en numérique mais il sont au format texte , j'ai bien fait ( format cellule)( nombre) mais le format ne change pas

Les 3 colonnes sont renseignées par des combobox1.2.3.
même avec le format ComboBox3 = Format(ComboBox3.Value, "00")
ça ne marche pas

si quelqu'un a la soluce d'avance Merci

 

[@+Thierry]

Bonjour Denis, le Forum


Voici un exemple tout simple...

"Matériel" nécessaire :

1 UserForm
1 ComboBox (Nommée ComboBox1)
1 CommandButton (Nommé CommandButton1)


Dans l'Initialisation du UserForm : (Exemple bidon pour incrémenter la ComboBox avec des nombres)

Private Sub UserForm_Initialize()
Dim i As Byte
With Me.ComboBox1
For i = 0 To 9
.AddItem i
Next i
End With
End Sub


Dans le click du CommanButton1 : (Avec Gestion d'erreur si valeur non Numérique)

Private Sub CommandButton1_Click()
Dim L As Integer
With Sheets("Collection")
L = .Range("A65536").End(xlUp).Row + 1
On Error GoTo ErrorHandler
.Range("A" & L) = CDbl(Me.ComboBox1)
End With
Exit Sub
ErrorHandler:
If Err = 13 Then MsgBox "Valeur Non Numérique dans la Combo"
End Sub



Dans l'évènement Change de la ComboBox : (Test de Valeur Numérique pour alerter le User sans stopper le Programme)

Private Sub ComboBox1_Change()
If Not IsNumeric(Me.ComboBox1) Then
With Me.ComboBox1
.SetFocus
.SelStart = 0
.SelLength = Len(Me.ComboBox1)
End With
End If
End Sub


Maintenant si tu dois aussi maintenir un format dans cette ComboBox c'est avec ceci :

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.ComboBox1 = Format(Me.ComboBox1.Value, "00")
End Sub


Et ci tu veux ce format dans le Report de Cellule il faut changer le code du CommandButton1_Click comme ceci :

Private Sub CommandButton1_Click()
Dim L As Integer
With Sheets("Collection")
L = .Range("A65536").End(xlUp).Row + 1
On Error GoTo ErrorHandler
.Range("A" & L) = CDbl(Me.ComboBox1)
.Range("A" & L).NumberFormat = "00"
End With
Exit Sub
ErrorHandler:
If Err = 13 Then MsgBox "Valeur Non Numérique dans la Combo"
End Sub


Bon Appétit
@+Thierry

 

[denis]

Bonjour à tous

Merci Bcp Mr Thierry

Aprés un dur choix avec tous ça J'ai trouvé 2 autres solutions , si tu as le temp pour me donner un avis
d'avance merci

Ps: j'ai choisi la 2ème soluce dans le doc joint

@ + denis