Discussion :

[aurelu]

Bonjour à tous,

J'ai un petit soucis concernant une macro que j'ai crée j'ai compris mon erreur mais ne sait comment la résoudre.

Pour commencer voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Macro1()
    ActiveSheet.Range("D5:D8").Select 'Selection des cellules à copier de la feuille X
    Selection.Copy
    Sheets("TBR").Select ' Active la feuille
    Range("XFD3:XFD6").End(xlToLeft).Offset(0, 1).Select  ' Se positionne à la dernière colonne renseignée
    ActiveSheet.Paste Link:=True 'Copie les valeurs
 
    Range("XFD6").End(xlToLeft).Offset(1, 0).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
 
    Range("D10:D23").Select 'Selection des cellules à copier de la feuille X
    Selection.Copy
    Sheets("TBR").Select ' Active la feuille
    Range("XFD8:XFD21").End(xlToLeft).Offset(0, 1).Select ' Se positionne à la dernière colonne renseignée
    ActiveSheet.Paste Link:=True 'Copie les valeurs

La macro fonctionne mais ça ne fait pas le résultat que je souhaite. En faite je voudrais retourner sur la première feuille que j'ai activé après le End With

Auriez-vous une solution?

D'avance merci

[jurassic pork]

hello,
soit tu viens toujours de la même feuille et dans ce cas tu la sélectionnes par son nom.

Code :

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

 Sheets("MaFeuilleDeDepart").Select ' Active la feuille

Soit tu mémorises la feuille d'où tu viens et tu l'actives pour retourner dessus :

Code :

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

1
2
3
4
5
 Dim MAFeuilleActive
 Set MAFeuilleActive = ActiveSheet
' traitement
' retour sur la feuille
MAFeuilleActive.Select

Ami calmant, J.P

[Menhir]

Ou, mieux, tu vires les Select :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
    ActiveSheet.Range("D5:D8").Copy
    Sheets("TBR").Range("XFD3:XFD6").End(xlToLeft).Offset(0, 1).PasteSpecial  Paste:=xlPasteValues 
    With Sheets("TBR").Range("XFD6").End(xlToLeft).Offset(1, 0).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
 
    Range("D10:D23").Copy
    Sheets("TBR").Range("XFD8:XFD21").End(xlToLeft).Offset(0, 1).PasteSpecial  Paste:=xlPasteValues