faire ENTER dans macro

[Stephane]

Bonjour,

comment écrire simplement faire enter dans une macro.
Car j'ai voulu automatiser un calcul de sous total mais qd je lance la macro j'ai une info bulle qui me dit qu'on va faire un sous total, comment faire en sorte que je clic sur ok automatiquement ou bien enter.

Merci a vous.

stephane

 

[PascalXLD]

Bonjour

De quel info bulle parles-tu ?

Tu pourrais mettre ton code STP ?

Bonne journée

 

[Blunet]

Salut Pascal, Stephane,
s'il s'agit d'un message alerte faut voir si application.displaysalerts=false ne marche pas.

Le mieux serait de joinde ton fichier

Ciao

 

[Stephane]

Voici le code

ActiveSheet.Unprotect
Rows('12:200').Select
Selection.Sort Key1:=Range('Q12'), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Rows('12:200').Select
Range('A200').Activate
Selection.Subtotal GroupBy:=17, Function:=xlSum, TotalList:=Array(21, 23, 25, 29, 30, 31) _
, Replace:=True, PageBreaks:=False, SummaryBelowData:=False
Range('A10').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[PascalXLD]

Re

Bon j'ai fait des tests avec ton code sur une plage plus petite et pas de problème

Tu pourrais envoyer ton fichier sans données confidentielles pour voir STP

 

[stephane]

voici ce que me dit l infobulle ça vous aidera peut être

This removes the subtotals and sorts again. If you want to sort the subtotaled groups, choose the cancel button; then collapse the outline and try again

 

[PascalXLD]

Re

Essaies ainsi comme le disait blunet

ActiveSheet.Unprotect
Application.DisplayAlerts = False
Rows('12:200').Select
Selection.Sort Key1:=Range('Q12'), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Rows('12:200').Select
Range('A200').Activate
Selection.Subtotal GroupBy:=17, Function:=xlSum, TotalList:=Array(21, 23, 25, 29, 30, 31) _
, Replace:=True, PageBreaks:=False, SummaryBelowData:=False
Range('A10').Select
Application.DisplayAlerts = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[Stephane]

Merci beaucoup ça fonctionne !!!

Super