Bonjour,

dans un premier temps j'aimerai m'instruire. comment convertir une sélection de cellule dans Excell en plage exploitable pour faire du calcul via du code VBA?

ensuite j'expose mon problème à résoudre. peut être que je ne vais pas dans la bonne direction, à vous de me dire s'il vous plait

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
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' formule fonctionnant dans Excel
' =ENT(SOMME(C6:E6)/60)+(SOMME(C6:E6)-60*ENT(SOMME(C6:E6)/60))/60
 
' le but est de transformer la somme d'une sélection de données, exprimées en minutes, en heure et décimale d'heure dans la cellule W1:Y1 qui est fusionnée.
' cette sélection peut être faite à la volée dans un tableur (en générale une sélection de cellules contiguës soit en ligne, soit en colonne).
' ce code sera intégré à la feuille de calcul.
' j'aimerai qu'au changement de sélection cette macro se lance automatiquement dans la macro : Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
Dim masomme As Double
 
masomme = Application.WorksheetFunction.Sum(Range("L207:V207"))
' c'est ici que le Range("L207:V207") doit être remplacé par ma sélection
 
    Range("W1:Y1").Value = Int(masomme / 60) + (masomme - 60 * Int(masomme / 60)) / 60
 
 
End Sub