Message à l'attention de GMB
J'ai une macro qui exporte certains champs :
Sub Reporter()
nbLn = Range("A" & Rows.Count).End(xlUp).Row
nbCol = Cells(1, Columns.Count).End(xlToLeft).Column
k = 0
ReDim tabloR(1 To nbLn, 1 To nbCol)
col1 = Array(1, 2, 3, 4, 5, 7, 10, 11, 12, 13, 14, 15)
col2 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
For i = 2 To nbLn
If Cells(i, 3).Interior.Color = RGB(255, 255, 0) Then
For n = 0 To UBound(col1)
tabloR(k + 1, col2(n)) = Cells(i, col1(n))
Next n
k = k + 1
End If
Next i
With Sheets("export")
.Range("A2:L" & Rows.Count).ClearContents
.Range("A2").Resize(k, nbCol) = tabloR
End With
End Sub
Sauf que quand l'export se fait, çà me les supprime du fichier principal. Ce que je voudrais c'est juste une copie des informations dans le fichier d'export et non une suppression.
Merci d'avance pour l'aide.