Discussion :

[rougedragon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Bonjour
Un exemple sans les Select, Selection...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("A").Range("A4:C4").Copy Sheets("Tournée").Range("A7")

[rougedragon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[rougedragon]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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