programmation

Sub Bouton1_Cliquer()
Dim a, DerniereValeur
Dim b As Integer
Dim y1 As Integer
Dim Compt1 As Integer
Dim Compt2 As Integer
Dim XQuantDispo As Integer
Dim XReference As Integer
Dim Trouvé As Boolean

Cells(2, 10).Value = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Cells(3, 10).Value = Range(« A » & Rows.Count).End(xlUp).Row

Trouvé = False
XReference = 1
Do While (Trouvé = False)
If Feuil1.Cells(1, XReference).Value = « Référence » Then
Trouvé = True
Else
XReference = XReference + 1
End If
Loop
Trouvé = False
XQuantDispo = 1
Do While (Trouvé = False)
If Feuil1.Cells(1, XQuantDispo).Value = « Qté Dispo » Then
Trouvé = True
Else
XQuantDispo = XQuantDispo + 1
End If
Loop

y1 = 2
a = 0
DerniereValeur = Feuil1.Cells(2, 2).Value
Compt1 = 0
Compt2 = 1
Feuil2.Columns(1).Clear
Feuil2.Columns(2).Clear
Feuil2.Columns(3).Clear
Feuil2.Cells(1, 1) = « Référence »
Feuil2.Cells(1, 2) = « Quantités »
Feuil2.Cells(1, 3) = « Emplacements »

For boucle1 = 3 To Feuil1.Range(« A » & Rows.Count).End(xlUp).Row
a = Feuil1.Cells(boucle1, XReference).Value
If a = DerniereValeur Then
Compt1 = Compt1 + Feuil1.Cells(boucle1 – 1, XQuantDispo)
If (Feuil1.Cells(boucle1 – 1, 6)) <> (Feuil1.Cells(boucle1, 6)) Or (Feuil1.Cells(boucle1 – 1, 7)) <> (Feuil1.Cells(boucle1, 7)) Or (Feuil1.Cells(boucle1 – 1, 8)) <> (Feuil1.Cells(boucle1, 8)) Or (Feuil1.Cells(boucle1 – 1, 9)) <> (Feuil1.Cells(boucle1, 9)) Then
Compt2 = Compt2 + 1
End If
Else
Compt1 = Compt1 + Feuil1.Cells(boucle1 – 1, XQuantDispo)
Feuil2.Cells(y1, 1) = DerniereValeur
Feuil2.Cells(y1, 2) = Compt1
Feuil2.Cells(y1, 3) = Compt2
DerniereValeur = a
y1 = y1 + 1
Compt1 = 0
Compt2 = 1
End If
Next
If Compt1 > 0 Then
Compt1 = Compt1 + Feuil1.Cells(boucle1 – 1, XQuantDispo)
Feuil2.Cells(y1, 1) = DerniereValeur
Feuil2.Cells(y1, 2) = Compt1
Feuil2.Cells(y1, 3) = Compt2
End If
End Sub

 

 

 

 

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(Range(« A » & Rows.Count).End(xlUp).Row, Cells(1, Cells.Columns.Count).End(xlToLeft).Column)), , xlYes).Name = _
« Tableau4″
Range(« Tableau4[#All]« ).Select
ActiveWorkbook.Worksheets(« Feuil1″).ListObjects(« Tableau4″).Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets(« Feuil1″).ListObjects(« Tableau4″).Sort.SortFields. _
Add Key:=Range(« Tableau4[[#All],[Emplacements]] »), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(« Feuil1″).ListObjects(« Tableau4″).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 

Sagvar, le Roman Noir de la... |
Sarkophage |
UES - Claude WEBER |
Unblog.fr | Créer un blog | Annuaire | Signaler un abus | Mobilisation DEASS 2007
| blogdanton
| Kabylie News