affectation d'une macro

[alex60]

Bonjour à tous,

J'ai créé une macro à l'aide de l'assistant mais mon problème est que j'ai dupliqué la feuille où j'avais la macro et que en faisant ceci la macro ne fonctionne plus.

Ma question est comment fait on pour qu'une macro fonctionne dans tous le classeur ???


Merci

 

[jeanpierre]

Re : affectation d'une macro

Bonsoir alex, re tous,

Déjà, comment tu as dupliqué la feuille ?

Si c'est par Déplacer ou copier une feuille, c'est sûr que cela ne va pas le faire....

Dans VBA : Alt F11, tu peux Glisser/Déposer ton module dans ta ou tes nouvelles feuilles,
mais tes explications sont un peu short.....

Allez, c'est vendredi, on t'en veut pas.

A te lire et bon week-end.

Jean-Pierre

Edit : L'ami Spit.... qui me suit... Salut à toi....

 

[Spitnolan08]

Re : affectation d'une macro

Bonjour,

ta question est un peu trop simpliste... Il faudrait connaître ta macro pour savoir ce qu'elle fait et savoir ce qui l'empêche de fonctionner ailleurs. D'autant qu'une macro créée par l'enregistreur n'est pas (sauf erreur) attachée à une feuille.

Cordialement

Edit: Salut Jeanpierre, tu es partout ce soir (Comme d'hab remarque...😉)

 

[alex60]

Re : affectation d'une macro

Bonjour à vous,

C'est clair que mes explications ne sont pas des plus détaillées... Désolé

Pour vous aider à comprendre je joins ma macro et pour répondre à ta question oui j'ai dupliqué ma feuille par déplacer ou copier.

Je vois bien que le problème est que la macro cible la feuille "quotidien" mais je ne sais pas comment éviter ceci.

J'espère que ce sera plus clair cette fois... Merci

Sub ordonner()
'
' ordonner Macro
'

'
ActiveWindow.SmallScroll Down:=3
Range("A6:A100").Select
ActiveWindow.SmallScroll Down:=-15
ActiveWorkbook.Worksheets("Quotidien").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Quotidien").Sort.SortFields.Add Key:=Range("A6"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Quotidien").Sort
.SetRange Range("A7:E100")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=3
Range("F21").Select
ActiveWindow.SmallScroll Down:=-21
End Sub

 

[Spitnolan08]

Re : affectation d'une macro

Bonsoir,

Sans regarder en détail ce que fait ta macro, essaie :

Sub ordonner()

Range("A6:A100").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("A6"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A7:E100")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Cordialement

 

[alex60]

Re : affectation d'une macro

Merci ça marche.

Désolé de t'avoir dérangé pour si peu, il me semblait avoir essayé cette solution.

J'ai surement du faire une autre erreur... Enfin bref merci encore pour ton aide.


Bonne soirée