Conversion

[alex60]

Bonjour,

Je souhaiterais savoir si il est possible que quand je rentre un nombre dans une cellule, cette même cellule me retourne ce nombre multiplié par un coefficient !

Mon problème est que je rentre dans un tableau excel des valeurs en € et je souhaiterais qu'elle me les convertisse toute seule en RNB : 1€ = 10CNY

En résumé, si je rentre dans la cellule L1C1 la valeur 10 (10€) est-il possible que cette cellule L1C1 m'affiche la valeur 100 (100CNY) ??

En attente de vos réponses...

 

[pierrejean]

Re : Conversion

bonjour alex60

Un essai par macro evenementielle (cellule A1)

 

[job75]

Re : Conversion

Bonsoir,

Si vous n'entrez que des nombres entiers vous pouvez utiliser le format personnalisé 0"0" ou 0"0 CNY".

Mais la valeur de la cellule ne changera pas pour autant. Pour qu'elle se multiplie toute seule par 10, il faut VBA.

A+

Edit : ah salut pierrejean 🙂

 

[alex60]

Re : Conversion

J'ai pas compris comment tu as fait...
peux m'expliquer ?
de plus quand je rentre la valeur 100 dans la cellule A1 elle me retourne 100 !!!
et non 1000...
que faut il que je fasse

 

[alex60]

Re : Conversion

ca veut dire quoi il faut VBA ???

 

[job75]

Re : Conversion

Re alex,

Voir le fichier ci-joint et la cellule A1 ==> menu Format-Cellule

A+

 

[pierrejean]

Re : Conversion

Re

Chez moi , en entrant 100 on a bien 1000

J'ai mis ceci dans le module de la feuille (c'est cela du Vba)

Dim flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If flag Then Exit Sub
flag = True
  Target.Value = Target.Value * 10
flag = False
End If
End Sub

Visible par
Outils > Macro > Visual Basic Editor

 

[alex60]

Re : Conversion

Re alex,

Voir le fichier ci-joint et la cellule A1 ==> menu Format-Cellule

A+

merci beaucoup JOB 75 !!!
Ca marche nikel !!!
Par contre est il possible que quand je rentre 5.15€ la cellule m'affiche 51.5 CNY et non 50 CNY !!

C'est un probleme au niveau des arrondis...

En attente de ta réponse ...

 

[alex60]

Re : Conversion

Est il possible que quand je rentre dans la cellule modifiée 5.15€ cette cellule m'affiche 51.5 CNY et non 50 CNY !!!

En attente de vos réponses...

 

[alex60]

A l'aide ...

Pas de reponse ??? snif snif
je galere la dessus depuis 2 jours ...
SVP
a l'aide ....

 

[job75]

Re : Conversion

Bonjour alex,

Comme déjà dit, la solution que j'ai proposée (format 0"0" ou 0"0 CNY") ne peut fonctionner correctement qu'avec des nombres entiers, puisqu'elle se résume à afficher un 0 supplémentaire.

Autrement, la seule solution est le VBA (la valeur entrée dans la cellule est alors multipliée par 10).

A+

A+

 

[alex60]

Re : Conversion

Merci JOB 75 de repondre aussi rapidement...

Par contre je ne connais pas le VBA !!
Peux me le faire sur une cellule et comme ca je copie ta cellule dans mon tableau...

Merci par avance...

 

[pierrejean]

Re : Conversion

Re

Salu Job 🙂

Voici le code Vba

Dim flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [COLOR=blue]"$A$1"[/COLOR] Then
If flag Then Exit Sub
flag = True
  Target.Value = Target.Value * 10 & " CNY"
flag = False
End If
End Sub

Pour le mettre en place dans ton fichier:
Outils > Macro > Visual basic editor
Double cliquer sur le nom de la feuille ou sera la cellule
copier/coller le code
Modifier l'adresse en bleu qui doit etre celle de la cellule (bien conserver les $)
Revenir au fichier par clic sur le X en haut a gauche et tester

 

[alex60]

Re : Conversion

Merci pierrejean pour ta réponse mais je n'arrive pas à le faire...
Je suis un novice en ce qui concerne le visual basic ...
peux tu me joindre un fichier excel...
merci par avance !!

 

[pierrejean]

Re : Conversion

Re

Voila