Bonjour à tous,
J'ai une macro fonctionnant assez bien mais que je voudrais améliorer pour ne copier coller que certaines colonnes et non pas tout les lignes contenant des données
Sub Macrobiochimie()
Sheets("Suivi global BHU").Select
Selection.AutoFilter Field:=11, Criteria1:="Biochimie"
Selection.AutoFilter Field:=16, Criteria1:="=Actif", Operator:=xlOr, _
Criteria2:="=Inactif"
Rows("10:500").Select
Range("N10").Activate
Selection.Copy
Sheets("Radar biochimie").Select
Range("A1").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells.Select
ActiveSheet.Paste
Selection.AutoFilter
Sheets("Suivi global BHU").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub
Il faudrait que ca ne copie colle que les colonnes : C I J K N O P Q
Ci dessous la macro que je tente de modifier en vain ( en gras ). Je suppose qu'il faut ajouter d'autres critères ( on m'a exposé oralement d'utiliser du activewindow.scroll column en fin de macro mais comment ... that the question)
Sub Macrobiochimie()
Sheets("Suivi global BHU").Select
Selection.AutoFilter Field:=11, Criteria1:="Biochimie"
Selection.AutoFilter Field:=16, Criteria1:="=Actif", Operator:=xlOr, _
Criteria2:="=Inactif"
Rows("10:500").Select
Range("N10").Activate
Range("C:C,I:I,J:J,K:K,N:N,O:O,P😛,Q:Q").Activate
Selection.Copy
Sheets("Radar biochimie").Select
Range("A1").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells.Select
ActiveSheet.Paste
Selection.AutoFilter
Sheets("Suivi global BHU").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub
Je vous remercie par avance pour votre aide et conseils !
Cdlt
Gael
J'ai une macro fonctionnant assez bien mais que je voudrais améliorer pour ne copier coller que certaines colonnes et non pas tout les lignes contenant des données
Sub Macrobiochimie()
Sheets("Suivi global BHU").Select
Selection.AutoFilter Field:=11, Criteria1:="Biochimie"
Selection.AutoFilter Field:=16, Criteria1:="=Actif", Operator:=xlOr, _
Criteria2:="=Inactif"
Rows("10:500").Select
Range("N10").Activate
Selection.Copy
Sheets("Radar biochimie").Select
Range("A1").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells.Select
ActiveSheet.Paste
Selection.AutoFilter
Sheets("Suivi global BHU").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub
Il faudrait que ca ne copie colle que les colonnes : C I J K N O P Q
Ci dessous la macro que je tente de modifier en vain ( en gras ). Je suppose qu'il faut ajouter d'autres critères ( on m'a exposé oralement d'utiliser du activewindow.scroll column en fin de macro mais comment ... that the question)
Sub Macrobiochimie()
Sheets("Suivi global BHU").Select
Selection.AutoFilter Field:=11, Criteria1:="Biochimie"
Selection.AutoFilter Field:=16, Criteria1:="=Actif", Operator:=xlOr, _
Criteria2:="=Inactif"
Rows("10:500").Select
Range("N10").Activate
Range("C:C,I:I,J:J,K:K,N:N,O:O,P😛,Q:Q").Activate
Selection.Copy
Sheets("Radar biochimie").Select
Range("A1").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells.Select
ActiveSheet.Paste
Selection.AutoFilter
Sheets("Suivi global BHU").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub
Je vous remercie par avance pour votre aide et conseils !
Cdlt
Gael