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

zidoide · 7 Décembre 2005

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 · 8 Décembre 2005

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 · 8 Décembre 2005

Merci beaucoup trop cool....

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

zidoide

XLDnaute Nouveau

Pièces jointes

Charly2

Nous a quittés en 2006

zidoide

XLDnaute Nouveau

Discussions similaires