Sur mème ligne, retourner à la cellule de la colonne A
Bonjour à tous!
J'ai créé une macro qui va copier des listes déroulantes, listes déroulantes indirecte, format de cellules et formats conditionnel sur 3 lignes à la fois. L'a j'ai un dilemme où je voudrais qu'en exécutant la macro, elle colle de la même facon mais à partir de la colonne A sur la meme ligne que la cellule active quand on l'execute.
Voici à quoi ressemble ma macro présentement:
Range("A31:J31").Copy
ActiveCell.Range("A1:A5").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Select
Merci de votre aide!
Bonjour,
à tester,
Range("A31:J31").Copy
With Range("A" & ActiveCell.Row)
.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
Bonjour,
à tester,
Range("A31:J31").Copy With Range("A" & ActiveCell.Row) .PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False .PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End With
Merci!
Cela ne fonctionnait que sur 1 seule ligne à la fois, mais j'ai réussi à l'adaper