C
carlos
Guest
bonsoir
je cherche à coller sous la derniere cellule nonvide la cell validée.
Public Sub Noms_eleves()
Dim cell As Variant
For Each cell In Sheets('f_ele').Range('d4:d500')
If cell = Sheets('classe').Range('a1') _
Then Range('e' & Range('d200').End(xlUp).Row + 4) = cell.Offset(0, -2)
Next
End Sub
pourquoi le 'Range('e' & Range('d200').End(xlUp).Row + 4)' ne colle pas le cell accepté sous la derniere cellule nonvide
merci
je cherche à coller sous la derniere cellule nonvide la cell validée.
Public Sub Noms_eleves()
Dim cell As Variant
For Each cell In Sheets('f_ele').Range('d4:d500')
If cell = Sheets('classe').Range('a1') _
Then Range('e' & Range('d200').End(xlUp).Row + 4) = cell.Offset(0, -2)
Next
End Sub
pourquoi le 'Range('e' & Range('d200').End(xlUp).Row + 4)' ne colle pas le cell accepté sous la derniere cellule nonvide
merci