Discussion :

[bech59]

Bonjour,
j'ai réalisé une macro pour faire un copier collé de données d'une feuille sur une autre, lors du premier essai la macro a très bien fonctionné mais lorsque je la lance une seconde fois elle rest bloqué et míndique cette ligne en jaune

Selection.AutoFilter Field:=18, Criteria1:="A1Fluid:Setp. Alto"

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
22
23
24
Sub A1FluidSetpAlto()
'
' A1FluidSetpAlto Macro
' Macro grabada el 16/06/2010 por morgan.romain
'
 
'
    Range("P49").Select
    ActiveWindow.SmallScroll ToRight:=8
    Selection.AutoFilter Field:=18, Criteria1:="A1Fluid:Setp. Alto"
    Range("E:Q,C:C").Select
    Range("C1").Activate
    Selection.EntireColumn.Hidden = True
    Range("A7:R65536").Select
    ActiveWindow.ScrollRow = 1
    Selection.Copy
    Sheets("MTBF").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("A4").Select
    ActiveSheet.Paste
    Columns("A:R").Select
    Selection.EntireColumn.Hidden = False
    Range("A7").Select
End Sub

je souhaiterais corriger ceci mais je ne suis pas très alaise avec les macros... merci pour votre aide

[zyhack]

Bonjour

je pense que tu as un problème de feuille active au moment ou tu lance ta macro. L'ideal est de préciser pour chaque étape sur quelle feuille tu désire effectuer les opérations, après tu veras qu'il y a différentes manières de le faire.

en voici un exemple, il faut adapter le nom de la feuille préciser en commentaire dans le 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
 
Sub A1FluidSetpAlto()
 
    With Sheets("Feuil1") 'nom de la feuille à adapter
      .Range("A1").AutoFilter Field:=18, Criteria1:="A1Fluid:Setp. Alto"
      .Range("E:Q,C:C").EntireColumn.Hidden = True
      .Range("A7:R65536").Copy
    End With
 
    With Sheets("MTBF")
      .Range("A4").Paste
      .Columns("A:R").EntireColumn.Hidden = False
    End With
 
End Sub

[bech59]

Bonjour,
je viens d'essayer votre macro mais je n'arrive pas à la faire fonctionner, j'ai bien entendu changer le nom des pages etc.... mais il me surligne toujours en jaune la ligne

Range("A1").Paste

j'ai essayé de changer le chiffre et la lettre mais rien n'y fait.

merci

[zyhack]

Bonjour

essaye avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub A1FluidSetpAlto()
 
    With Sheets("Feuil1") 'nom de la feuille à adapter
      .Range("A1").AutoFilter Field:=18, Criteria1:="A1Fluid:Setp. Alto"
      .Range("E:Q,C:C").EntireColumn.Hidden = True
      .Range("A7:R65536").Copy Sheets("MTBF").Range("A4").Paste
    End With
 
    Sheets("MTBF").Columns("A:R").EntireColumn.Hidden = False
 
End Sub

[bech59]

j'ai essayé la nouvelle macro mais j'ai toujours un problème! Cette fois ci avec la ligne ci dessous:

Code :

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

1
2
 
Range("A7:R65536").Copy Sheets("MTBF").Range("A4").Paste

[zyhack]

Bonjour

Milles excuses j'ai oublié d'enlever le .paste

la ligne devrait être

Code :

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

Range("A7:R65536").Copy Sheets("MTBF").Range("A4")