début là ou j'ai sélectionné...

[zidoide]

Bonjour,

J'aimerais que quand je sélectionne ma cellule ma macro début la ou j'ai sélectionné...

oui je sais j'ai déjà demandé un truc comme ceci mais je suis un nase en VBA..

Alors merci d'avance au moins nul que moi............!!! [file name=Essaimacro_20051207203159.zip size=16730]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essaimacro_20051207203159.zip[/file]

 

[Charly2]

Bonsoir Zidoide, bonsoir à toutes et à tous 🙂

Tu peux réécrire ta macro comme suit (mais attention aux erreurs de sélection !!!) :

Sub Macro1()
'
Dim C As Range
'
  Application.ScreenUpdating = False
  Set C = ActiveCell
  With Sheets('Macros')
    .Range('C7').Copy
    Range(C, C.Offset(4, 0)).PasteSpecial Paste:=xlPasteValues

    .Range('D7').Copy
    Range(C.Offset(0, 1), C.Offset(4, 1)).PasteSpecial Paste:=xlPasteValues

    .Range('B11,B19,B27,B35,B43').Copy
    Range('D' & C.Row).PasteSpecial Paste:=xlPasteValues

    .Range('D11,D19,D27,D35,D43').Copy
    Range('E' & C.Row).PasteSpecial Paste:=xlPasteValues

    .Range('C11,C19,C27,C35,C43').Copy
    Range('F' & C.Row).PasteSpecial Paste:=xlPasteValues

    .Range('C12,C20,C28,C36,C44').Copy
    Range('J' & C.Row).PasteSpecial Paste:=xlPasteValues

    .Range('E12,E20,E28,E36,E44').Copy
    Range('K' & C.Row).PasteSpecial Paste:=xlPasteValues

    Range('L' & (C.Row - 1)).Select
    Selection.AutoFill Destination:=Range(C.Offset(-1, 11), C.Offset(4, 11))

    Range('C' & (C.Row - 1)).Select
    Selection.AutoFill Range(C.Offset(-1, 2), C.Offset(4, 2))
  End With

  C.Select
  Application.ScreenUpdating = True
End Sub

En espérant que cela réponde à ta demande...

Amicalement
Charly

 

[zidoide]

Merci beaucoup trop cool....