Format de cellule dans Texbox

PascalXLD

XLDnaute Barbatruc

• 24 Février 2009

• #2

Re : Format de cellule dans Texbox

Bonjour

essaies

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

 

Vote positif 0 Vote négatif

O

oslo71

XLDnaute Nouveau

• 24 Février 2009

• #3

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.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Février 2009

• #4

Re : Format de cellule dans Texbox

RE

Le fichier n'est pas passé

Sinon mon code était à adapter bien sur

 

Vote positif 0 Vote négatif

O

oslo71

XLDnaute Nouveau

• 24 Février 2009

• #5

Re : Format de cellule dans Texbox

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

 

Pièces jointes

• Format de cellule dans texbox.1.zip

  28.4 KB · Affichages: 31

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Février 2009

• #6

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 ?

 

Vote positif 0 Vote négatif

O

oslo71

XLDnaute Nouveau

• 24 Février 2009

• #7

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.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Février 2009

• #8

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à

 

Vote positif 0 Vote négatif

O

oslo71

XLDnaute Nouveau

• 24 Février 2009

• #9

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.

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 24 Février 2009

• #10

Re : Format de cellule dans Texbox

Bonsoir

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

Code:

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

 

Vote positif 0 Vote négatif

O

oslo71

XLDnaute Nouveau

• 25 Février 2009

• #11

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.

 

Vote positif 0 Vote négatif

O

oslo71

XLDnaute Nouveau

• 25 Février 2009

• #12

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.

 

Vote positif 0 Vote négatif