Bonjour,
Voici un bout de code qui fonctionne! Tu sélectionnes les cellules dont tu veux faire la somme puis tu cliques droit pour afficher le résultat.
Le plus important est de cibler la zone concernée, ici: "ActiveWindow.RangeSelection".
Puis il suffit de boucler sur chaque valeur de la sélection.
Code :
- Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
- 'Désactivation du menu contextuel'
- Cancel = True
- 'Déclaration de variable(s)'
- Dim Result As Double
- 'Itération sur les cellules séléctionnées afin d'obtenir la valeur attribuée'
- For Each Target In ActiveWindow.RangeSelection
- 'Addition des valeurs trouvées uniquement si elles sont numérique'
- If IsNumeric(Target.Offset(0, 1).Value) Then
- Result = Result + CDbl(Target.Offset(0, 1))
- End If
- Next Target
- 'Affichage du résultat'
- MsgBox Result
- End Sub
|
Il faut tout de même tester le code en fonction des besoins, afin d'éradiquer toutes les erreurs possibles.
@+
