Format de cellule avec séparateur décimal... texte

Le
HD
Bonjour,

J'ai un ensemble de cellule sur lequel je voudrais un format qui fasse que
si je tape :
1,75 qu'il me soit affiché : 1 ha 75 a
2 qu'il me soit affiché : 2 ha
0,1 qu'il me soit affiché : 10 a

Est ce possible ?

Merci d'avance pour votre aide
--
@+
HD
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #22920861
Bonjour,

Un clic droit sur l'onglet de la feuille et tu sélectionnes la commande "Visualiser le code"

dans la page blanche, tu inscris :
Dans la procédure, tu remplaces la plage Range("A:A") par l'adresse de
la plage où tu veux appliquer le format

A ) pour ce qui est de 1.45, le format sera 1 ha,45 a
On doit maintenir la virgule sinon comment Excel peut discriminer
la partie décimale de la partie entière... il est toujours possible
d'y insérer ce que tu désires, mais ce ne sera pas un format de cellule
et tu ne pourras plus effectuer de calcul avec le contenu.

B ) la procédure lorsqu'elle modifie une entrée 0.75 en 75 a
bien que ce soit un format de cellule, la valeur de la cellule
est maintenant de 75 dans la cellule et non plus de .75 Si tu
dois utiliser le contenu de la cellule pour d'autres calculs, tu devras
en tenir compte...

'-------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Range("A:A"), Target)
Application.EnableEvents = False
If Not Rg Is Nothing Then
For Each C In Rg
If C.Value > 1 Then
If C - Evaluate("trunc(" & C.Value & ")") = 0 Then
C.NumberFormat = "# ##0"" ha"""
Else
C.NumberFormat = "###0"" ha"".00"" a"""
End If
Else
C.Value = C * CLng(1 & Application.Rept(0, Len(Replace(C, "0,", ""))))
C.NumberFormat = "# ##0"" a"""
End If
Next
End If
Application.EnableEvents = True
End Sub
'-------------------------------------------------



MichD
--------------------------------------------
"HD" a écrit dans le message de groupe de discussion : ie5bd2$1g3g$

Bonjour,

J'ai un ensemble de cellule sur lequel je voudrais un format qui fasse que
si je tape :
1,75 qu'il me soit affiché : 1 ha 75 a
2 qu'il me soit affiché : 2 ha
0,1 qu'il me soit affiché : 10 a

Est ce possible ?

Merci d'avance pour votre aide
--
@+
HD
isabelle
Le #22921211
bonjour HD,

au menu, Format, Cellule, onglet Nombre, Personnalisé, ###0" ha ".00" a"

isabelle

Le 2010-12-13 09:42, HD a écrit :
Bonjour,

J'ai un ensemble de cellule sur lequel je voudrais un format qui fasse que
si je tape :
1,75 qu'il me soit affiché : 1 ha 75 a
2 qu'il me soit affiché : 2 ha
0,1 qu'il me soit affiché : 10 a

Est ce possible ?

Merci d'avance pour votre aide
michel ou sam
Le #22921401
Bonjour,
en laissant la virgule , voici un format personnalisé possible
[<1],#0" a";# ##0" ha",00" a"

ça donne
1 ha,75 a
2 ha,00 a
,10 a

Michel

"HD" ie5bd2$1g3g$
Bonjour,

J'ai un ensemble de cellule sur lequel je voudrais un format qui fasse que
si je tape :
1,75 qu'il me soit affiché : 1 ha 75 a
2 qu'il me soit affiché : 2 ha
0,1 qu'il me soit affiché : 10 a

Est ce possible ?

Merci d'avance pour votre aide
--
@+
HD

Maude Este
Le #22921991
Bonsour®

"HD" a écrit
J'ai un ensemble de cellule sur lequel je voudrais un format qui fasse que si
je tape :
1,75 qu'il me soit affiché : 1 ha 75 a
2 qu'il me soit affiché : 2 ha
0,1 qu'il me soit affiché : 10 a



format personnalisé :
[<100]#0" ca";[<10000]#0" a "#0" ca";#0" ha "#0" a "#0" ca"
HD
Le #22923351
format personnalisé :
[<100]#0" ca";[<10000]#0" a "#0" ca";#0" ha "#0" a "#0" ca"



Effectivement... C'est ce qui se rapprocherait le plus de ce que je
recherche. Très judicieux !!!

Je remercie tout ceux qui ont répondu à ma question.

--
@+
HD
Maude Este
Le #22923631
Bonsour®

"HD" a écrit
format personnalisé :
[<100]#0" ca";[<10000]#0" a "#0" ca";#0" ha "#0" a "#0" ca"



Effectivement... C'est ce qui se rapprocherait le plus de ce que je recherche.
Très judicieux !!!



bien évidement il faut saisir des m² !!!!
Publicité
Poster une réponse
Anonyme