Tri par

[SDR42]

Bonjour,

Etant débutant sur VBA j'aurais besoin d'une aide. Voici mon problème
J'aimerais faire un tri pour chaque entrepôt connaitre la durée de location de chaque type par entrepot, sachant que j'ai des milliers de lignes. Je joint un exemple.

Merci

 

[R@chid]

Re : Tri par

Bonjour SDR42,
voir Pj si tu aimes faire avec les formules...
Amicalement

 

[SDR42]

Re : Tri par

Bonjour Rachid

Merci pour la réponse, c'est exactement ce que je veux mais aurais tu une solution par vba ?

merci

 

[R@chid]

Re : Tri par

ReBonjour,

c'est exactement ce que je veux mais aurais tu une solution par vba ?

Malheureusement non 🙂
Amicalement

 

[SDR42]

Re : Tri par

Merci ça me serviras bien

 

[david84]

Re : Tri par

Bonjour,
par VBA c'est bien entendu possible mais pourquoi ne pas tout simplement utiliser un tableau croisé dynamique ?
C'est un outil natif d'Excel qui fait très bien ce que tu veux obtenir.
A+

 

[SDR42]

Re : Tri par

Bonsoir
La raison est que c'est la première trame d'un programme que je désire faire. Ces données seront ensuite inscrite dans un tableau par entrepôt. l'autre raison est que j'aimerais connaitre le VBA.

Merci

 

[david84]

Re : Tri par

Re

l'autre raison est que j'aimerais connaitre le VBA

Ok, mais pour connaître le VBA il faut s'y mettre donc veux-tu un code opérationnel ou veux-tu que l'on te donne des pistes et que l'on t'aide à le faire ?
A+

 

[SDR42]

Re : Tri par

Salut,
Pour être franc un code opérationnel afin d'avancer sur mon projet. Et de l'étudier en même temps.
Merci d'avance

 

[david84]

Re : Tri par

Re

Pour être franc un code opérationnel afin d'avancer sur mon projet. Et de l'étudier en même temps.

Ok. Ci-joint un code en principe fonctionnel : à toi de l'étudier de ton côté.

Sub Extraire()
Dim Pl As Range, Pl_Nom(), T, T2, dico, i As Long, j As Long, Nb As Double
Set Pl = Range("E1").CurrentRegion
Set Pl = Pl.Offset(1, 0).Resize(Pl.Rows.Count - 1, Pl.Columns.Count)
Range("L3:N" & Pl.Rows.Count).ClearContents
Pl_Nom = Range("H2:H" & Pl.Rows.Count + 1)
Set dico = CreateObject("scripting.dictionary")
For i = LBound(Pl_Nom) To UBound(Pl_Nom)
If Pl(i, 5) = [M1] Then dico(Pl_Nom(i, 1)) = dico(Pl_Nom(i, 1)) + 1
Next i
T = dico.keys
T2 = dico.items
[M3].Resize(dico.Count) = Application.Transpose(T)
[L3].Resize(dico.Count) = Application.Transpose(T2)
For i = LBound(T) To UBound(T)
For j = LBound(Pl_Nom) To UBound(Pl_Nom)
    If Pl_Nom(j, 1) = T(i) And Pl(j, 5) = [M1] Then Nb = Nb + Pl(j, 3)
Next j
Cells(i + 3, 14) = Nb: Nb = 0
Next i
End Sub

A+

 

[SDR42]

Re : Tri par

Merci, je l'étudie mais j'aurais besoin de ton aide pour le déchiffrer.
Cdt.