Re : COPIER/COLLER Tableau sauf ligne vide
Merci beaucoup à tous !!!
j'ai choisi de prendre la solution du chasseur car la plus simple à adapter à mon cas mais je rencontre un dernier problème qui m'empeche d'atteindre le but ultime.
certaine de mes colonnes sont des calculs il faut donc que je fasse un Paste Value mais avec le code du chasseur vba ne veut pas quand je transforme paste en paste value !!!
En prenant le code que j'ai proposé il suffit de faire un ".value"
Sub traitement()
Dim tabv1(0 To 5000, 0 To 10)
'Récupération des données
Worksheets("Feuil1").Select
i = 2
k = 0
Do While Cells(i, 1) <> ""
If Cells(i, 4) <> "" Then
tabv1(k, 0) = Cells(i, 1).value
tabv1(k, 1) = Cells(i, 2).value
tabv1(k, 2) = Cells(i, 3).value
tabv1(k, 3) = Cells(i, 4).value
tabv1(k, 4) = Cells(i, 5).value
tabv1(k, 5) = Cells(i, 6).value
k = k + 1
End If
i = i + 1
Loop
'Recopie des données
Worksheets("Feuil2").Select
If k <> 0 Then Range(Cells(2, 1), Cells(2 + k, 6)).Resize(k, 6) = tabv1
End Sub
Je pense que ce n'est pas plus compliqué ^^