bonjour
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
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