format numérique cellule

[masi]

Bonsoir !
aidez moi svp
j'ai un problème de format numérique dand une cellule en vba

merci d'avance...
Masi

 

[Robert]

Salut masi, salut le forum,

Masi n'aurais-tu rien oublié ?...

À plus,

Robert

 

[masi]

Bonjour !
comme par exemple...!?
mais c vrais j'ai un problème de format numérique en vba

 

[masi]

Bonjour !
y 'a persone qui (V) peut m'aider...?
merci

 

[jmps]

Bonjour masi,

On voudrait bien t'aider mais encore faut-il que tu poses ta question.
"J'ai un problème" n'est pas une question. C'est juste une affirmation.

Allez, on attend ta vraie question ;°)

A+

José

 

[Robert]

Re masi, bonsoir le forum,

Masi ce n'est pas que personne ne veuille t'aider mais c'est que ta question est beaucoup trop vague... Dis-nous en un peut plus avec un fichier zippé en pièce jointe où tu exposeras quel est réellement ton problème.

À ce moment là tu auras certainement des réponses...

À plus,

Robert

p.s. tu connais l'histoire du malade que personne n'a réussi à soigner ? Son médecin lui demandait : qu'est-ce que vous avez ? Il répondait : J'ai mal !

 

[andré]

Salut Robert,

Dans ce cas, je te conseille de consulter un vétérinaire.

Jamais un animal n'a dit : "j'ai mal" ou "je ne me sens pas bien".
Et pourtant, les vétérinaires, qui ne sont pas des êtres extra-lucides, à ma connaissance du moins, non seulement soignent mais aussi (parfois -lol) guérissent nos chers compagnons.

Pour masi, la solution est pourtant simple : passer en format texte, et il n'y a plus de problème de format numérque !

Bon, je sais, il est temps que je m'arrête !

Ândré.

 

[masi]

Bonsoir
ok...! je demande des excuses (?)
ma question est :

Private Sub CommandButton1_Click()
On Error GoTo sort:
If designation = "" Or ref = "" Or prix = "" Or STOCK = "" Then
MsgBox "Impossible d'ajouter un article Formulaire incomplet"

Else
Dim mprix As Single
Dim mstock As Integer
Dim mdesi As String
Sheets("produit").Rows("7:7").Insert Shift:=xlDown
Sheets("produit").Rows("7:7").Interior.ColorIndex = xlNone
mprix = UserForm3.prix
mstock = UserForm3.STOCK
mdesi = UserForm3.designation

Range("c7") = mdesi
Range("b7") = UserForm3.ref
Range("D7") = mprix
Range("E7") = mstock


UserForm3.designation = ""
UserForm3.ref = ""
UserForm3.prix = ""
UserForm3.STOCK = ""
ActiveWindow.ScrollColumn = 1
Range("A7:E7").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

trier_articles
GoTo fin
sort:
MsgBox "Saisie à refaire, Format invalide"
UserForm3.designation = ""
UserForm3.ref = "" '.................................( Alphanumérique)?
UserForm3.prix = ""
UserForm3.STOCK = ""
Rows("7:7").Select
Selection.Delete Shift:=xlUp

fin:
End If
End Sub

mais quand je recupere les données dans une autre feuille, je les veut en alphanumérique merci d'avance.