Re : VBA transfert d'infos
J'ai essayé avec le code suivant :
Public Sub VentilDonnees()
Dim derlign
derlign = Sheets("CONCATENATION").Cells(10000, 2).End(xlUp).Row
Dim i
Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
Sheets("NC EAN").Range("A2:H10000").Select
Selection.ClearContents
Sheets("NC DESIGN").Range("A2:H10000").Select
Selection.ClearContents
Sheets("NC POIDS").Range("A2:H10000").Select
Selection.ClearContents
Application.DisplayAlerts = True
Sheets("CONCATENATION").Select
Range(Cells(ligne, 2), Cells(ligne, dernval)).Select
Selection.Copy
Sheets("NC EAN").Select
Range(Cells(ligne, 2), Cells(ligne, dernval)).Select
ActiveSheet.Paste
For i = derlign To 2 Step -1
If Cells(i, 2) <> "NC" Then
Cells(i, 2).EntireRow.Delete
End If
Next i
Sheets("CONCATENATION").Select
Range(Cells(ligne, 2), Cells(ligne, dernval)).Select
Selection.Copy
Sheets("NC DESIGN").Select
Range(Cells(ligne, 2), Cells(ligne, dernval)).Select
ActiveSheet.Paste
For i = derlign To 2 Step -1
If Cells(i, 5) <> "NC" Then
Cells(i, 5).EntireRow.Delete
End If
Next i
Sheets("CONCATENATION").Select
Range(Cells(ligne, 2), Cells(ligne, dernval)).Select
Selection.Copy
Sheets("NC POIDS").Select
Range(Cells(ligne, 2), Cells(ligne, dernval)).Select
ActiveSheet.Paste
For i = derlign To 2 Step -1
If Cells(i, 6) <> "NC" Then
Cells(i, 6).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Mais quand je lance le macro, la feuille "CONCATENATION" est vide :/