variable de feuille

Version imprimable

variable de feuille

Bonjour.
avec excel je cherche à me faire une feuille de tournée. J'ai donc un classeur avec plusieurs feuilles (a/b/c /etc).
j'ai enregistré une macro pour copier une ligne de la feuille A sur la feuille "Tournée".

Soucis dans le code VBA indique la feuille A et une ligne précise. Je me retrouve avec le même nom copié X fois.
Votre aide me sera utile
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sheets("A").Select Range("A4:C4").Select Selection.Copy Sheets("Tournée").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False ActiveWindow.SmallScroll Down:=-6 Selection.Rows.AutoFit Selection.Columns.AutoFit ActiveWindow.SmallScroll Down:=-6 Range("A7").Select ActiveWindow.SmallScroll Down:=-15
8O

23/06/2011, 12h16
mercatog

Bonjour
Un exemple sans les Select, Selection...

Code:

Sheets("A").Range("A4:C4").Copy Sheets("Tournée").Range("A7")
23/06/2011, 16h58
rougedragon
8O
haaahahahah. J'ai un excel 2002 dons je ne sais pas si ta méthode fonctionne. Pour l'instant non.

Mais je me suis mal exprimé. Je veux pouvoir exécuter la macro sur des feuilles différentes. Donc je souhaite remplacer Sheets("A").Select par un Sheets("$feuille").Select

Ok j'ai résolu une partie du pb avec
Code:

1 2 Dim sh As Worksheet Set sh = ActiveSheet
Maintenant je cherche une piste pour la ligne . pour l'instant j'ai un copier de Range("A4:C4") quelle que soit la feuille.

script corrigé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim sh As Worksheet
Set sh = ActiveSheet
Dim Plage As Range
   Set Plage = ActiveCell
    Selection.Copy
    Sheets("Tournée").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-6
    Selection.Rows.AutoFit
    Selection.Columns.AutoFit
    ActiveWindow.SmallScroll Down:=-6

Bonne journée à tous :D