Si une plage de cellules est sélectionnée et que je sélectionne
un graphique, le fait de taper sur «Échap» ( «Escape» )
me ramène à la plage.
Par contre, avec cette macro, ActiveChart.Deselect
ne me ramène pas à la plage.
Question : Suis-je obligé d'utiliser SendKeys "{ESC}"
plutôt que ActiveChart.Deselect pour revenir à la plage ?
Sub Sélection_Graphique()
ActiveSheet.ChartObjects(1).Activate
MsgBox "Le graphique " & ActiveChart.Name & " est sélectionné."
ActiveChart.Deselect
'SendKeys "{ESC}"
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bon{j,s}o{u,i}r® Serge,
Tu peux peut être modifier ainsi
Sub Sélection_Graphique() depart = Selection.Address ActiveSheet.ChartObjects(1).Activate MsgBox "Le graphique " & ActiveChart.Name & " est sélectionné." ActiveChart.Deselect range(depart).select 'SendKeys "{ESC}" End Sub
"garnote" a écrit dans le message de news:abVLc.108007$
Bonsoir,
Si une plage de cellules est sélectionnée et que je sélectionne un graphique, le fait de taper sur «Échap» ( «Escape» ) me ramène à la plage. Par contre, avec cette macro, ActiveChart.Deselect ne me ramène pas à la plage. Question : Suis-je obligé d'utiliser SendKeys "{ESC}" plutôt que ActiveChart.Deselect pour revenir à la plage ?
Sub Sélection_Graphique() ActiveSheet.ChartObjects(1).Activate MsgBox "Le graphique " & ActiveChart.Name & " est sélectionné." ActiveChart.Deselect 'SendKeys "{ESC}" End Sub
Serge
Bon{j,s}o{u,i}r® Serge,
Tu peux peut être modifier ainsi
Sub Sélection_Graphique()
depart = Selection.Address
ActiveSheet.ChartObjects(1).Activate
MsgBox "Le graphique " & ActiveChart.Name & " est sélectionné."
ActiveChart.Deselect
range(depart).select
'SendKeys "{ESC}"
End Sub
"garnote" <rien@absent.net> a écrit dans le message de news:abVLc.108007$eO.10597@edtnps89...
Bonsoir,
Si une plage de cellules est sélectionnée et que je sélectionne
un graphique, le fait de taper sur «Échap» ( «Escape» )
me ramène à la plage.
Par contre, avec cette macro, ActiveChart.Deselect
ne me ramène pas à la plage.
Question : Suis-je obligé d'utiliser SendKeys "{ESC}"
plutôt que ActiveChart.Deselect pour revenir à la plage ?
Sub Sélection_Graphique()
ActiveSheet.ChartObjects(1).Activate
MsgBox "Le graphique " & ActiveChart.Name & " est sélectionné."
ActiveChart.Deselect
'SendKeys "{ESC}"
End Sub
Sub Sélection_Graphique() depart = Selection.Address ActiveSheet.ChartObjects(1).Activate MsgBox "Le graphique " & ActiveChart.Name & " est sélectionné." ActiveChart.Deselect range(depart).select 'SendKeys "{ESC}" End Sub
"garnote" a écrit dans le message de news:abVLc.108007$
Bonsoir,
Si une plage de cellules est sélectionnée et que je sélectionne un graphique, le fait de taper sur «Échap» ( «Escape» ) me ramène à la plage. Par contre, avec cette macro, ActiveChart.Deselect ne me ramène pas à la plage. Question : Suis-je obligé d'utiliser SendKeys "{ESC}" plutôt que ActiveChart.Deselect pour revenir à la plage ?
Sub Sélection_Graphique() ActiveSheet.ChartObjects(1).Activate MsgBox "Le graphique " & ActiveChart.Name & " est sélectionné." ActiveChart.Deselect 'SendKeys "{ESC}" End Sub
