Forcer format de cellule à 1 décimale

bonjour,

j'ai récupéré un fichier qui contient des nombres à plusieurs décimales.

je voudrais une macro à affecter à une forme permettant lors d'une preselection d'une plage de cellule,

que les cellules contenant un nombre soit modifié pour ne garder qu'une décimale aprés la virgule :

ex : 1365.125669 devienne 1365.1

et ceci bien sur pas seulement à l'affichage mais bien le contenu de la cellule.

par contre, les cellules vides ou contenant texte ou contenant un nombre entier ne doivent pas être modifié.

merci d'avance.

bonjour

il existe une formule ARRONDI.INF( ta valeur ;1) a voir si tu peux la caser dans une colonne adjacente

cordialement

la plage de cellule comprend selon le cas (tableau évolutif) une cinquantaine de ligne sur plusieurs colonnes, je privilégie donc une selection manuelle de la plage de cellule avant clic sur un bouton lié à la macro.

donc pour la colonne ou inserer ta formule, c'est raté, c'est bien pour cela que je parle bien de macro.

Bonjour

Je te propose ce code :

Sub Arrondir()
Dim plage As Range
Dim c As Range
Set plage = Application.InputBox("Quelle plage ?", Type:=8)
For Each c In plage
c = Round(c, 1)
Next c
End Sub

La sélection des cellules se fait dans l'Inputbox

Amicalement

Nad

Merci, ça fonctionne.