Multiplier Diviser plusieurs nombres avec fonctions personnalisées

[Lone-wolf]

Bonjour à Tous,

comment multiplier et diviser une plage de celulles avec des fonctions personnalisées?

Voir fichier joint.



A+

 

[Staple1600]

Re : Multiplier Diviser plusieurs nombres avec fonctions personnalisées

Bonsoir le fil

Juste de passage pour saluer Job75 et apprécier son VBA
EDITION: sur un PC sous XL2003 cela bogue , Job75 .

Lone-Wolf : salutations, en espérant que tu prennes goût au VBA en lisant des codes tel que celui de Jo75 (entre autres membres du forum férus de VBA)

 

[job75]

Re : Multiplier Diviser plusieurs nombres avec fonctions personnalisées

Bonsoir Jean-Marie

Je suis sous Excel 2003 aussi.

Le seul bug que j'ai vu c'est quand la plage est horizontale (vecteur ligne).

J'ai eu un peu de mal à trouver cette solution :

Function Operation(Otype$, Plage)
Dim aux$, i As Byte, operateur$
If Plage.Rows.Count = 1 Then Plage = Application.Transpose(Plage)
Plage = Application.Transpose(Plage)
aux = "A+S-M*D/"
i = InStr(aux, UCase(Left(Otype, 1)))
operateur = Mid(aux, i + 1, 1)
Operation = Evaluate(Join(Plage, operateur))
If IsError(Operation) Then Operation = "" 'facultatif
End Function

Fichier (3)

A+

 

[job75]

Re : Multiplier Diviser plusieurs nombres avec fonctions personnalisées

Re,

Un tantinet perfectionniste...

Version (4) en cas de cellules vides dans la plage :

Function Operation(Otype$, Plage)
Dim aux$, i As Byte, operateur$, txt$
If Plage.Rows.Count = 1 Then Plage = Application.Transpose(Plage)
Plage = Application.Transpose(Plage)
aux = "A+S-M*D/"
i = InStr(aux, UCase(Left(Otype, 1)))
operateur = Mid(aux, i + 1, 1)
txt = Join(Plage, " ")
txt = Application.Trim(txt) 'fonction Excel SUPPRESPACE
txt = Replace(txt, " ", operateur)
Operation = Evaluate(txt)
If IsError(Operation) Then Operation = "" 'facultatif
End Function

A+

 

[Lone-wolf]

Re : Multiplier Diviser plusieurs nombres avec fonctions personnalisées

Bonsoir Job, Stapple,

@Stapple: bien sûr que c'est superbe et j'y prend goût!!

Job, si ça continue comme ça, on vas arriver à la version 10, version qui battera "POLICE ACADEMY" qui en à 7.

Je viens de voir ton MP, Flash . Une 4ème version???

Merci infiniment MAÎTRE, je m'incline (je voudrais aussi dire chapeau bas, mais j'en ai pas LOL).


A+

 

[job75]

Re : Multiplier Diviser plusieurs nombres avec fonctions personnalisées

Bonjour le fil, le forum,

Juste pour créer le lien avec ce fil :

https://www.excel-downloads.com/thr...eau-bidimensionnel-en-unidimensionnel.164076/

A+