Bonjour,
J'aurai aimé une petite aide sur un code que j'avais utilisé et que j'aimerai adapter.
Je voudrais copier / coller un tableau dans une autre feuille MAIS si la colonne "Mail" il y a des cellules vides il ne faut pas les copier.
Je ne suis pas bon en VBA j'ai juste récupéré ce code qui m'était utile quand il y avait un critère...
Merci à vous.
Option Explicit
Sub FiltreMail()
Dim WsS As Worksheet
Dim WsC As Worksheet
Range("A4:K100").Delete Shift:=xlToLeft
Application.ScreenUpdating = False
Set WsC = ThisWorkbook.ActiveSheet
Set WsS = Worksheets("Fichier général abos")
WsS.Range("A1:K100").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=WsC.Range("A1:A2"), CopyToRange:=WsC.Range("A4:K100"), Unique:=False
End Sub
J'aurai aimé une petite aide sur un code que j'avais utilisé et que j'aimerai adapter.
Je voudrais copier / coller un tableau dans une autre feuille MAIS si la colonne "Mail" il y a des cellules vides il ne faut pas les copier.
Je ne suis pas bon en VBA j'ai juste récupéré ce code qui m'était utile quand il y avait un critère...
Merci à vous.
Option Explicit
Sub FiltreMail()
Dim WsS As Worksheet
Dim WsC As Worksheet
Range("A4:K100").Delete Shift:=xlToLeft
Application.ScreenUpdating = False
Set WsC = ThisWorkbook.ActiveSheet
Set WsS = Worksheets("Fichier général abos")
WsS.Range("A1:K100").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=WsC.Range("A1:A2"), CopyToRange:=WsC.Range("A4:K100"), Unique:=False
End Sub