Bonjour,
j'aurai besoin d'un peu d'aide, je voudrai créer une macro qui me permet de copier la valeur de plusieurs cellules distinctes d'un onglet vers d'autres cellules distinctes d'un autre onglet; J'ai réussi à commencer un code mais celui-ci est trop important car j'ai beaucoup de cellules et beaucoup d'onglets.
Pouvez-vous m'aider sur ce point?
Sub Macro5()
'
' Macro5 Macro
ActiveSheet.Range("$A$4:$BD$1000").AutoFilter Field:=26, Criteria1:="P18A"
Range("AZ2").Copy L01.Range("C4")
Selection.Copy
Sheets("L01").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HEURES ARRÊTS").Select
Range("AN2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("L01").Select
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
merci
MCB
j'aurai besoin d'un peu d'aide, je voudrai créer une macro qui me permet de copier la valeur de plusieurs cellules distinctes d'un onglet vers d'autres cellules distinctes d'un autre onglet; J'ai réussi à commencer un code mais celui-ci est trop important car j'ai beaucoup de cellules et beaucoup d'onglets.
Pouvez-vous m'aider sur ce point?
Sub Macro5()
'
' Macro5 Macro
ActiveSheet.Range("$A$4:$BD$1000").AutoFilter Field:=26, Criteria1:="P18A"
Range("AZ2").Copy L01.Range("C4")
Selection.Copy
Sheets("L01").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HEURES ARRÊTS").Select
Range("AN2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("L01").Select
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
merci
MCB