XL 2016 Format cellule

chris

XLDnaute Barbatruc

• 28 Novembre 2022

• #2

Bonjour

Un nombre est par convention aligné à droite
Excel respecte cette règle et s'il reconnait un nombre, il l'aligne à droite

Tout alignement à gauche, sauf forçage par l'utilisateur, indique qu'Excel détecte un texte

Le code de ton formulaire inscrit donc du texte et non des nombres dans les cellules

 

Vote positif 0 Vote négatif

Solution

job75

XLDnaute Barbatruc

• 28 Novembre 2022

• #3

Bonjour micpid, chris, le forum,

Actuellement vous avez par exemple :

VB:

Set c = Range("A2")
c = TextBox1

Utilisez :

VB:

Set c = Range("A2")
If IsNumeric(TextBox1) Then c = CDbl(TextBox1) Else c = TextBox1

ou encore :

VB:

Set c = Range("A2")
c = Val(Replace(TextBox1, ",", "."))

A+

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 28 Novembre 2022

• #4

Bonjour,

Il me semble que toute saisie dans un UserForm est au format Texte.
Donc au moment d'assigner ladite saisie à une cellule d'une feuille, si on veut que ce soit un nombre, il faut passer par une conversion du genre CDec().

 

Dernière édition: 28 Novembre 2022

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Novembre 2022

• #5

Cela dit avec la propriété .Value Excel fait la conversion :

VB:

Set c = Range("A2")
c.Value = TextBox1.Value

Salut TooFatBoy.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 28 Novembre 2022

• #6

Bonjour job75.
Je crois bien que je ne le savais même pas... 😕

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 28 Novembre 2022

• #7

Merci
Voilà ce que j'ai saisie dans le controle concerné

VB:

Private Sub Def5_Change()
Set c = Range("E2")
c.Value = Def5.Value
End Sub

mais je n'ai toujours pas le résultat escompté

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 28 Novembre 2022

• #8

Bonsoir,
le .value renvoie la valeur dans la cellule mais il y a de grande chance que cela soit interprété comme du texte de base et pas converti.
Donc comme le précise TooFatBoy (#6) ... soit tu forces une conversion en numérique pour que tout tes chiffres insérés dans tes celulle excel soit de vrai nombre, soit tu laisse comme cela et change le format de ta colonne de 'standard' à 'Texte' pour que tout tes chiffres reste en 'Texte' dans la colonne...
tout dépend ce que tu veux en faire ensuite ... des calculs, un code à barre, ...

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 28 Novembre 2022

• #9

Et comment faire la conversion CDec ,

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 28 Novembre 2022

• #10

c=cdec(def5)

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 28 Novembre 2022

• #11

Encore merci pour m'aider mais je ne trouve pas la solution
J'essaye de mettre en nombre dans la feuille défunt pour pouvoir faire un récapitulatif dans la feuille fichePdf
comme vous pouvez le constater en ajouter un défunt avec le formulaire de saisi des défunts le récaputulatif de la feuille fichePdf ne se fait pas. Par contre si je saisi directement les données dans la feuille defunt, la feuille fichePdf se met à jour.
Je joint mon fichier pour éventuellement me solutionner

 

Pièces jointes

• GestionCimetiere_SuisseV09.xlsm

  553.8 KB · Affichages: 3

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 28 Novembre 2022

• #12

une dernière tentative :
Sheets("defunt").Range("a" & dlt) = CDec(Me.Def1)
Sheets("defunt").Range("b" & dlt) = Me.Def2
Sheets("defunt").Range("c" & dlt) = Me.Def3
Sheets("defunt").Range("d" & dlt) = CDec(Me.Def4)
Sheets("defunt").Range("e" & dlt) = CDec(Me.Def5)


ton surnom c'est Poupou ? 🤔 😅 🥳

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 28 Novembre 2022

• #13

Merci beaucoup

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 28 Novembre 2022

• #14

remarque il ne sert à rien de mettre chacune de mes réponses comme solution car on ne peut mettre qu'une seule réponse comme solution dans tout un fil de discussion

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Novembre 2022

• #15

Bonjour le forum,

La conversion des nombres se fait très bien avec ceci :

VB:

   Sheets("defunt").Range("a" & dlt) = Def1.Value
   Sheets("defunt").Range("b" & dlt) = Def2
   Sheets("defunt").Range("c" & dlt) = Def3
   Sheets("defunt").Range("d" & dlt) = Def4.Value
   Sheets("defunt").Range("e" & dlt) = Def5.Value

Quant aux macros Defx_Change seule celle-ci est à conserver :

VB:

Private Sub Def2_Change()
Def2 = UCase(Def2)
End Sub

A+

 

Vote positif 0 Vote négatif