Créer des boucles avec critères variables

Version imprimable

02/10/2016, 17h17
Riquette1

Créer des boucles avec critères variables

Bonjour à tous ceux qui me liront, j'espère que vous passez un bon dimanche.

Je vous expose mon problème avec un fichier joint simple qui l'illustre (supprimé après avoir vu que cela n'était pas permis).

J'ai une colonne avec les noms de clients, une autre avec les noms d'employés qui travaillent pour ces clients, une avec le CA, une avec les couts et enfin la marge faite. Seulement, lorsqu'il s'agit d'offre "forfait" le CA n'est pas précisé pour chaque employé. L'objectif est de l'afficher pour chaque employé. J'ai bien sûre pu le trouver en faisant des "somme.si" avec pleins de conditions et en précisant les clients possibles. Mais il y en a beaucoup et l'idée est de gagner du temps lors du traitement de la base de donnée.

J'aimerai donc créer une boucle qui, lorsqu'elle rencontre "forfait" dans la colonne B identifie le client concerné, ici C, puis avec une autre boucle fait la somme des coûts des clients identiques qui suivent, dans la colonne F par exemple. La deuxième pourrait avoir une ligne Exit when client différent de client Forfait.

J'arrive à faire des boucles et à identifier la cellule Forfait mais je ne sais pas comment demander à ma macro d'identifier le client lié puis faire la somme des couts employés liés.

J'en appelle donc à votre aide s'il vous plait :)

Merci

La Riquette
02/10/2016, 18h03
Philippe Tulliez

Bonjour,
Le tableau croisé dynamique ne peut pas résoudre ce problème ?
02/10/2016, 18h14
Riquette1
Merci d'avoir lu mon message.
Non le tcd ne fait que croiser les données présentes dans la base. Hors, les montants sont absents pour les forfaits et donc absent sur le tcd.
Voilà comment se présente la base :
```
---A--- ---B--- 	---C--- ---D--- ---E---
Clients	Nom		CA	Coûts	Marge
A	Paul		50	10	40
A	Paul		50	10	40
A	Paul		50	10	40 
C	Forfait		50 	0 	50
C	Jacques		0 	10 	-10
C	François	0 	20 	-20
B	John		40 	10 	30
B	Vincent		30 	10 	20
```
02/10/2016, 20h35
Philippe Tulliez

Bonsoir,
Alors comment reconstituer une donnée absente ?

Et bien ici sous "forfait" II y a Jacques et François qui n'ont pas de CA mais les couts. "Forfait" à le CA global. En faisant la somme des couts on obtient les coûts du forfaits. Ensuite un prorata permet de trouver le CA de chaque employé.
Donc ce que j'aimerai faire c'est une boucle qui lorsqu'elle trouve "forfait" sélectionne son client puis fait la somme des coûts qui ont le même client :)

Ma macro actuelle :
Code:

1 2 3 4 5 6 7 8 9 10 11 Function Forfait For i = 3 to 10000 If Instr(1, Ucase(Cells(i, "ColonneNom").Value), UCase("Forfait") = 1 then Dim client as string client = Cells(i, "colonneclient") For i = 1 to 50 Cells.Select = application.worksheetfunction.sum(range(cells(i, "colonnecoûts"), cells(rows.count, "colonnecoûts").End(xlUp)))If cells(i, "colonneclient") <> client then exit for end if next end function
Si quelqu'un sait pourquoi elle ne fonctionne pas merci de m'aider :)

02/10/2016, 23h58
Jouad
Il me semble plus adéquat de traiter le problème en deux étapes tout à fait distinctes:
1. D'abord, traitement uniquement des "Forfait" en répartissant les chiffres d'affaires de ce type entre les employés concerné (à l'aide d'une clé de répartition préalablement définie et identification des employés concernés par chaque Forfait)
2. Une fois la première étape achevée, la question du "Forfait" ne doit plus se poser en principe (le cas particulier "Forfait" n'existe plus). On procède alors au calcul du CA par agent.

Cependant, pour répartir le CA "forfait" entre les employés il faut identifier les employés qui sont au sein de ce forfait. Le regroupement doit être fait en observant le même client pour les employés que celui attribué au "forfait".
Voici mon code avec commentaires:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function forfait()
 
    For i = 3 To 10000
 
'Je souhaite que la boucle sélectionne les cellules Nom = "forfait"
    If InStr(1, UCase(Cells(i, "L").Value), UCase(" forfait")) = 1 Then
 
'Puis sur la même ligne identifie le projet concerné dans la colonne I
        Dim projet As String
        client = Cells(i, "I")
 
'Ensuite, identifie les autres projets identiques pour faire la somme de leurs coûts
        For j = 1 To 50
        If client = Cells(j, "I") Then
        Cells.Select = Application.WorksheetFunction.Sum(Range(Cells(i, "AQ"), Cells(Rows.Count, "AQ").End(xlUp)))
        End If
          If Cells(j, "I") <> client Then
            Exit For
          End If
 
    Next
    End If
    Next
 
 
End Function

Bonjour,
pour l'instant comme je ne visualise pas bien l'ensemble, un petit code vite fait pour capter les clients où il y a "Forfait" (d'après exemple en post #3) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Forfait_Clt()
Dim i&, Nom As New Collection
 
VA = Feuil1.UsedRange.Value
 
For i = 2 To UBound(VA)
    Debug.Print VA(i, 2)
     If VA(i, 2) = "Forfait" Then
        Nom.Add i
    End If
Next
 
For Each Clt In Nom
    MsgBox "Ligne n° : " & Clt & " - " & "Le client est : " & VA(Clt, 1)
Next
Set Nom = Nothing
End Sub

03/10/2016, 14h03
Jouad

2 pièce(s) jointe(s)

Bonjour Riquette1,
La difficulté la plus frappante vient du fait que dans la colonne B on a des données de types différents: les noms des employés et le type de contrat :
Pièce jointe 221759

Pour rendre les choses plus claires, il vaut mieux dédier une colonne à chaque type de données en insérant une nouvelle colonne comme suit:
Pièce jointe 221760

Dans la colonne B, on a "N" pour un contrat "Normal" ou "F" pour un contrat "Au Forfait". La colonne "Marge" est alors calculée par la condition, par exemple pour la cellule F3:

Code:

=SI(B3="N";D3-E3;-E3)

Cordialement.