XL 2013 Convertir des nombres

[Danyk01]

Bonjour

J'ai l'habitude de saisir mes chiffres de dimensions en mm
Mais pour les besoins de mon fournisseur je voudrais que dans la colonne (A4:A9) elles s'affichent en (Mètre) et (B1:C9colonnes en (Cm)
Je me suis lancé dans une macro mais il me faut de l'aide
Ci-joint un fichier exemple avec la macro (qui ne fonctionne pas)
A savoir : je saisis en mm par ex : (7000mm) qui serait à diviser par 1000 pour afficher 7,0 M (avec 1 décimale)

 

[Staple1600]

Bonjour

Sauf erreur de ma part, la fonction native d'Excel fait cela, non ?
=CONVERT(1000;"mm";"cm")
ou
=CONVERT(1000;"mm";"m")

 

[sylvanu]

Bonjour Danyk, Staple,
Un essai en PJ.
Un nombre entré en mm est automatiquement transformé en m.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge <> 1 Then Exit Sub
If Target.Column = 1 And Target.Row > 3 Then
    Application.EnableEvents = False
    Target.Value = Target.Value / 1000
    Application.EnableEvents = True
End If
End Sub

 

[Staple1600]

Bonjour sylvanu

Je suis dans l'erreur ou pas avec CONVERT ?
(j'ai comme un doute soudainement)
Tu peux confirmer/infirmer, stp?

 

[sylvanu]

Ça marche. =CONVERT(1000;"mm";"m") donne 1

Mais je n'ai pas interprété la requête comme ça.
"Je tape dans une cellule une valeur en mm et elle s'affiche en m. Donc dans la même cellule."

D'ailleurs je viens de m'apercevoir que je ne traite pas les colonnes B et C. 😡
En PJ c'est rectifié.

 

[patricktoulon]

re
Bonjour le fil
oui moi aussi j'ai compris la demande comme sylvanu

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <= 3 And Target.Row > 3 And Target.Count = 1 Then
    x = Switch(Target.Column = 1, 1000, Target.Column = 2, 10, Target.Column = 3, 10)
        Application.EnableEvents = False
        Target.Value = Target / x
        Application.EnableEvents = True
    End If
End Sub

 

[Danyk01]

Ça marche. =CONVERT(1000;"mm";"m") donne 1

Mais je n'ai pas interprété la requête comme ça.
"Je tape dans une cellule une valeur en mm et elle s'affiche en m. Donc dans la même cellule."

D'ailleurs je viens de m'apercevoir que je ne traite pas les colonnes B et C. 😡
En PJ c'est rectifié.

Merci pour ton aide, ça fonctionne, il reste de le transférer sur mon document d'origine

MERCI à TOUS C'est solutionné

 

[Danyk01]

Bonjour sylvanu

Je suis dans l'erreur ou pas avec CONVERT ?
(j'ai comme un doute soudainement)
Tu peux confirmer/infirmer, stp?

Merci pour ton aide, j'ai eu une macro par Sylvanu et ça fonctionne
Je vais quand même essayer ta solution et je te tiens au courant

 

[Modeste geedee]

Bonsour®

J'ai l'habitude de saisir mes chiffres de dimensions en mm
Mais pour les besoins de mon fournisseur je voudrais que dans la colonne (A4:A9) elles s'affichent en (Mètre)
../..
A savoir : je saisis en mm par ex : (7000mm) qui serait à diviser par 1000 pour afficher 7,0 M (avec 1 décimale)

on parle bien d'affichage et pas de valeur ??? !!!!
sans formules sans macro !!
un simple format suffit :

pour les centimètres
#0\,0" cm"
pour les mètres :
#0,00 " m" <==== notez ici l'espace devant le premier "
pour les mm:
#0" mm"

 

[Danyk01]

Merci Modeste geedee
Ce n'est pas tout à fait ce que je recherche, il faut que dans la même cellule si je saisis en mm ça me l'affiche automatiquement en M ou en Cm
Sylvanu m'a trouvé la solution
Bonne soirée

 

[Modeste geedee]

Bonsour®

Merci Modeste geedee
Ce n'est pas tout à fait ce que je recherche, il faut que dans la même cellule si je saisis en mm ça me l'affiche automatiquement en M ou en Cm
Sylvanu m'a trouvé la solution
Bonne soirée

????

je saisis en mm par ex : (7000mm) ... pour afficher 7,0 M

il suffit d'appliquer le format souhaité à la cellule ou l'on saisi en mm
tu pourra saisir (toujours en mm) autant de fois que tu veux l'affichage se fait selon le format qui y est appliqué,
Excel ne peut deviner tes pensées...

l'exemple est pourtant simple !!!
la valeur réelle reste en mm, celle affichée correspond format appliqué !!!