Re : Copier-coller avec condition
En filtrant, j'ai réussi à obtenir cette macro:
Sub CommandButton1_Click()
'
' copie_envoi Macro
'
'
Selection.AutoFilter Field:=8, Criteria1:="<>"
Range("A5
52,G5:G52,I5:L52").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ENVOI").Select
Range("A24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("BASE").Select
ActiveSheet.Range("$A$4:$L$50").AutoFilter Field:=8
ActiveWindow.SmallScroll Down:=39
Sheets("ENVOI").Select
End Sub
Mais il me reste un souci je n'arrive pas à choisir la bonne ligne ("A24") dans la feuille ENVOI.
SI je tape Range("A24").Select, il me fait un bug.
Pouvez vous m'aider