extraction selon conditions
Bonjour le forum,
je bloque :
je souhaite copier plusieurs cellules vers des feuilles différentes en fonction du premier chiffre de l'une d'entre elle...
voici le bout de code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| Sub uplod()
Dim cell As Range, plage As Range
Dim derlig As Long, newlig As Long
With Worksheets("BASE_AM")
.Range("a2:d3000").Clear
'with Worksheets("BASE_CB")
'.Range("a2:d3000").Clear
' end with
With Worksheets("MACROS_TRI")
derlig = Range("A" & Rows.Count).End(xlUp).Row
Set plage = Range("A2:A" & derlig)
End With
newlig = 1
For Each cell In plage
If Left(cell.Offset(0, 9).Value, 1) = "6" Then
.Range("A" & newlig).Value = cell.Offset(0, 2).Value
.Range("B" & newlig).Value = cell.Offset(0, 3).Value
.Range("C" & newlig).Value = cell.Offset(0, 10).Value
.Range("D" & newlig).Value = cell.Offset(0, 9).Value
Else
If Left(cell.Offset(0, 9).Value, 1) = "8" Then
.Range("A" & newlig).Value = cell.Offset(0, 2).Value
.Range("B" & newlig).Value = cell.Offset(0, 3).Value
.Range("C" & newlig).Value = cell.Offset(0, 10).Value
.Range("D" & newlig).Value = cell.Offset(0, 9).Value
End If
End If
newlig = newlig + 1
Next cell
Set plage = Nothing
End With
End Sub |
J'aimerais que ma seconde condition copier les cellules vers la feuille BASE_CB mais après moulte essais je n'arrive pas à définir la feuille cible :cry:
Quelqu'un peut-il m'aider svp ? :oops: