Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel convertion automatique

convertion automatique

8 réponses
Avatar
le méruvien
bonjour,
comment peut-on faire dans excel?
je tape (par exemple) dans la cellule A1 "50", dès que je valide, je veut
que ce chiffre soit converti en francs, et qu'il s'affiche donc " 327.98"
1)Faire une macro, oui, mais comment ?
2) comment faire en sorte que cette macro s'execute dès l'appuis sur
"entrée" ??
merci d'avance aux crack qui me donnerons la solution !
roger
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Avec ceci par exemple :
(Clic droit sur l'onglet de la feuille, Visualiser le code et coller les
lignes ci-dessous)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Or Target.Value = 0 Then Exit
Sub
Application.EnableEvents = False
Target.Value = Target.Value * 6.55957
Application.EnableEvents = True
End Sub

Cordialement
Pascal

"le méruvien" a écrit dans le message de
news:41382b23$0$20443$
bonjour,
comment peut-on faire dans excel?
je tape (par exemple) dans la cellule A1 "50", dès que je valide, je veut
que ce chiffre soit converti en francs, et qu'il s'affiche donc " 327.98"
1)Faire une macro, oui, mais comment ?
2) comment faire en sorte que cette macro s'execute dès l'appuis sur
"entrée" ??
merci d'avance aux crack qui me donnerons la solution !
roger




Avatar
le méruvien
bonjour, merci, mais je suis désolé, ça marche pas, la procédure n'est pas
appelée, car en mettant un point d'arret a la ligne "target.value", ça ne
s'arrete même pas ??


"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Avec ceci par exemple :
(Clic droit sur l'onglet de la feuille, Visualiser le code et coller les
lignes ci-dessous)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Or Target.Value = 0 Then
Exit

Sub
Application.EnableEvents = False
Target.Value = Target.Value * 6.55957
Application.EnableEvents = True
End Sub

Cordialement
Pascal

"le méruvien" a écrit dans le message de
news:41382b23$0$20443$
bonjour,
comment peut-on faire dans excel?
je tape (par exemple) dans la cellule A1 "50", dès que je valide, je
veut


que ce chiffre soit converti en francs, et qu'il s'affiche donc "
327.98"


1)Faire une macro, oui, mais comment ?
2) comment faire en sorte que cette macro s'execute dès l'appuis sur
"entrée" ??
merci d'avance aux crack qui me donnerons la solution !
roger








Avatar
le méruvien
Milles excuses !!
ça marche, c'est le niveau de securite qui bloquait la macro :-)
merci encore !

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Avec ceci par exemple :
(Clic droit sur l'onglet de la feuille, Visualiser le code et coller les
lignes ci-dessous)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Or Target.Value = 0 Then
Exit

Sub
Application.EnableEvents = False
Target.Value = Target.Value * 6.55957
Application.EnableEvents = True
End Sub

Cordialement
Pascal

"le méruvien" a écrit dans le message de
news:41382b23$0$20443$
bonjour,
comment peut-on faire dans excel?
je tape (par exemple) dans la cellule A1 "50", dès que je valide, je
veut


que ce chiffre soit converti en francs, et qu'il s'affiche donc "
327.98"


1)Faire une macro, oui, mais comment ?
2) comment faire en sorte que cette macro s'execute dès l'appuis sur
"entrée" ??
merci d'avance aux crack qui me donnerons la solution !
roger








Avatar
le méruvien
pas si vite !!
big probleme, (pour moi pas pour toi)
comment exclure de cette macro, les ligne de totaux
exemple:
ligne B5:M5 somme(b3:b4) ...............
ligne B21:M21 somme(b8:b20) .............
merci

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Avec ceci par exemple :
(Clic droit sur l'onglet de la feuille, Visualiser le code et coller les
lignes ci-dessous)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Or Target.Value = 0 Then
Exit

Sub
Application.EnableEvents = False
Target.Value = Target.Value * 6.55957
Application.EnableEvents = True
End Sub

Cordialement
Pascal

"le méruvien" a écrit dans le message de
news:41382b23$0$20443$
bonjour,
comment peut-on faire dans excel?
je tape (par exemple) dans la cellule A1 "50", dès que je valide, je
veut


que ce chiffre soit converti en francs, et qu'il s'affiche donc "
327.98"


1)Faire une macro, oui, mais comment ?
2) comment faire en sorte que cette macro s'execute dès l'appuis sur
"entrée" ??
merci d'avance aux crack qui me donnerons la solution !
roger








Avatar
FxM
Bonjour,

[Non testé] Plusieurs méthodes suivant ce que tu souhaites :

- exclure les sommes uniquement :
If ucase(left(target.formula,6)) = ucase("=somme(") then exit sub

- exclure les formules en général :
If left(target.formula,1) = "=" then exit sub

La nouvelle ligne est à insérer la :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Or _
Target.Value = 0 Then Exit Sub

' INSERER ICI

Application.EnableEvents = False
Target.Value = Target.Value * 6.55957
Application.EnableEvents = True
End Sub

@+
FxM



le méruvien wrote:
pas si vite !!
big probleme, (pour moi pas pour toi)
comment exclure de cette macro, les ligne de totaux
exemple:
ligne B5:M5 somme(b3:b4) ...............
ligne B21:M21 somme(b8:b20) .............
merci

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:

Bonjour
Avec ceci par exemple :
(Clic droit sur l'onglet de la feuille, Visualiser le code et coller les
lignes ci-dessous)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Or Target.Value = 0 Then


Exit

Sub
Application.EnableEvents = False
Target.Value = Target.Value * 6.55957
Application.EnableEvents = True
End Sub

Cordialement
Pascal

"le méruvien" a écrit dans le message de
news:41382b23$0$20443$

bonjour,
comment peut-on faire dans excel?
je tape (par exemple) dans la cellule A1 "50", dès que je valide, je



veut

que ce chiffre soit converti en francs, et qu'il s'affiche donc "



327.98"

1)Faire une macro, oui, mais comment ?
2) comment faire en sorte que cette macro s'execute dès l'appuis sur
"entrée" ??
merci d'avance aux crack qui me donnerons la solution !
roger












Avatar
FxM
FxM wrote ... une conceté !

=somme( -> donne 7 caractères et non 6.

@+
FxM (qui va compter ses doigts et sur ses doigts)
Avatar
AV
comment exclure de cette macro, les ligne de totaux exemple:
ligne B5:M5 ligne B21:M21


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("B5:M5"), Range("B21:M21"))) Is Nothing
Then Exit Sub

' le reste du code
End sub

AV

Avatar
le méruvien
Et ben voila !! quelque chose de super !!
merci beaucoup a tous,
roger

"AV" a écrit dans le message de
news:
comment exclure de cette macro, les ligne de totaux exemple:
ligne B5:M5 ligne B21:M21


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("B5:M5"), Range("B21:M21"))) Is
Nothing

Then Exit Sub

' le reste du code
End sub

AV