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 :
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 :
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
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 :
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