Re : tableau
Je ne peux pas joindre mon classeur parce qu'il est trop gros, donc ci-dessous mon code:
Sub Output_Images()
Dim j, NumberOfColumns As Integer
NumberOfColumns = Range("OutputColumnsNumber").Value
j=0
Sheets("Feuil2").Select
' La colonne nommée "Check" contient des checkboxes (elle correspond à la colonne C)
Range("Check").Rows(2).Activate
Do
If ActiveCell.Value = True And Rows(ActiveCell.Row).Hidden = False Then
ActiveCell.Offset(0, 1).Copy
Sheets("Feuil3").Select
Application.Goto Reference:=Range("A1").Offset((j) \ NumberOfColumns, (j) Mod NumberOfColumns)
ActiveSheet.Paste
Sheets("Feuil2").Select
ActiveCell.Offset(1, 0).Activate
j = j + 1
Else: ActiveCell.Offset(1).Activate
End If
Loop While Len(ActiveCell.Offset(1, -1)) > 0
End Sub
Je souhaite, comme expliqué ci-dessus, créer un 'tableau' qui stocke les cellule à copier (celles de la colonne D, Feuil2) et les dates correspondantes (celles de la colonne A, Feuil2), qui trie et colle par date (si même date pas de distinction) les cellules de la colonne D dans la Feuil3.
Pouvez-vous m'aider?....