Conversion d'une sélection de cellule Excel en plage VBA

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:

---

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

---

Citation:

---

Envoyé par vynmarius

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:

---

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

---

Bonjour à tous,

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

Code:

---

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

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:

---

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:

---

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

---

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:

---

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

---