add. de cellules discontigues

[jc f 83]

Bonjour à tous,

Je recherche le moyen d'additionner le contenu des cellules que j'ai sélectionné, mais ces cellules ne sont pas contigues.

Exemple, je sélectionne les cellules A2, B5 et C3 et je voudrais les additionner pour coller le résultat dans une autre cellule A1

Sachant qu'Excel ne permet pas la copie de cellules discontigues, je bloque.... :S


Merci de votre aide

jc

 

[PascalXLD]

Bonjour

=SOMME(A2;B5;C3)

Bon courage

 

[Dan]

Bonjour,

Une solution complémentaire à Pascal.

Si tes cellules sont toujours les mêmes :

- sélectionne tes cellules à additionner (A2,B5,C3)
- via menu / insertion / nom / définir attribue leur un nom - exemple : TATA
- dans la cellule de ton choix tu écris : =SOMME(TATA) - exemple en A1 = SOMME(TATA)

NB : cela suppose que tes cellules sont bien figées.

 

[jc f 83]

Merci Pascal, pour ta réponse, mais ta solution c'est pour additonner des cellules déjà prédéterminées, mon problème, c'est que mon addition soit se faire sur des cellules que je sélectionne aléatoirement.

Je m'explique mieux :

J'ai un calendrier avec des colonnes mois, je rempli les cellules de nombres, je veux pouvoir quand je sélectionne des cellules, les additionner et les coller dans une cellule 'résultat' par exemple.
Mais la difficulté (pour moi...) est que ces cellules ne sont pas forcément contigues, ni toujours les mêmes.
C'est leur sélection à la souris qui détermine lequelles seront additionnées

Je te joint un exemple de recopie d'écran

J'espère avoir été plus clair

jc

 

[jc f 83]

Merci, mais hélas, mes cellules ne sont pas figées comme tu me le fait remarquer

jc

 

[Dan]

Re,

:sick: On croisé là.
En te lisant ma solution ne te servira à rien. Donc oublie la.

Ton fichier n'est pas passé ...

 

[jc f 83]

Oui, j'ai mis du temps pour répondre

Pour le fichier, c'est pas bien grave, je pense que cette fois ci j'ai été plus clair dans mes explication

A+

jc f 83

 

[PascalXLD]

Re

Je te propose une petite macro

Sub SommeSelect()
Dim c As Range
Range('A1') = 0
For Each c In Selection
Range('A1') = Range('A1') + c.Value
Next
End Sub

Bon courage

 

[jc f 83]

Merci à tous,

Je vais essayer cette macro.....


Bonne journée

jc f 83

 

[Hervé]

Bonjour

Une autre proposition en pièce jointe;

salut

EDITION : petite erreur dans l'enoncé du principe de la pièce jointe :

il faut lire : cliquer droit en dehors de cette zone pour avoir la somme

désolé

[file name=Classeur2_20051006111708.zip size=8849]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20051006111708.zip[/file]

Message édité par: hervé, à: 06/10/2005 11:18

 

[PascalXLD]

Hervé

Il ya un souci sur ton code

Il faut déjà lire clic droit et non double cliquer et je n'obtiens pas les bons resultats ni toujours les mêmes

:sick:

Bonne journée

 

[jc f 83]

Super !


Merci les gars vous m'avez enlevé une épine du pied !


Très bonne journée à tous

jc f 83

 

[Hervé]

re

j'ai corrigé mon enoncé dans mon post précédent.

Il ne faut pas sélectionner les cellules en maintenant la touche CTRL, mais simplement les sélectionner une à la suite de l'autre.

et ensuite clique droit en dehors de la plage jaune.

Je suis pas très fort en explication, désolé.

salut

 

[PascalXLD]

Re

Hervé ça y est j'ai compris ton code ne fait pas la somme de toutes tes cellules selectionnées dans ta plage mais la somme entre 2 clics droits de toutes les celllules que tu selectionnes dans ta plage

 

[Hervé]

re

OUI pascal

Sinon tu peux aussi sélectionner une plage, et ensuite faire un clique droit en dehors de la zone pour avoir la somme.

salut