Résolu Tri et copie vers une autre feuille

  • Auteur de la discussion dianbobo
  • Date de début

dianbobo

Expert
bonjour :bounce:

je croix que je ne suis plus aussi nul comme au premier jour
mais mon l'amateurisme hélas fait de moi un apprenti
alors je suis un classeur excel et j'ai activé l'enregistreur de macro
puis j'ai essayé de l'executer ensuite mais ça ne fonctionne pas .

je vous explique ce que j'ai fait : j'ai une feuille excel nommé "nvell dispo" dans laquelle j'ai filtré sur une meme colonne "oblig" et "EMTN"
puis j'ai fait une copie de ce filtre dans ma feuille nommé synthese
puis l'enregistreur de macro m'a donné la macro ci-dessous:


[cpp] Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 12/05/2010 par H008369
'
' Touche de raccourci du clavier: Ctrl+r
'
Selection.CurrentRegion.Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="=EMTN", Operator:=xlOr, _
Criteria2:="=Oblig"
Range("A185:I331").Select
Selection.Copy
Sheets("Synthèse").Select
Range("A2").Select
ActiveSheet.Paste
End Sub[/cpp]

j'ai donc réecrit cette macro sous vba pour ma feuille synthese
ensuite j'ai essayé de l'executer dans le but de voir dans ma feuille synthese les données triées de la feuille nvell dispo ! mais j'ai l'erreur suivante :"x 400"
du coup je veux bien comprendre comment utiliser cette macro pour trier et copier les données triées dans ma feuille :??:

merci :love:
 

dianbobo

Expert
c'est un filtre que je fais et non un tri
mais je ne comprend pas pourquoi mon code ne fonctionne pas .

puis j'ai essayé de la façon suivante :


[cpp]Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 12/05/2010 par H008369
'
' Touche de raccourci du clavier: Ctrl+r
'
Range("A185").Select
Selection.CurrentRegion.Select
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="=EMTN", Operator:=xlOr, _
Criteria2:="=Oblig"
Range("A185").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Synthèse").Select
Range("A2").Select
ActiveSheet.Paste

End sub[/cpp]

mais j'ai toujour la meme erreur "x 400"
 

dianbobo

Expert
Meilleure réponse
voila ça marche comme ça .... :bounce:

[cpp]Worksheets("Nlle Dispo").Range("A1:I451").Copy Worksheets("Synthèse").Range("A5")
Range("A5:I455").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="=Oblig", Operator:=xlOr, _
Criteria2:="=EMTN"
ActiveWindow.SmallScroll Down:=216[/cpp]

je serai un As one day :non:
 

zeb

Modérateur
Pour être un as, un jour ;) :

Tu travailles avec plusieurs onglets. Ne traite donc aucune plage sans préciser l'onglet. (Ligne 2)

A chaque fois que tu vois un Truc.Select suivi d'un Selection.Machin, c'est que tu peux écrire directement Truc.Machin.

Pourquoi deux AutoFilter ?

Faut-il vraiment un SmallScroll dans ton code où est-ce un résidu de l'enregistreur de macro ?
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 098
Membres
1 586 287
Dernier membre
lucilleguffey
Partager cette page
Haut