LORDDD
XLDnaute Occasionnel
Bonjour à vous tous,
Je tente d'effectuer mise en forme d'une liste de donnée vers un tableau.
Dans l'idée :
La base de donnée est sous forme de liste
3 critaires pour remplir le tableau
1 la date
2 code REV
3 Code Pur
Voici le code que j'ai commencé à écrire
Mais cela ne donne rien de bon, si quelqu'un passe par la, j'accepte votre aide.
Un grand merci pour votre savoir et aide.
Dossier excel joint
Je tente d'effectuer mise en forme d'une liste de donnée vers un tableau.
Dans l'idée :
La base de donnée est sous forme de liste
3 critaires pour remplir le tableau
1 la date
2 code REV
3 Code Pur
Voici le code que j'ai commencé à écrire
Code:
Sub Copy()
Dim cel1 As String
Dim cel2 As String
Dim cel3 As String
Dim i As Integer
Dim ii As Integer
Dim iii As Integer
Dim iiii As Integer
Dim iiiii As Integer
Dim Date1 As String
Dim Date2 As String
Dim Rev1 As String
Dim Rev2 As String
Dim Pur1 As String
Dim Pur2 As String
Dim Som As Single
For i = 0 To 731 'compteur date tableau cbres par ligne
Date2 = Worksheets("CBRES").Cells(ii + 4, 1) 'ligne variable 1ere clonne
For ii = 0 To 731 'compteur date tableau Base par ligne
Date1 = Worksheets("Base").Cells(ii + 4, 22) 'ligne variable 1ere clonne
Rev1 = Worksheets("Base").Cells(ii + 4, 23) 'ligne variable 1ere clonne
Pur1 = Worksheets("Base").Cells(ii + 4, 24) 'ligne variable 1ere clonne
If Date1 = Date2 Then 'Controle la date
For iii = 0 To 127 'compteur Rev tableau cbre par collone
Rev2 = Worksheets("cbres").Cells(2, iii + 2) 'ligne 2 colonne variable
If Rev1 = Rev2 Then 'controle du Rev
For iiii = 0 To 127 'compteur Pur tableau cbre par collone
Pur2 = Worksheets("cbres").Cells(3, iiii + 2) 'ligne 3 colonne variable
If Pur1 = Pur2 Then 'controle du pur
Som = Worksheets("Base").Cells(ii + 4, 25) 'ligne variable 1ere clonne
End If
Next iiii
Worksheets("cbres").Cells(ii + 4, iiii + 2) = Som
End If
Next iii
End If
Next ii
Next i
End Sub
Mais cela ne donne rien de bon, si quelqu'un passe par la, j'accepte votre aide.
Un grand merci pour votre savoir et aide.
Dossier excel joint
Pièces jointes
Dernière édition: