Problème avec somme d'heure vba excel

[matrix]

Bonjour à tous,

Dans la feuille "Moyen par Magasin" dans la colonne A, ce trouve différent nom de personne.

Je voudrais qu'à coté de chaques noms de la colonne A, donc, dans la colonne B, qu' il me donne la somme d'heure pour chaques noms en se basant sur la feuille "St. Francois"
colonne A dont il y a des noms à plusieurs reprise et que les montant d'heures se trouve dans la colonne E de la même ligne.

j'ai essayé avec ce script, mais ça ne fonctionne pas:

Sub Bouton1_Clic()
Dim Plge1 As Range, Plge2 As Range, cel As Range
Set Plge1 = Sheets("Moyen par Magasin").Range("A2:A2000")
Set Plge2 = Sheets("St. Francois").Range("B2:B65000")
For Each cel In Plge1
If cel.Value <> "" Then
cel.Offset(0, 1).Value = Application.SumIf(Plge2, cel.Value) & Application.SumIf(Plge2, cel.Offset(0, 6))
Else
cel.Offset(0, 1).Value = ""
End If
Next
End Sub

Merci de votre aide!

 

[nicowideo]

Re : Problème avec somme d'heure vba excel

Bonsoir,

Je pense qu'une fonction suffit.
Un fichier exemple serait bienvenue...

A+

 

[matrix]

Re : Problème avec somme d'heure vba excel

À chaque fois que j'essaie de joindre un fichier excel, il me donne un message d'erreur d'upload!

Pourtant le fichier excel ou le fichier rar, n'a que 21 ko.

Oups et voilà en zip

 

[kjin]

Re : Problème avec somme d'heure vba excel

Bonsoir,
Tu as oublié de préciser excel2007, donc je ne peux pas ouvrir.
Pour ton pb, je pense que la version importe peu :
Donc si j'ai compris, il faut déclarer une variable plge3 qui fait référence à la plage des heures :

Set Plge3 = Sheets("St. Francois").Range("E2:E65000")

et testes ensuite :

cel.Offset(0, 1).Value = Application.WorksheetFunction.SumIf(Plge2, cel.Value, Plge3)

A+
kjin

 

[matrix]

Re : Problème avec somme d'heure vba excel

Merci beaucoup, ça fonctionne très bien.