Macro sur des feuilles différentes ?

Bonjour,

Je voulais comment lancer une macro depuis une feuille (Feuille1), et que ses effets se produisent dans une autre feuille (Feuille 2) ?

Merci.

il faut utiliser qqch comme

worksheets("feuille2").ceque tu veux faire.

(worksheets("feuille2").range("A2").value=3 )

si tu veux sélectionner la feuille en question

worksheets("feuille2").select

va dans l'aide vba avec worksheets

Bonjour,

Donne nous le code de ta macro (ALT+F11) pour que nous t'aidions ...

Adrien

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15/05/2009 par tresud
'
' Touche de raccourci du clavier: Ctrl+1
'
    Worksheet("Plage de données TRI & TRA").Select
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "1%"
    Range("C3").Select
    Selection.AutoFill Destination:=Range("C3:C23"), Type:=xlFillValues
    Range("C3:C23").Select
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("G3").Select
    Selection.AutoFill Destination:=Range("G3:G102"), Type:=xlFillValues
    Range("G3:G102").Select
    ActiveWindow.SmallScroll Down:=-15
    Worksheet("Calculs de rentabilité").Select
End Sub

Je voudrais lancer la macro depuis la feuille "Calculs de rentabilité" pour qu'elle s'exécute dans la feuille "Plage de données TRI & TRA".

Je n'ai pas l'aide de VBA, et mon patron ne sait pas ce qu'il a fait du CD d'installation...

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15/05/2009 par tresud
'
' Touche de raccourci du clavier: Ctrl+1
'
    Feuil5.Select
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "1%"
    Range("C3").Select
    Selection.AutoFill Destination:=Range("C3:C23"), Type:=xlFillValues
    Range("C3:C23").Select
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("G3").Select
    Selection.AutoFill Destination:=Range("G3:G102"), Type:=xlFillValues
    Range("G3:G102").Select
    ActiveWindow.SmallScroll Down:=-15
    Feuil2.Select
End Sub

En fait c'est bon, avec ce code ça marche !

Merci !

worksheet =/= worksheets

!!!

Mais ça ne marchait pas non plus avec worksheets...

Worksheet("Plage de données TRI & TRA").Select

Range("C3").Select

ActiveCell.FormulaR1C1 = "1%"

si tu utilises active cell, il faut que la cellule soit activée...

range("C3").activate

Ca, c'est exel qui l'a fait tout seul...

Je l'ai fait en enregistrant automatiquement la macro.

en fait, pour ce genre de manip, on utiliserait apparemment plutôt du style de cet exemple :

With Worksheets("Sheet1").Range("A1:C10")

.Value = 30

.Font.Bold = True

.Interior.Color = RGB(255, 255, 0)

End With