Discussion :

[namlik]

bonjour,
j'ai un problème de calcul de plusieurs valeurs dans une même cellule.
à partir d'un logiciel tiers, je dois faire une exportation vers un fichier Pal qui se présente coomme suit: PAl(13 chiffres).slk. par la suite je copie ce fichier dans un fichier excel (2003). or il y a plusieurs cellules contenants chacune plusieurs valeurs les unes en dessous des autres et si je sais comment additionner des valeurs de différentes cellules, je ne sais pas comment faire pour avoir un total par cellule.
quelqu'un aurait-il une solution macro ou autre pour pouvoir me depanner, en sachant que ne je suis qu'un utilisateur basique d'excel.
merci d'avance pour vos sugestions.

[delphine35]

Est ce que tu as un exemple du contenu de ton/tes fichiers et ce que tu voudrais en résultat .....

[Didier Gonard]

Bonjour,

le mieux serait de mettre une copie d'écran de cellules concernées au moyen des balises ad-hoc :

Si ce qui se passe est que dans une cellule, on se retrouve avec plusieurs nombres mis les un en dessous des autres, il sont interprétés comme du texte (alignés à gauche par défaut) et pour les traiter, il faudra passer par des manipulations de chaînes.

Il est primordial de savoir si la structure est permanente ou non etc...

cordialement,

Didier

[namlik]

collages 2009 2010.xls
c'est surtout la dernière colonn qui m'interresse.

[delphine35]

A part passer par une macro VBA, car tu veux "convertir" une colonne en plusieurs lignes ....

[namlik]

ben disons que s'il était possible d'avoir juste le total des valeurs dans les cellulesse serait plus facile à gérer.
le but est d'avoir un total des coûts de collage des vins et d'en faire une moyenne. ça, j'en suis capable mais c'est le calcul par cellule qui me pose problème.

[Didier Gonard]

Bonjour,

Ton souci, si tu es en séparateur numérique français normal, donc la virgule, est double puisque tes "nombres" comportent des points.

Pour arriver à ce que tu veux, on va :

1. Avoir besoin d’une colonne où l’on mettra les totaux
2. D’utiliser, comme signalé auparavant, un traitement de chaînes de caractères qui va transformer ce genre de cellule (quelque soit le nombre de « nombres ») :
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   4
   5
   6
   7
    contenu de la cellule :
   0.61000
   1.13000
   4.29000
   20.16000
   1.62000
   2.13000

   en :
   
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   =0,61000+1,13000+4,29000+20,16000+1,62000+2,13000

3. Une fonction qui va transformer notre chaîne de caractères en formule active.

Solutions :

2) on va utiliser cette formule de chaîne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

="="&(SUBSTITUE(SUBSTITUE(A1;CAR(10);"+");".";","))

3) On va utiliser une ancienne macro XL4 qu’on ne peut désormais valider qu’à travers un nom.

Donc tu fais Insertion, Nom, Définir. Dans noms dans le classeur, tu tapes Fonc_Eval et dans fait référence à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=EVALUER("="&(SUBSTITUE(SUBSTITUE(Feuil1!B1;CAR(10);"+");".";",")))

Ensuite en considérant que tes cellules sources soient en A et ta colonne total en B, tu rentres en B1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Fonc_Eval

Et avec la poignée de recopie tu descends le long de ta colonne

cordialement,

Didier

[namlik]

Bonjour,
j'ai bien appliqué la formule, mais j'ai un message d'erreur dans la formule à chaque fois, j'ai bien verifié que tous les temes etaient bien ecrits, respecté les majuscules, mais rien n'y fait.
je me suis rendu compte que le logiciel de traçabilité utilisait le point comme séparateur numérique, peut être que le problème vient de là ?
cordialement
Pierre

[namlik]

c'est fait je n'ai plus de problème d'erreur de formule, mais je n'arrive pas à avoir un résultat. sachant que c'est la colonne H qui m'interresse, j'ai remplacé dans la formule B1 par H2, mais j'obtient "VALEUR" ou "NOM" dans la cellule, j'ai donc remplacé H2 par J2 (cellule de destination), et j'ai une reference circulaire.

[Didier Gonard]

Bonjour,

Même si c'est un fichier sans VBA; il contient une macro, donc voit ton niveau de sécurité et accepte la macro XL4 si message..

Sinon, je met en PJ le fichier exemple, ça te permettra de voir et de manipuler.

Faire le total sans vba de plusieurs nombres empilés dans une même cellule

PS : la colonne C n'est là que pour exemple, elle est inutile !

cordialement,

Didier

[namlik]

j'ai encore un probléme, ton tableau correspond au mien, mais A5=H2 et B5=I2
quand je fait =Fonc_Eval, la valeur H2 de la formule se transforme en I2 et j'ai une référence cyclique, c'est comme si la formule n'était pas fixe.
c'est normal ou il y a quelque chose que je ne fais pas.

[Didier Gonard]

tu as peut-être un problème de référence relative ou absolue selon ce que tu veux faire.

notation A1 ou $A$1 ou juste col ou ligne absolue etc...

cordialement,

Didier

[namlik]

c'est presque bon. j'ai bien la notation $h$2et ça fonctionne, mais si je prend la poignée et que je descend, j'obtient toujours le même résultat dans toutes les cellules comme si la macro restait sur H2.
je suis de désolé de redemander à chaque probléme, mais c'est vraiment abstrait pour moi.

[Didier Gonard]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

="="&(SUBSTITUE(SUBSTITUE(A1;CAR(10);"+");".";","))

Pour que les coordonnées de cellules s'incrémentent au fil de la recopie, il faut que tu sois en coordonnées relatives sans les $ comme ci-dessus en faisant attention que la formule de départ soit bien correpondante à la ligne où elle se trouve !

cordialement,


PS :

je suis de désolé de redemander à chaque probléme, mais c'est vraiment abstrait pour moi.

Sans souci

Didier

[namlik]

comment est ce qu'on peut passer en coordonnées relatives, puisque dans mon cas cela ne fonctioone qu'avec les $ ?
et pour grouper les questions, est ce qu'on peut transposer Fonc_Eval sur une autre feuille excel sans recopier toute la formule ?

[Didier Gonard]

Là ça devient une question à tiroir

2 solutions :

1) on passe par des macros en vba, et ça te fera ce que tu veux simplement et souplement en étant évolutif facilement.

2) tu ne veux pas de vba, même si ici, on utilise une macro déjà et tu mats un exemple de ton classeur en PJ, sans donnée confidentielle et en exposant bien les parties concernées.

cordialement,

Didier

[namlik]

ce n'est pas parce que c'est abstrait que je ne suis pas interressé. je veux bien voir ce que cela donne en VBA

[Didier Gonard]

ce n'est pas parce que c'est abstrait que je ne suis pas interressé. je veux bien voir ce que cela donne en VBA

Le VBA n'a rien d'abstrait, c'est un langage de programmation lié aux applications office (et d'autres) .

Donc si on l'utilise, il faut que les utilisateurs acceptent les macros, si ce n'est pas un problème dans ton environnement ou entreprise, c'est bon

vois ici :http://www.developpez.net/forums/f66...ros-vba-excel/
cordialement,

Didier

[namlik]

j'ai été voir sur le forum VBA,mais le temps que j'apprenne le langage et que je puisse m'en servir, cela n'aura plus d'utilité. quand je dis abstrait c'est à propos des lignes de programme, pour un profane c'est du chinois.
par contre, je n'arrive toujours pas à selectioner la premiére cellule pour obtenir le bon résultat dans les autres. en fait le problème c'est que si je fais la formule avec H2, j'ai une référence circulaire et donc pas de résultat; si je met $h$2 j'ai bien un résultat mais pas duplicable.

[Daranc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim plage As Range
Set plage = ActiveSheet.Range("h2:h" & Range("h65535").End(xlUp).Row)
'selection et définition de la plage
Dim tot As Double ' résultats par cellule
For Each cell In plage 
' pour chaque cellule de la plage 
For t = 1 To Len(cell)
'pour tous les éléments de la chaine 
If Asc(Mid(cell, t, 1)) = 10 Then
' si on trouve un renvoi à la ligne
tot = tot + CDbl(tran$)
' on somme la chaine transformé en nombre
tran$ = Empty 
'et  on vide la chaine
Else
'sinon on crée la chaine local
tran$ = tran$ & Mid(cell, t, 1)
End If
Next
' on ajoute au total la fin de la chaine de la cellule
tot = tot + CDbl(tran$)
'on vide la chaine
tran$ = ""
'on inscrit le total dans la cellule à trois colonne vers la droite
cell.Offset(0, 3).Value = tot
'on remet la valeur de tot à 0
tot = 0
Next
End Sub

ouvrir l'editeur VBA ( Alt F11)
insertion module
( clic droit sur le nom du classeur dans la fenêtre de gauche (explorateur de projet )
cliquer le module et dans la fenêtre principale copier le code