Discussion :

[vynmarius]

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

[anasecu]

c'est ici que le Range("L207:V207") doit être remplacé par ma sélection

Bonsoir,
Pour cela il te suffit de remplacer ton range figé par l'adresse de ta sélection

Code :

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

masomme = Application.WorksheetFunction.Sum(Range(Target.Address))

[eriiic]

Bonjour à tous,

par sécurité j'ajouterai une limitation à la plage concernée :

Code :

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

1
2
3
4
5
6
Dim pl As Range
Set pl = Intersect(target, [A2:G10])
If Not pl Is Nothing Then
    ' calcul
    ' ...
End If

utiliser pl.Adress ensuite.
eric

[OrDonc]

Bonsoir, petit complément :

Dans Private Sub Worksheet_SelectionChange(ByVal Target As Range), la variable Target désigne l’ ensemble de cellules sélectionnées (1 ou plusieurs).

Dans S= Application. Sum(Target), la variable S est la somme ces cellules sélectionnées.

Il suffira de l’utiliser comme, par exemple, [W1] = Int(S / 60) + (S - 60 * Int(S / 60)) / 60 où W1 est la première cellule d’une plage fusionnée ou pas.

Avec l’observation d’Eric, je proposerai donc

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim S As Double
    If Not Intersect(Target , [Plage]) Is Nothing Then 'partie de la plage sélectionnée nommée Plage
        S = Application.Sum(Target)
       [W1] = Int(S / 60) + (S - 60 * Int(S / 60)) / 60
    End If
End Sub

Pour ma part, je me contenterai de

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal R As Range)
    Dim S As Double
    If Not Intersect(R, [Plage]) Is Nothing Then _
        S = Application.Sum(R) : [W1] = Int(S / 60) + (S - 60 * Int(S / 60)) / 60
 End Sub

[vynmarius]

Bonjour,

Merci à tous pour vos réponses, j'étais en congés

je teste ça et je reviens vers vous.

bonne soirée


Finalement j'ai eu le temps de tester, vos 3 solutions fonctionnent !

Mais j'ai adopté la version la plus experte, merci pour vos idées et votre temps

j'ai bien aimé la définition de R directement dans la ligne 'Private Sub' quand on ne sait pas lire on ne comprend pas ! grâce à vous je sais déjà un peu mieux lire du code ^^

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_SelectionChange(ByVal R As Range)
 
    Dim S As Double
 
    If Not Intersect(R, [Plage]) Is Nothing Then _
       S = Application.Sum(R): [W1] = Int(S / 60) + (S - 60 * Int(S / 60)) / 60
 
End Sub