Format de cellule dans Texbox

[oslo71]

Bonjour à tous,

Peut-être pourrez-vous m'aider de nouveau !!
J'ai un une userbox dans laquelle il y a "X" texbox.
Chaque texbox reprend une donnée (nombre avec 2 chiffres près la virgule) qu'il y a dans une cellule de ma feuille de calcul.
Le Pb est que mes texbox me mettent les données avec les 15 chiffres après la virgule.
Que puis-je mettre dans mon code pour que mes texbox ne m'affichent que 2 chiffres après la virgule ?
Si quelqu'un a la solution, je l'en remercie vraiment.
Cordialement.

 

[PascalXLD]

Re : Format de cellule dans Texbox

Bonjour

essaies

textbox1=format(range("A1"),"0,00")

 

[oslo71]

Re : Format de cellule dans Texbox

Merci PascalXLD de t'intéresser a mon pb.
Malheureusement, ce code ne marche pas, ou je n'arrive pas à le mettre correctement.
Pour être plus explicite, je me permets de joindre un fichier, sans doute y verrez-vous plus clair.
Si vous avez des solutions, merci beaucoup
Cordialement.

 

[PascalXLD]

Re : Format de cellule dans Texbox

RE

Le fichier n'est pas passé

Sinon mon code était à adapter bien sur

 

[oslo71]

Re : Format de cellule dans Texbox

Excusez-moi, mon fichier était trop gros et il n'est pas parti.
Je vous le joints.
Merci

 

[PascalXLD]

Re : Format de cellule dans Texbox

Re

essaies en modifiant

Me.Controls(£Ctrl.Name).Value = .Cells(£ligne1, £coln)

par

Me.Controls(£Ctrl.Name).Value = format(.Cells(£ligne1, £coln),"0,00")

Il n'est pas de toi le code sinon ?

 

[oslo71]

Re : Format de cellule dans Texbox

Non, je l'ai modifié pour mon besoin, mais ta modif ne fonctionne pas, je ne retrouve plas les données de ma feuille Récap dans l'Userform. Tu verras si tu fais l'essai avec le fichier joint. Il y a surement une solution, nous allons bien finir par la trouver.
Merci.

 

[PascalXLD]

Re : Format de cellule dans Texbox

re

en fait c'était un point et non une virgule

Me.Controls(£Ctrl.Name).Value = Format(.Cells(£ligne1, £coln), "0.00")

le problème c'est que le code que tu as repris fait une recopie en masse alors qu'il faudrait trier les colonnes car certaines ne sont pas dans ce format là

 

[oslo71]

Re : Format de cellule dans Texbox

oui effectivement, je m'étais aussi aperçu que c'était un point. Il est vrai que ca me met le format pour toutes les colonnes, peut on mettre ce format juste pour les colonnes moyennes et écarts ? et garder le format normal pour les autres.
L'autre question était de savoir si on peut imprimer cette Userform.
Merci.

 

[jp14]

Re : Format de cellule dans Texbox

Bonsoir

Ci dessous un exemple de modification de code pour tenir compte du format

Private Sub remplircontrol(£ligne1 As Long, £nomfeuille1 As String)
' Nom des label
' Label  numéro d'ordre= numéro colonne

With Sheets(£nomfeuille1)

For Each £Ctrl In Me.Controls
    Select Case TypeName(£Ctrl)
    
        Case "TextBox"
            £coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
            ' spécifier un format
            Select Case £coln
' pour appliquer un format sur les colonnes 25 à 43
                    [COLOR="red"]Case 25 To 43
                    Me.Controls(£Ctrl.Name).Value = Format(.Cells(£ligne1, £coln), "###0.00")[/COLOR]
                    Case Else
                    Me.Controls(£Ctrl.Name).Value = .Cells(£ligne1, £coln)
            End Select
            
        Case "ComboBox"
            £coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
            Me.Controls(£Ctrl.Name).Value = .Cells(£ligne1, £coln)
    End Select
    
Next £Ctrl
End With
End Sub

A modifier en fonction des colonnes

Case 35,36 si on désire uniquement les colonne 35 et 36
A tester

JP

 

[oslo71]

Re : Format de cellule dans Texbox

T'es GENIAL, JP14, je viens de mettre ton code.
Il fonctionne à merveille.
Un grand merci à tous les deux.😀😀
Cordialement.

 

[oslo71]

Re : Format de cellule dans Texbox

Oups, il me restait une interrogation en cours, j'aurais bien aimé pouvoir imprimer cette Userform renseignée !! mais peut-être n'est-ce pas possible ? 😕
Cordialement.