Problème de format

[sev]

Bonsoir le forum,

Je vous expose un nouveau problème de format :
Dans un textbox doit s'afficher un N° ( boite N°1 place 12 ou boite N°2 place 112) que je voudrais voir apparaitre comme ceci dans le textbox ( 1 12 et 2 112).
Dans le code VBA j'ai ceci :.Value = Format(MyCellValue, "# ##")
L'espace n'est pas à la bonne postion pour les places dépassant la centaine.
Comment remédier à cela ?

En vous remerciant par avance

 

[blord]

Re : Problème de format

Bonjour,

Juste une suggestion, pourquoi ne pas mettre un textbox pour le numéro de la boîte et un textbox pour l'emplacement ? Cela éviterait toute confusion lors de la saisie des informations par les utilisateurs et permet un meilleur contrôle sur l'output désiré...

Blord

 

[sev]

Re : Problème de format

En fait ce textbox est dans un Userform assez complexe et je ne voudrais pas rajouter d'autre textbox.

 

[job75]

Re : Problème de format

Bonsoir,

Quelle est la formule qui calcule MyCellValue ? Et y a-t-il seulement 2 boîtes ? S'il y en a plus de 9, problème...

A+

 

[sev]

Re : Problème de format

la voici :

Private Sub RunFormat_TextBox38(ByRef MyCell As Range)


    With MyCell
        With .Font
            MyCellFont = .Name
            MyCellFontSize = .Size
            MyCellFontColor = .Color
            MyCellBold = .Bold
            MyCellItalic = .Italic
            MyCellUnderLine = .Underline
            MyCellValue = MyCell.Value
        End With
       
    
    
    With Me.TextBox38
        With .Font
            .Name = MyCellFont
            .Bold = MyCellBold
            .Italic = MyCellItalic
            .Size = MyCellFontSize
            
        End With
        
        .ForeColor = MyCellFontColor
       [COLOR="Blue"] .Value = Format(MyCellValue, "# ##")[/COLOR]
    End With

Me.CommandButton2.Visible = True
End With
End Sub

 

[job75]

Re : Problème de format

Re,

Vous ne répondez à aucune de mes deux questions !

Il doit y avoir un endroit dans votre code où vous avez :

MyCellValue = xxxxxxxxxxxxxxxxxxxxxxxxxxxxx

C'est xxxxxxxxxxxxxxxxxxxxxxxxxxxxx qu'il faut me donner...

A+

Edit : pardon, je n'avais pas vu :

MyCellValue = MyCell.Value

Alors comment la valeur de cette cellule est-elle entrée dans la feuille ?

 

[sev]

Re : Problème de format

Option Explicit



Private MyCellFont As String, _
        MyCellFontSize As Long, _
        MyCellFontColor As Long, _
        MyCellUnderLine As Long, _
        MyCellBold As Boolean, _
        MyCellItalic As Boolean, _
        MyCellValue As String

Dans la feuille la valeure est comme cela :2 102

 

[job75]

Re : Problème de format

Re,

Vous ne m'aidez pas beaucoup, alors à tout hasard essayez :

.Value = Application.Replace(MyCellValue, 2, 0, " ")

A+

 

[sev]

Re : Problème de format

Merci Job75, c'est OK cela fonctionne