Copier coller valeur la somme de cellules non contigües

**gilgillen** · 01/09/2017, 15h32

Bonjour,
Supposons une base de données de nombres. Je sélectionne alors, des cellules non contigües qui peuvent changer (j'utilise alors le "selection" dans VBA). Dans la barre d'état apparaît la somme de ces cellules. Je voudrais pouvoir coller cette valeur dans n'importe quelle cellule de n'importe quel fichier (excel, ce serait déjà pas mal). Autrement dit, je sélectionne ces cellules, je les copie (ce qui n'est pas possible avec un CTRL - C), et je colle la somme valeur dans la cellule sur laquelle je pointe ma souris. Dans l'idéal, j'aimerais pouvoir faire, après sélection, une bête manipulation dans le genre ctrl-c, ctrl-v. Je parviens bien à obtenir une msg box qui me renvoie la somme, mais ça s'arrête là.
Quelqu'un?
Merci d'avance.

**Ben_L** · 01/09/2017, 15h59

Bonjour,

Code :

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

1
2
3
4
5
Public Sub SumToClipboard()
    Dim tempValue As New DataObject
    tempValue.SetText Application.WorksheetFunction.Sum(Selection)
    tempValue.PutInClipboard
End Sub

Après avoir utilisé la macro, allez sur la cellule dans laquelle vous souhaitez coller la somme et faîtes Ctrl+v.

Deux remarques:

Pour éviter des problèmes, il va vous falloir ajouter un test afin d'être sûr que la sélection est bien un ensemble de cellules (et pas une forme ou tout autre objet),
Pour éviter de devoir lancer la macro à la main, créez un raccourci clavier dédié.