format celulle pour nombre simple

[Evelynetfrancois]

bonjour
pouvez vous m aider ?
je recherche ,pour une colonne , un format de nombre
me donnant 12 si le nombre est entier et 0.250 pour un nombre avec décimales
le tout restant des nombres et ( non du texte) additionnables
merci pour vos sujetions
bon apres midi a tous
E et F

 

[job75]

Re : format celulle pour nombre simple

Bonjour,

Dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal r As Range)
Set r = Intersect(r, Me.UsedRange)
If r Is Nothing Then Exit Sub
For Each r In r 'si entrées multiples
  If IsNumeric(r) Then r.NumberFormat = IIf(Int(r) = r, "0", "0.000")
Next
End Sub

A+

 

[job75]

Re : format celulle pour nombre simple

Re,

Si l'on veut se limiter à la colonne A :

Private Sub Worksheet_Change(ByVal r As Range)
Set r = Intersect(r, [A:A], Me.UsedRange)
If r Is Nothing Then Exit Sub
For Each r In r 'si entrées multiples
  If IsNumeric(r) Then r.NumberFormat = IIf(Int(r) = r, "0", "0.000")
Next
End Sub

A+

 

[job75]

Re : format celulle pour nombre simple

Re,

Si les données en colonne A sont calculées par des formules utiliser :

Private Sub Worksheet_Calculate()
Dim r As Range
Set r = Intersect([A:A], Me.UsedRange)
If r Is Nothing Then Exit Sub
For Each r In r
  If IsNumeric(r) Then r.NumberFormat = IIf(Int(r) = r, "0", "0.000")
Next
End Sub

Toute la colonne doit être traitée.

A+

 

[Evelynetfrancois]

Re : format celulle pour nombre simple

Bonjour job75+++
Dans un premier temps je pensais juste a un format de cellules...
Mais vu que ta proposition en VBA fait des merveilles, je m'y plis !!!
Mais maintenant me vient une autre interrogation :
J’ai environ 60 feuilles dans 1 même classeur
Dois je coller dans chaque feuille la macro ou est il possible de l’adapter pour la mettre dans ThisWorkBook
Encore mille mercis
E et F

 

[job75]

Re : format celulle pour nombre simple

Re,

Oui dans ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal r As Range)
Set r = Intersect(r, Sh.[A:A], Sh.UsedRange)
If r Is Nothing Then Exit Sub
For Each r In r 'si entrées multiples
  If IsNumeric(r) Then r.NumberFormat = IIf(Int(r) = r, "0", "0.000")
Next
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim r As Range
Set r = Intersect(Sh.[A:A], Sh.UsedRange)
If r Is Nothing Then Exit Sub
For Each r In r
  If IsNumeric(r) Then r.NumberFormat = IIf(Int(r) = r, "0", "0.000")
Next
End Sub

A+

 

[Evelynetfrancois]

Re : format celulle pour nombre simple

Un grand merci pour tout job75 , c'est vraiment super comme ça
bonne journée
E et F

 

[job75]

Re : format celulle pour nombre simple

Re,

Si les colonnes A des feuilles sont déjà renseignées il est facile de les mettre à jour :

Sub MAJ()
Dim w As Worksheet
For Each w In Worksheets
w.[A:A].Copy w.[A1]
Next
End Sub

La ou les macros du post #6 étant bien sûr en place.

A+