Discussion :

[ddman]

Bonjour à tous,

J'ai fureté dans les faq, je ne trouve pas d'éléments de réponse à mon problème (Excel 2003) :
Je voudrais qu'un utilisateur puisse déterminer une zone en la sélectionnant à la souris et qu'apparaisse dans une cellule donnée la somme des valeurs rencontrées dans la zone.
J'ai créé une procédure, certainement maladroite, qui permet à l'utilisateur de faire sa sélection, nomme la zone sélectionnée et demande d'effectuer la somme dans une cellule précise.
La zone est bien créée, nommée, la formule est en place mais rend '#VALEUR!'
Si je recréée la zone hors procédure, cette fois la cellule rend la valeur attendue.

Merci à celle, celui qui pourra me sortir de mon impasse !

André65

[Marc-L]

Bonjour, bonjour !

Ici c'est le forum des formules de feuille de calculs, la prochaine fois merci de poster dans le forum dédié au VBA Excel !

Il est inutile de nommer une plage pour effectuer la somme d'une sélection de cellules :

MsgBox Application.Sum(Selection) …

Qui plus est l'information de la somme de la plage sélectionnée est déjà présente à droite dans la barre d'état !

__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

__________________________________________________________________________________________________
Tous unis, tous Charlie

[Pierre Fauconnier]

Salut.

Suite à ce que j'ai compris de ta demande et de ton besoin, tu pourrais procéder ainsi:

1. Crée une plage nommée appelée Selection (par exemple). Pour la nommer, tu n'as pas besoin de te tracasser de la plage vers laquelle elle pointe. Cela n'a pas d'importance car ce sera modifié par la suite.

2. Dans le module ThisWorkbook du classeur concerné, tu créer une macro événementielle sur SheetSelectionChange:

Code :

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

1
2
3
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Names("Selection").RefersTo = Target
End Sub

3. Dans la cellule dans laquelle tu veux récupérer la somme de la sélection, tu saisis la formule toute simple:
=SOMME(Selection)
Tu vas avoir un avertissement de référence circulaire (normal!), tu dis simplement ok.

Par la suite, à chaque changement de sélection, la cellule contenant ta formule contiendra la somme des cellules numériques de la sélection.