Formules

A

apdf1

XLDnaute Impliqué

• 6 Novembre 2010

• #2

Re : Formules

Re

Personne peut m'aider

Tempi

Max

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 6 Novembre 2010

• #3

Re : Formules

Bonsoir,
Dans le module de la feuille, ici pour la ligne 11 donc à adapter

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$8" Then Range("C11:K11").NumberFormat = "0.00 \" & Range("M8") & ""

End Sub

A+
kjin

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 6 Novembre 2010

• #4

Re : Formules

bonjour,
38 minutes c'est cours pour dire qu'il n'y a personne pour t'aider,sache qu'ici chaque personne est bénévole donc la patience est la bienvenue pour chaque demande.
A bientôt peut être...

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 6 Novembre 2010

• #5

Re : Formules

Bonjour,

N'oublie pas que nous sommes sur un Forum animé par des bénévoles,

et donc, qu'il faut être un peu patient...

Sinon, tu nous mets des formules ici et là, mais on ne les retrouve pas sur la ligne 11.

Il est possible de concaténer la formule avec le symbole de la devise sélectionnée (avec utilisation de la fonction TEXTE)

Inconvénient : ça fait perdre aux données leur caractère numérique.

Le cas échéant, tu pourrais peut-être nous joindre un extrait de ton vrai fichier (celui avec les formules).

@+

Edit : salut les amis 🙂

@+

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 6 Novembre 2010

• #6

Re : Formules

Bonjour KJIN,

J'ai bien mis le code mais rien ne se passe ?

Peut être une erreur

@+

Max

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 6 Novembre 2010

• #7

Re : Formules

Bonsoir à tous, re

apdf1 à dit:

J'ai bien mis le code mais rien ne se passe ?

Cliquez pour agrandir...

Ah bon !
A+
kjin

 

Pièces jointes

• apdf1.zip

  27.1 KB · Affichages: 26

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 6 Novembre 2010

• #8

Re : Formules

Re Bonjour KJIN

Et merci beaucoup de passer du temps pour aider les autres.

Le problème j'aimerais changer les devises en fonction de la liste déroulante qui se trouve en M8 car j'ai besoin de nombreuse de plusieurs devise
Je vous remercie tous.

@+
Max

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 6 Novembre 2010

• #9

Re : Formules

Re,
Alors change comme ceci en adaptant la plage C11:K11 par la plage dans laquelle la macro doit opérer

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C11:K11")) Is Nothing Then Target.NumberFormat = "0.00 \" & Range("M8") & ""

End Sub

A+
kjin

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 6 Novembre 2010

• #10

Re : Formules

re,
j'avais ceci,mais je pense que kijn t'as donner une solution:

Code:

Public valeur As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Ranges
If valeur = [m8] Then Exit Sub
valeur = [m8]
Range("c11:k210").Select
Selection.NumberFormat = "0" & valeur & ""
End Sub

edit: bonsoir,kijn,Tibo😀

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 6 Novembre 2010

• #11

Re : Formules

Re,

Merci beaucoup Kijn, Fhoest

J'ai adopter le code de Fhoest super je vous remercie tous.

Bonne soirée
Max

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 7 Novembre 2010

• #12

Re : Formules

Bonsoir,
Bah, j'ai qq doute, mais puisque ça te convient...
A+
kjin

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 7 Novembre 2010

• #13

Re : Formules

Bonjour Kijn,

Je tiens a m'excuser je viens de revoir ton code et ces bien moi qui a fait une erreur, ton code est bon excuse moi.

Bonne dimanche a toi et j espère à bientôt

Max

 

Vote positif 0 Vote négatif