XL 2016 Liste avec incrémentation des doublons

BARNS

XLDnaute Junior
Bonjour,

Je cherche à additionner les doublons de plusieurs liste dont le nombre et la taille sont définis au préalable par l'utilisateur. J'ai essayé beaucoup de chose est la je suis bloqué...

Le code ci après :

VB:
Sub Tubes()
'CREATION D'UN TABLEAU SANS DOUBLON DES LONGUEUR CANNES
    Dim tabtube()
    Dim nbrsection As Byte
    Dim i As Byte
    Dim j As Byte
    Dim k As Byte
    Dim z As Byte
    Dim lig As Byte
    Dim derniereL
    nbrsection = 2
    tabtube = Array()
    lig = 20
    For i = 0 To nbrsection - 1 'autant de fois que de sections
        k = 0
        For j = 1 To tabTrv(i) 'autant de fois que de piquages
            If j > 1 Then
                For z = 0 To UBound(tabtube) 'autant de fois que de cellule dans le tableau créé
                'si le doublon existe
                    If Cells(lig, 3 + j).Value = tabtube(z)(0) Then tabtube(z)(1) = tabtube(z)(1) + 1: Exit For
                Next z
            End If
                'si le doublon n'existe pas
                ReDim Preserve tabtube(k): tabtube(k) = Array(Cells(lig, 3 + j).Value, 1): k = k + 1
        Next j
        lig = lig + 5
    Next i
    derniereL = Sheets("User").Cells(Rows.Count, 4).End(xlUp).Row + 10
    Sheets("User").Cells(derniereL - 2, 3) = "Matériel pour canne de dessente"
    Worksheets("User").Cells(derniereL, 3).Resize(UBound(tabtube) + 1, 2).Value = Application.Transpose(Application.Transpose(tabtube))
End Sub

Je vous joint le fichier pour que vous puissez comprendre les variables qui interviennent. Cette partie de code est dans le M04_Tubes.

Un grand merci pour votre aide.

Le résultat souhaité est le suivant :
1625728087191.png

Pour info :
Etape 1 : L'utilisateur fait le choix de son matériel
--> des listes avec différentes tailles de travées s'affiche

Etape 2: L'utilisateur fait le choix de la longueur des travées
-->La structure de la machine s'affiche

Etape 3: L'utilisateur choisi les piquages ouverts ou fermés
--> le matériel s'affiche
Bonne journée
 

Pièces jointes

  • CONFPARTAGE v18.xlsm
    145.7 KB · Affichages: 12

Discussions similaires

Réponses
0
Affichages
83
Réponses
1
Affichages
119

Statistiques des forums

Discussions
311 720
Messages
2 081 907
Membres
101 836
dernier inscrit
karmon