Fonction independante dans le meme module qui traite plusieur conditions

Bonjour a tous,

Ayant un projet pour le travail, j'ai conçu une fonction qui récupère la quantité de conteneurs suivant le flux (aller ou retour) et qui dispatche les quantités prélevées dans les fenêtres correspondantes (trois fenêtres avec le même modèle de tableau).

Tout ceci a partir d'une extraction

Function recolter(colonne As Integer, sens1 As String)              
Dim nbre As Integer
Dim sens, dedans As String
nbre = Application.WorksheetFunction.CountA(Sheets(1).Range("a:a"))
total1 = 0
total2 = 0
total3 = 0
total4 = 0
total5 = 0
total6 = 0
total7 = 0
total8 = 0
total9 = 0
For i = 2 To nbre
    dedans = Sheets(1).Cells(i, 13)            'dedans definit le type de conteneur (voir                                             SELECT CASE)
    sens = Sheets(1).Cells(i, 1)                'sens definit le flux
    If sens = sens1 Then
         Select Case dedans
                    Case "CLIENTS EXTERNES"
                        total1 = total1 + Sheets(1).Cells(i, colonne)
                    Case "COLIS"
                        total2 = total2 + Sheets(1).Cells(i, colonne)
                    Case "COURRIER"
                        total3 = total3 + Sheets(1).Cells(i, colonne)
                    Case "DAPO"
                        total4 = total4 + Sheets(1).Cells(i, colonne)
                    Case "IMPRIME PUB"
                        total5 = total5 + Sheets(1).Cells(i, colonne)
                    Case "LOGISTIQUE RETOUR"
                        total6 = total6 + Sheets(1).Cells(i, colonne)
                    Case "MATERIELS VIDES"
                        total7 = total7 + Sheets(1).Cells(i, colonne)
                    Case "PRESSE"
                        total8 = total8 + Sheets(1).Cells(i, colonne)
                    Case "Produits culturels"
                        total9 = total9 + Sheets(1).Cells(i, colonne)
            End Select

    End If
Next i

Je dois desormais remplir d'autres rubriques sur les meme tableaux mais ces rubriques doivent etre definies avec les criteres de la premiere fonction mais aussi d'autres criteres (dont le lieu du site) avec trois arguments au total dans la fonction

Ma question est: comment puis je faire pour a la fois avoir les arguments du select case et les lieux des sites qui sont sur deux colonnes différentes du tableau ? Est ce que la trame du select case (du code) peut être adapté et je peux rajouter une contrainte qui definit le lieu de production ?

D'avance, merci a ceux qui pourront rallumer ma lanterne

Bonjour,

Ta question est très générique ...

Du coup, la réponse le sera aussi ...

A priori, tu as une condition supplémentaire liée au ' lieu de production ' ...

Mais je constate que tu n'as eu aucune difficulté à traiter la contrainte du ' sens du flux ' ...

Donc, je m'interroge sur la nature de ce nouvel obstacle du ' lieu de production ' ... ?

Existe-t-il une contrainte particulière qui t'empêcherait de traiter cette condition ...???

Salut @James007 et tous les autres lecteurs

Oui il est vrai que je pourrais simplement ajouter une autre argument dans ma fonction sauf que cet argument doit prendre en compte toutes les conditions du Select Case "dedans" (soit tout les types de conteneur).

De plus est ce que je peux mettre un truc du style

'cp

retour = recolter(17, "Départ", ensemble_lieux )

Sheets(feuil).Cells(15, 4) = total1 + total2 + total3 + total4 + total5 + total8 + total9

Sheets(feuil).Cells(15, 5) = total6 + total7

Sachant que ensemble-lieux est défini que sur le code et non dans mon tableau Excel par une déclaration

du type ensemble_lieux= lieu1 + lieu2 + lieu3 + lieu4 + ...

Pas trouvé d'infos sur le net sur les propriétés globales du select case

Merci

Bonjour,

Je n'arive pas à comprendre ce qui t'empêcherait d'avoir un Select Case qui englobe celui que tu as déjà conçu ...

Je peux me permettre de faire un Select Case par dessus un autre ? Ca risque pas de faire des problèmes entre les deux ?

Re,

Select Case ... est une forme de If ...

Et tu peux avoir des conditions à l'intérieur de conditions ...

Encore une fois ... le code que tu as construit en contient déjà ...!!!