Bonjour
Voila j'ai une boucle qui crée des feuilles contenant chacune un bouton
action , je n'arrive pas à affecter à ces boutons l'appel d'un function
précédement écrite
Expl : dans la boucle je fait
ActiveSheet.Buttons.Add(769.5, 34.5, 66, 44.25).Select 'ca cela marche
Selection.OnAction = actualise
'cela ne marche pas
"actualise" étant le nom d'une fonction
Public Static Sub actualise()
Dim Minix, Maxix, Miniy, Maxiy As Variant
'met les échelles en fonction de valeurs contenues dans des cellules
With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory)
.MinimumScale = Minix
.MaximumScale = Maxix
End With
With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue)
.MinimumScale = Miniy
.MaximumScale = Maxiy
End With
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
Claude Trouet
Bonjour, en consultant l'aide Excel,pour OnAction, je vois que le nom de la procédure appelée est entre guillemets. serait-cela ?
Selection.OnAction = "actualise"
Bonne journée CT
"jduval" a écrit dans le message de news: %
Bonjour Voila j'ai une boucle qui crée des feuilles contenant chacune un bouton action , je n'arrive pas à affecter à ces boutons l'appel d'un function précédement écrite
Expl : dans la boucle je fait
ActiveSheet.Buttons.Add(769.5, 34.5, 66, 44.25).Select 'ca cela marche Selection.OnAction = actualise 'cela ne marche pas
"actualise" étant le nom d'une fonction
Public Static Sub actualise() Dim Minix, Maxix, Miniy, Maxiy As Variant
'met les échelles en fonction de valeurs contenues dans des cellules With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory) .MinimumScale = Minix .MaximumScale = Maxix End With With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue) .MinimumScale = Miniy .MaximumScale = Maxiy End With
End Sub
Si quelqu'un sait pourquoi??
Merci d'avance
Bonjour,
en consultant l'aide Excel,pour OnAction, je vois que le nom de la procédure
appelée est entre guillemets.
serait-cela ?
Selection.OnAction = "actualise"
Bonne journée
CT
"jduval" <jduval@laon.inra.fr> a écrit dans le message de news:
%23VAxKpOwEHA.4004@tk2msftngp13.phx.gbl...
Bonjour
Voila j'ai une boucle qui crée des feuilles contenant chacune un bouton
action , je n'arrive pas à affecter à ces boutons l'appel d'un function
précédement écrite
Expl : dans la boucle je fait
ActiveSheet.Buttons.Add(769.5, 34.5, 66, 44.25).Select 'ca cela marche
Selection.OnAction = actualise 'cela ne marche pas
"actualise" étant le nom d'une fonction
Public Static Sub actualise()
Dim Minix, Maxix, Miniy, Maxiy As Variant
'met les échelles en fonction de valeurs contenues dans des cellules
With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory)
.MinimumScale = Minix
.MaximumScale = Maxix
End With
With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue)
.MinimumScale = Miniy
.MaximumScale = Maxiy
End With
Bonjour, en consultant l'aide Excel,pour OnAction, je vois que le nom de la procédure appelée est entre guillemets. serait-cela ?
Selection.OnAction = "actualise"
Bonne journée CT
"jduval" a écrit dans le message de news: %
Bonjour Voila j'ai une boucle qui crée des feuilles contenant chacune un bouton action , je n'arrive pas à affecter à ces boutons l'appel d'un function précédement écrite
Expl : dans la boucle je fait
ActiveSheet.Buttons.Add(769.5, 34.5, 66, 44.25).Select 'ca cela marche Selection.OnAction = actualise 'cela ne marche pas
"actualise" étant le nom d'une fonction
Public Static Sub actualise() Dim Minix, Maxix, Miniy, Maxiy As Variant
'met les échelles en fonction de valeurs contenues dans des cellules With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory) .MinimumScale = Minix .MaximumScale = Maxix End With With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue) .MinimumScale = Miniy .MaximumScale = Maxiy End With
End Sub
Si quelqu'un sait pourquoi??
Merci d'avance
jduval
Bonjour non j'ai déja essayé merci "Claude Trouet" a écrit dans le message de news: uYjNs%
Bonjour, en consultant l'aide Excel,pour OnAction, je vois que le nom de la procédure appelée est entre guillemets. serait-cela ?
Selection.OnAction = "actualise"
Bonne journée CT
"jduval" a écrit dans le message de news: %
Bonjour Voila j'ai une boucle qui crée des feuilles contenant chacune un bouton action , je n'arrive pas à affecter à ces boutons l'appel d'un function précédement écrite
Expl : dans la boucle je fait
ActiveSheet.Buttons.Add(769.5, 34.5, 66, 44.25).Select 'ca cela marche Selection.OnAction = actualise 'cela ne marche pas
"actualise" étant le nom d'une fonction
Public Static Sub actualise() Dim Minix, Maxix, Miniy, Maxiy As Variant
'met les échelles en fonction de valeurs contenues dans des cellules With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory) .MinimumScale = Minix .MaximumScale = Maxix End With With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue) .MinimumScale = Miniy .MaximumScale = Maxiy End With
End Sub
Si quelqu'un sait pourquoi??
Merci d'avance
Bonjour
non j'ai déja essayé
merci
"Claude Trouet" <nospam-claude.trouet@wanadoo.fr> a écrit dans le message de
news: uYjNs%23OwEHA.2012@TK2MSFTNGP15.phx.gbl...
Bonjour,
en consultant l'aide Excel,pour OnAction, je vois que le nom de la
procédure appelée est entre guillemets.
serait-cela ?
Selection.OnAction = "actualise"
Bonne journée
CT
"jduval" <jduval@laon.inra.fr> a écrit dans le message de news:
%23VAxKpOwEHA.4004@tk2msftngp13.phx.gbl...
Bonjour
Voila j'ai une boucle qui crée des feuilles contenant chacune un bouton
action , je n'arrive pas à affecter à ces boutons l'appel d'un function
précédement écrite
Expl : dans la boucle je fait
ActiveSheet.Buttons.Add(769.5, 34.5, 66, 44.25).Select 'ca cela
marche
Selection.OnAction = actualise 'cela ne marche pas
"actualise" étant le nom d'une fonction
Public Static Sub actualise()
Dim Minix, Maxix, Miniy, Maxiy As Variant
'met les échelles en fonction de valeurs contenues dans des cellules
With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory)
.MinimumScale = Minix
.MaximumScale = Maxix
End With
With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue)
.MinimumScale = Miniy
.MaximumScale = Maxiy
End With
Bonjour non j'ai déja essayé merci "Claude Trouet" a écrit dans le message de news: uYjNs%
Bonjour, en consultant l'aide Excel,pour OnAction, je vois que le nom de la procédure appelée est entre guillemets. serait-cela ?
Selection.OnAction = "actualise"
Bonne journée CT
"jduval" a écrit dans le message de news: %
Bonjour Voila j'ai une boucle qui crée des feuilles contenant chacune un bouton action , je n'arrive pas à affecter à ces boutons l'appel d'un function précédement écrite
Expl : dans la boucle je fait
ActiveSheet.Buttons.Add(769.5, 34.5, 66, 44.25).Select 'ca cela marche Selection.OnAction = actualise 'cela ne marche pas
"actualise" étant le nom d'une fonction
Public Static Sub actualise() Dim Minix, Maxix, Miniy, Maxiy As Variant
'met les échelles en fonction de valeurs contenues dans des cellules With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory) .MinimumScale = Minix .MaximumScale = Maxix End With With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue) .MinimumScale = Miniy .MaximumScale = Maxiy End With
End Sub
Si quelqu'un sait pourquoi??
Merci d'avance
Claude Trouet
Re bonjour, j'utilise XL2000. La création du bouton et l'affectation de la macro actualise ( avec guillemets ) fonctionne. Par contre, la macro coince car je n'ai pas de graphique incorporé. Désolé! CT
"jduval" a écrit dans le message de news:
Bonjour non j'ai déja essayé merci "Claude Trouet" a écrit dans le message de news: uYjNs%
Bonjour, en consultant l'aide Excel,pour OnAction, je vois que le nom de la procédure appelée est entre guillemets. serait-cela ?
Selection.OnAction = "actualise"
Bonne journée CT
"jduval" a écrit dans le message de news: %
Bonjour Voila j'ai une boucle qui crée des feuilles contenant chacune un bouton action , je n'arrive pas à affecter à ces boutons l'appel d'un function précédement écrite
Expl : dans la boucle je fait
ActiveSheet.Buttons.Add(769.5, 34.5, 66, 44.25).Select 'ca cela marche Selection.OnAction = actualise 'cela ne marche pas
"actualise" étant le nom d'une fonction
Public Static Sub actualise() Dim Minix, Maxix, Miniy, Maxiy As Variant
'met les échelles en fonction de valeurs contenues dans des cellules With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory) .MinimumScale = Minix .MaximumScale = Maxix End With With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue) .MinimumScale = Miniy .MaximumScale = Maxiy End With
End Sub
Si quelqu'un sait pourquoi??
Merci d'avance
Re bonjour,
j'utilise XL2000.
La création du bouton et l'affectation de la macro actualise ( avec
guillemets ) fonctionne.
Par contre, la macro coince car je n'ai pas de graphique incorporé.
Désolé!
CT
"jduval" <jduval@laon.inra.fr> a écrit dans le message de news:
eSXkpKPwEHA.2728@TK2MSFTNGP12.phx.gbl...
Bonjour
non j'ai déja essayé
merci
"Claude Trouet" <nospam-claude.trouet@wanadoo.fr> a écrit dans le message
de news: uYjNs%23OwEHA.2012@TK2MSFTNGP15.phx.gbl...
Bonjour,
en consultant l'aide Excel,pour OnAction, je vois que le nom de la
procédure appelée est entre guillemets.
serait-cela ?
Selection.OnAction = "actualise"
Bonne journée
CT
"jduval" <jduval@laon.inra.fr> a écrit dans le message de news:
%23VAxKpOwEHA.4004@tk2msftngp13.phx.gbl...
Bonjour
Voila j'ai une boucle qui crée des feuilles contenant chacune un bouton
action , je n'arrive pas à affecter à ces boutons l'appel d'un function
précédement écrite
Expl : dans la boucle je fait
ActiveSheet.Buttons.Add(769.5, 34.5, 66, 44.25).Select 'ca cela
marche
Selection.OnAction = actualise 'cela ne marche pas
"actualise" étant le nom d'une fonction
Public Static Sub actualise()
Dim Minix, Maxix, Miniy, Maxiy As Variant
'met les échelles en fonction de valeurs contenues dans des cellules
With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory)
.MinimumScale = Minix
.MaximumScale = Maxix
End With
With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue)
.MinimumScale = Miniy
.MaximumScale = Maxiy
End With
Re bonjour, j'utilise XL2000. La création du bouton et l'affectation de la macro actualise ( avec guillemets ) fonctionne. Par contre, la macro coince car je n'ai pas de graphique incorporé. Désolé! CT
"jduval" a écrit dans le message de news:
Bonjour non j'ai déja essayé merci "Claude Trouet" a écrit dans le message de news: uYjNs%
Bonjour, en consultant l'aide Excel,pour OnAction, je vois que le nom de la procédure appelée est entre guillemets. serait-cela ?
Selection.OnAction = "actualise"
Bonne journée CT
"jduval" a écrit dans le message de news: %
Bonjour Voila j'ai une boucle qui crée des feuilles contenant chacune un bouton action , je n'arrive pas à affecter à ces boutons l'appel d'un function précédement écrite
Expl : dans la boucle je fait
ActiveSheet.Buttons.Add(769.5, 34.5, 66, 44.25).Select 'ca cela marche Selection.OnAction = actualise 'cela ne marche pas
"actualise" étant le nom d'une fonction
Public Static Sub actualise() Dim Minix, Maxix, Miniy, Maxiy As Variant
'met les échelles en fonction de valeurs contenues dans des cellules With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory) .MinimumScale = Minix .MaximumScale = Maxix End With With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue) .MinimumScale = Miniy .MaximumScale = Maxiy End With
