Par macro, additionner 2 cellules numériques

[malabarbe]

Bonsoir à tous,

Je voudrais additionner 2 cellules, je m'explique :

A1 = 12345,0000
A2 = 0101

Ce que je voudrais faire, c'est aditionner A2 dans A1
mais au niveau des décimales.

J'ai fait des tests, mais cela me supprime le premier
zéro de A2

Comment faire ?

 

[skoobi]

Re : Par macro, additionner 2 cellules numériques

Bonjour malabarbe,

peut-on voir comment tu procèdes car là A2 n'est pas un décimal mais un entier, je suppose que tu le divise par 10000 avant de l'additionner c'est ça?

Ce simple test dans la fenêtre d'exécution marche:

?12345.0000+(0101/10000)

J'ai peut-être pas compris.

 

[malabarbe]

Re : Par macro, additionner 2 cellules numériques

Bonsoir,

J'ai trouvé une combine, mais pas très élégante !

Cells(1, 2) = 101
Cells(1, 2) = "00000,0" & Cells(1, 2)
Cells(1, 1) = (Cells(1, 1)) + (Cells(1, 2))

Résultat : 00000,0101

 

[skoobi]

Re : Par macro, additionner 2 cellules numériques

Re,

format(12345-12345.0000+(0101/10000),"00000.0000")

 

[malabarbe]

Re : Par macro, additionner 2 cellules numériques

Ok pour le format,

mais comment l'intégrer dans mes cellules ?

 

[skoobi]

Re : Par macro, additionner 2 cellules numériques

Re bonjour malabarbe,

une chose que je ne comprends pas dans ton code d'essai.
Comment peux-tu trouver 00000,0101 si en A1 = 12345,0000.
Ca ne peut que donner 12345,0101 !?!?
Ou alors A1 = 0 avant le calcul et là d'accord.

 

[malabarbe]

Re : Par macro, additionner 2 cellules numériques

Bonjour skoobi,

dans A1, je saisis : 12345,0000 (formaté nombre avec 4 décimales)
dans A2, je saisis : 101

Puis la macro

Sub Macro1()
'
' Touche de raccourci du clavier: Ctrl+k
'
Range("A1").Select
Cells(1, 2) = "00000,0" & Cells(1, 2)
Cells(1, 1) = (Cells(1, 1)) + (Cells(1, 2))

End Sub

Le résultat après macro est :
dans A1 : 12345,0101

Cela fonctionne, mais je cherchais quelque
chose de moins torturé !

@ +

 

[tbft]

Re : Par macro, additionner 2 cellules numériques

Bonjour

peu être un hors sujet mais...

function addition(E1 as double, E2 as double) as double
  addition=E1+E2/1000
end function

au cas ou...

 

[skoobi]

Re : Par macro, additionner 2 cellules numériques

Bonjour tbft,

alors ceci:

format(Cells(1, 1)+(Cells(1, 2)/10000),"00000.0000")

 

[malabarbe]

Re : Par macro, additionner 2 cellules numériques

Bonsoir,

Pour skoobi, le résultat est : 123450101,0000
Il devrais être 12345,0101

Pour tbft, je n'ai rien compris.

Ma macro serait-t'elle la bonne ?

 

[skoobi]

Re : Par macro, additionner 2 cellules numériques

Re,

As-tu vérifié le format de la cellule?
pourrais tu envoyer le fichier?

 

[tbft]

Re : Par macro, additionner 2 cellules numériques

Bonjour

Code:

function addition(E1 as double, E2 as double) as double
  addition=E1+E2/1000
end function

c'est une fonction qu'il faut mettre dans un module comme une macro.
mais cette fonction s'utilise comme une fonction "native" excel.
par exemple
A1 = 12345,0000
A2 = 0101
A3=addition(A1;A2)

A3 affichera 12345,0101

Je suis désolé pour le retard de la réponse..