Macro somme.si

Re : Macro somme.si

Bonjour,

Il y a certainement 36 façons d'arriver à ton résultat, mais j'ai l'impression que tu as choisi la plus compliquée 🙂
Zones, nommées, listes déroulantes, un petit Somme.si(), vois dans le fichier joint plusieurs pistes qui, sauf addiction aux Userforms, peuvent peut-être t'aider en simplifiant le problème.

Bonne journée,

mth

Re : Macro somme.si

Merci pour la réponse, mais justement le but de l'exercice est de faire tout ça à partir d'une macro.

Re : Macro somme.si

Bonjour bclement, et bienvenue sur XLD,

Voici ton fichier avec les macros modifiées et complétées. Tu remarqueras qu'il est inutile d'écrire ou de copier certaines cellules sur la feuille Vendeurs, la macro se charge de calculer et d'afficher les totaux directement dans la colonne adéquate.

Espérant avoir répondu.

Cordialement.

PS : bonjour mth

Re : Macro somme.si

Merci beaucoup pour la réponse rapide (comme d'habitude sur ce forum, c'est impressionnant! -- j'avais un autre compte avant)
Je vais me mettre dans la macro histoire de comprendre la logique et de voir pourquoi je n'ai pas réussi à la faire.

Re : Macro somme.si

@Papou-net :

Pour poser le contexte : je n'ai jamais eu de formation VBA, je m'auto-forme.

Pourrais tu m'expliquer la macro, je ne la comprends pas ...
Notamment :

i = ComboBox1.ListIndex + 1

--> Pour moi dans la combobox il y a du texte. Alors je ne comprends pas comment il peut "comprendre" le +1.

With Sheets("Extraction")
For Lg = 2 To .Range("B:B").SpecialCells(xlCellTypeConstants).Rows.Count
If .Cells(Lg, 2) = i Then
Sheets("Vendeurs").Range("C" & i + 1) = Sheets("Vendeurs").Range("C" & i + 1) + .Cells(Lg, 7)
End If
Next
End With

--> Je ne connais pas la "fonction" .SpecialCells(xlCellTypeConstants).Rows.Count, donc je ne vois pas comment est ce qu'il peut faire une somme avec condition ... En fait je ne comprends pas le code en entier :/

Re : Macro somme.si

Bonsoir bclement,


La liste d'index des combobox commence à 0, donc on ajoute 1 à l'index pour correspondre à la position réelle dans la liste. Là on agit sur l'index (ListIndex) et non sur le contenu texte de la liste.

ListIndex Code Nom
0 1 Jean-Charles Maigret
1 2 Pierre Rolling
2 3 Felix Marchioni
3 4 Toussaint Leandri
4 5 Ange Pieri

Ex : ComboBox1.ListIndex(2) = Felix Marchioni
ComboBox1.ListIndex(2) + 1 = Toussaint Leandri


La boucle ci-dessus analyse chaque cellule dont le contenu n'est pas vide dans la colonne B:B
La fonction compte (Count) le nombre de lignes (Rows) dont la cellule colonne B contient des données (SpecialCells(xlCellTypeConstants). Attention, il s'agit là de données et non pas de formules.
Si la cellule contient le code correspondant au choix mentionné sur UserForm1, il incrémente la cellule adjacente (colonne C) du montant correspondant au code vendeur.
De ce fait, pas besoin de formules dans la feuille de calcul.
La macro Sub exercice2() procède de la même façon, avec une boucle supplémentaire pour balayer chaque code de vendeur.

Espérant avoir été clair dans mes explications.

Cordialement.