VBA - Somme de cellules

Version imprimable

03/10/2018, 11h11
spffmax

VBA - Somme de cellules

Bonjour et merci d'avance pour votre aide.

Pour présenter mon problème :
- J'ai une liste de nom dans une colonne A (les noms peuvent être présent une ou plusieurs fois)
- J'ai une liste de nombre d'heure travaillée (associé à chaque nom) dans une colonne B
- Ces listes changent chaque mois et sont importées et triées via une macro VBA

- Je cherche maintenant à reporter dans un colonne C le nombre d'heures totale travaillé par chaque employé.

Donc
- si son nom n’apparaît qu'un fois, report de la valeur dans la colonne C ==> ok j'ai réussi
- si son nom apparaît plusieurs fois, report de la somme des heures de toutes les lignes correspondant à son nom (déjà triées donc l'une en dessous de l'autre) ==> c'est ce que je ne parviens pas à faire.

Je pars vraiment de zéro et tous mes essais (basés sur des bouts de codes que jai trouvé) sont infructueux et probablement complètement faux. C'est pourquoi je n'ai pas intégré ce que j'ai fais dans ce message.

Si quelqu'un peut m'orienter, je pourrais ensuite faire des recherches pour adapter et finaliser.

En vous remerciant

Stephane
03/10/2018, 11h26
Menhir

Citation:

Envoyé par spffmax

- si son nom n’apparaît qu'un fois, report de la valeur dans la colonne C ==> ok j'ai réussi
- si son nom apparaît plusieurs fois, report de la somme des heures de toutes les lignes correspondant à son nom (déjà triées donc l'une en dessous de l'autre) ==> c'est ce que je ne parviens pas à faire.

Pas besoin de macro pour faire ça.
Utilise la fonction SOMME.SI.ENS().
https://support.office.com/fr-FR/art...6-611cebce642b
03/10/2018, 11h45
spffmax

Merci Menhir pour ta réponse :) !!

Alors j'ai regardé le fonctionnement de la fonction somme.si.ens mais il me semble que dans ce cas j'ai besoin de connaitre les noms. Or ils changent chaque mois et l'idée et d'automatiser le traitement de ces données.

De plus, il s'agit là d'une étape dans le traitement. Ensuite je récupérerais ces données pour générer une facture de manière le plus automatique possible.
03/10/2018, 11h49
BENNASR

bonjour
pourquoi ne pas insérer un tableau croisé dynamique???

Bonjour le fil, bonjour le forum,

Je vais me faire tuer...
Essaie comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
O.Columns(3).ClearContents 'efface d'éventuelles anciennes données en colonne 3 (=>C)
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For I = 1 To DL 'boucle sur toutes les lignes I de 1 à DL
    'renvoi dans la cellule ligne I colonne C la valeur de la formule "somme.si"
    O.Cells(I, "C").Value = Application.WorksheetFunction.SumIf(O.Range("A1:A" & DL), O.Cells(I, "A"), O.Range("B1:B" & DL))
Next I 'prochaine ligne de la boucle
End Sub

03/10/2018, 12h07
Menhir

Citation:

Envoyé par spffmax

Alors j'ai regardé le fonctionnement de la fonction somme.si.ens mais il me semble que dans ce cas j'ai besoin de connaitre les noms. Or ils changent chaque mois et l'idée et d'automatiser le traitement de ces données.

Tu as dis que tu avais déjà une macro pour générer cette liste.

Citation:

De plus, il s'agit là d'une étape dans le traitement. Ensuite je récupérerais ces données pour générer une facture de manière le plus automatique possible.

Le plus simple serait que la macro implante la fonction SOMME.SI.ENS() dans les cellules concernée.
Ca peut se faire en une seule ligne de code pour l'ensemble. Je ne vois pas de solution plus simple.
03/10/2018, 15h06
spffmax

Citation:

Envoyé par Menhir

Tu as dis que tu avais déjà une macro pour générer cette liste.

En effet, je reçois tous les mots des fichiers d'opérateur, que je fais télécharger dans mon fichier de manière automatique. Mais le nombre d'opérateur est toujours différent et ne sont pas toujours les même.

Citation:

Envoyé par Menhir

Le plus simple serait que la macro implante la fonction SOMME.SI.ENS() dans les cellules concernée.
Ca peut se faire en une seule ligne de code pour l'ensemble. Je ne vois pas de solution plus simple.

Ok merci pour le conseil utile. J'ai réussi à intégrer cette formule sous forme de code grâce à vous et à Thautheme.

Meci pour votre aide :)

Citation:

Envoyé par Thautheme

Bonjour le fil, bonjour le forum,

Je vais me faire tuer...
Essaie comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
O.Columns(3).ClearContents 'efface d'éventuelles anciennes données en colonne 3 (=>C)
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For I = 1 To DL 'boucle sur toutes les lignes I de 1 à DL
    'renvoi dans la cellule ligne I colonne C la valeur de la formule "somme.si"
    O.Cells(I, "C").Value = Application.WorksheetFunction.SumIf(O.Range("A1:A" & DL), O.Cells(I, "A"), O.Range("B1:B" & DL))
Next I 'prochaine ligne de la boucle
End Sub

Merci. après quelques adaptations cela fonctionne comme je le voulais :)

Parfait :) :) :) !!

03/10/2018, 15h09
spffmax

Citation:

Envoyé par BENNASR

bonjour
pourquoi ne pas insérer un tableau croisé dynamique???

J'y ai pensé... Mais je n'arrivais pas à faire en sorte que le tableau se mette à jour automatiquement après chaque modification de ma liste. Du coup j'ai pris une autre option, qui n'est peut être pas la meilleure !!
03/10/2018, 15h11
spffmax

Merci à tous pour votre réactivité et pour ces conseils qui m'ont été bien utiles :) !!

Ca fonctionne ;) !!

Bon je pense que je risque d'avoir d'autres questions d'ici la fin de la construction de mon outil.