Sub Macro1() For Each bt In ActiveSheet.OLEObjects x = x + 50 With bt .Left = 10 .Width = 80 .Height = 40 .Top = x End With Next End Sub
isabelle
Michel a écrit :
Bonjour, (Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et soit tous alignés sur la vertical, c'est possible ?
Merci
M.
Merci je regarde
rthompson
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift enfoncé) Un click droit, choisir "Format Control" Choisir une dimension Et puis tant qu'ils sont sélectionnés Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" a écrit dans le message de news:
bonjour Michel,
voici un exemple,
Sub Macro1() For Each bt In ActiveSheet.OLEObjects x = x + 50 With bt .Left = 10 .Width = 80 .Height = 40 .Top = x End With Next End Sub
isabelle
Michel a écrit :
Bonjour, (Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et soit tous alignés sur la vertical, c'est possible ?
Merci
M.
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift
enfoncé)
Un click droit, choisir "Format Control"
Choisir une dimension
Et puis tant qu'ils sont sélectionnés
Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" <i@v> a écrit dans le message de news:
eXR7TiDbKHA.5728@TK2MSFTNGP02.phx.gbl...
bonjour Michel,
voici un exemple,
Sub Macro1()
For Each bt In ActiveSheet.OLEObjects
x = x + 50
With bt
.Left = 10
.Width = 80
.Height = 40
.Top = x
End With
Next
End Sub
isabelle
Michel a écrit :
Bonjour,
(Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et
soit tous alignés sur la vertical, c'est possible ?
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift enfoncé) Un click droit, choisir "Format Control" Choisir une dimension Et puis tant qu'ils sont sélectionnés Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" a écrit dans le message de news:
bonjour Michel,
voici un exemple,
Sub Macro1() For Each bt In ActiveSheet.OLEObjects x = x + 50 With bt .Left = 10 .Width = 80 .Height = 40 .Top = x End With Next End Sub
isabelle
Michel a écrit :
Bonjour, (Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et soit tous alignés sur la vertical, c'est possible ?
Merci
M.
Mgr T. Banni
bonjour le trio québéco-anglo-belge :-)
sauf que monsieur michel, il a dit, rex mon fils : "Je cherche un moyen automatique"
Mgr T.B.
"rthompson" a écrit dans le message de news: %23biu$
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift enfoncé) Un click droit, choisir "Format Control" Choisir une dimension Et puis tant qu'ils sont sélectionnés Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" a écrit dans le message de news:
bonjour Michel,
voici un exemple,
Sub Macro1() For Each bt In ActiveSheet.OLEObjects x = x + 50 With bt .Left = 10 .Width = 80 .Height = 40 .Top = x End With Next End Sub
isabelle
Michel a écrit :
Bonjour, (Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et soit tous alignés sur la vertical, c'est possible ?
Merci
M.
bonjour le trio québéco-anglo-belge :-)
sauf que monsieur michel, il a dit, rex mon fils :
"Je cherche un moyen automatique"
Mgr T.B.
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: %23biu$vEbKHA.2184@TK2MSFTNGP04.phx.gbl...
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift
enfoncé)
Un click droit, choisir "Format Control"
Choisir une dimension
Et puis tant qu'ils sont sélectionnés
Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" <i@v> a écrit dans le message de news:
eXR7TiDbKHA.5728@TK2MSFTNGP02.phx.gbl...
bonjour Michel,
voici un exemple,
Sub Macro1()
For Each bt In ActiveSheet.OLEObjects
x = x + 50
With bt
.Left = 10
.Width = 80
.Height = 40
.Top = x
End With
Next
End Sub
isabelle
Michel a écrit :
Bonjour,
(Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et
soit tous alignés sur la vertical, c'est possible ?
sauf que monsieur michel, il a dit, rex mon fils : "Je cherche un moyen automatique"
Mgr T.B.
"rthompson" a écrit dans le message de news: %23biu$
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift enfoncé) Un click droit, choisir "Format Control" Choisir une dimension Et puis tant qu'ils sont sélectionnés Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" a écrit dans le message de news:
bonjour Michel,
voici un exemple,
Sub Macro1() For Each bt In ActiveSheet.OLEObjects x = x + 50 With bt .Left = 10 .Width = 80 .Height = 40 .Top = x End With Next End Sub
isabelle
Michel a écrit :
Bonjour, (Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et soit tous alignés sur la vertical, c'est possible ?
Merci
M.
rthompson
ZUT !!!!!
Je ferais mieux soit de lire, soit de me taire
Dans ce cas ci, il ne me reste plus qu'à me confesser
Bénissez-moi, Monseigneur parce que j'ai pêché
Une belle truite arc-en-ciel que je vais me farcir en papillote
A plus tard et bonne appétit
Rex
"Mgr T. Banni" a écrit dans le message de news:
bonjour le trio québéco-anglo-belge :-)
sauf que monsieur michel, il a dit, rex mon fils : "Je cherche un moyen automatique"
Mgr T.B.
"rthompson" a écrit dans le message de news: %23biu$
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift enfoncé) Un click droit, choisir "Format Control" Choisir une dimension Et puis tant qu'ils sont sélectionnés Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" a écrit dans le message de news:
bonjour Michel,
voici un exemple,
Sub Macro1() For Each bt In ActiveSheet.OLEObjects x = x + 50 With bt .Left = 10 .Width = 80 .Height = 40 .Top = x End With Next End Sub
isabelle
Michel a écrit :
Bonjour, (Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et soit tous alignés sur la vertical, c'est possible ?
Merci
M.
ZUT !!!!!
Je ferais mieux soit de lire, soit de me taire
Dans ce cas ci, il ne me reste plus qu'à me confesser
Bénissez-moi, Monseigneur parce que j'ai pêché
Une belle truite arc-en-ciel que je vais me farcir en papillote
A plus tard et bonne appétit
Rex
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de news:
O2guQTFbKHA.1592@TK2MSFTNGP06.phx.gbl...
bonjour le trio québéco-anglo-belge :-)
sauf que monsieur michel, il a dit, rex mon fils :
"Je cherche un moyen automatique"
Mgr T.B.
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: %23biu$vEbKHA.2184@TK2MSFTNGP04.phx.gbl...
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift
enfoncé)
Un click droit, choisir "Format Control"
Choisir une dimension
Et puis tant qu'ils sont sélectionnés
Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" <i@v> a écrit dans le message de news:
eXR7TiDbKHA.5728@TK2MSFTNGP02.phx.gbl...
bonjour Michel,
voici un exemple,
Sub Macro1()
For Each bt In ActiveSheet.OLEObjects
x = x + 50
With bt
.Left = 10
.Width = 80
.Height = 40
.Top = x
End With
Next
End Sub
isabelle
Michel a écrit :
Bonjour,
(Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille
et soit tous alignés sur la vertical, c'est possible ?
Dans ce cas ci, il ne me reste plus qu'à me confesser
Bénissez-moi, Monseigneur parce que j'ai pêché
Une belle truite arc-en-ciel que je vais me farcir en papillote
A plus tard et bonne appétit
Rex
"Mgr T. Banni" a écrit dans le message de news:
bonjour le trio québéco-anglo-belge :-)
sauf que monsieur michel, il a dit, rex mon fils : "Je cherche un moyen automatique"
Mgr T.B.
"rthompson" a écrit dans le message de news: %23biu$
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift enfoncé) Un click droit, choisir "Format Control" Choisir une dimension Et puis tant qu'ils sont sélectionnés Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" a écrit dans le message de news:
bonjour Michel,
voici un exemple,
Sub Macro1() For Each bt In ActiveSheet.OLEObjects x = x + 50 With bt .Left = 10 .Width = 80 .Height = 40 .Top = x End With Next End Sub
isabelle
Michel a écrit :
Bonjour, (Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et soit tous alignés sur la vertical, c'est possible ?
Merci
M.
isabelle
Mmmm sur un lit d'amandes au beurre c'est délicieux, à quel heure le repas sera prêt ? ;-) isabelle
rthompson a écrit :
ZUT !!!!!
Je ferais mieux soit de lire, soit de me taire
Dans ce cas ci, il ne me reste plus qu'à me confesser
Bénissez-moi, Monseigneur parce que j'ai pêché
Une belle truite arc-en-ciel que je vais me farcir en papillote
A plus tard et bonne appétit
Rex
"Mgr T. Banni" a écrit dans le message de news:
bonjour le trio québéco-anglo-belge :-)
sauf que monsieur michel, il a dit, rex mon fils : "Je cherche un moyen automatique"
Mgr T.B.
"rthompson" a écrit dans le message de news: %23biu$
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift enfoncé) Un click droit, choisir "Format Control" Choisir une dimension Et puis tant qu'ils sont sélectionnés Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" a écrit dans le message de news:
bonjour Michel,
voici un exemple,
Sub Macro1() For Each bt In ActiveSheet.OLEObjects x = x + 50 With bt .Left = 10 .Width = 80 .Height = 40 .Top = x End With Next End Sub
isabelle
Michel a écrit :
Bonjour, (Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et soit tous alignés sur la vertical, c'est possible ?
Merci
M.
Mmmm sur un lit d'amandes au beurre c'est délicieux,
à quel heure le repas sera prêt ? ;-)
isabelle
rthompson a écrit :
ZUT !!!!!
Je ferais mieux soit de lire, soit de me taire
Dans ce cas ci, il ne me reste plus qu'à me confesser
Bénissez-moi, Monseigneur parce que j'ai pêché
Une belle truite arc-en-ciel que je vais me farcir en papillote
A plus tard et bonne appétit
Rex
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de news:
O2guQTFbKHA.1592@TK2MSFTNGP06.phx.gbl...
bonjour le trio québéco-anglo-belge :-)
sauf que monsieur michel, il a dit, rex mon fils :
"Je cherche un moyen automatique"
Mgr T.B.
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: %23biu$vEbKHA.2184@TK2MSFTNGP04.phx.gbl...
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift
enfoncé)
Un click droit, choisir "Format Control"
Choisir une dimension
Et puis tant qu'ils sont sélectionnés
Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" <i@v> a écrit dans le message de news:
eXR7TiDbKHA.5728@TK2MSFTNGP02.phx.gbl...
bonjour Michel,
voici un exemple,
Sub Macro1()
For Each bt In ActiveSheet.OLEObjects
x = x + 50
With bt
.Left = 10
.Width = 80
.Height = 40
.Top = x
End With
Next
End Sub
isabelle
Michel a écrit :
Bonjour,
(Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille
et soit tous alignés sur la vertical, c'est possible ?
Mmmm sur un lit d'amandes au beurre c'est délicieux, à quel heure le repas sera prêt ? ;-) isabelle
rthompson a écrit :
ZUT !!!!!
Je ferais mieux soit de lire, soit de me taire
Dans ce cas ci, il ne me reste plus qu'à me confesser
Bénissez-moi, Monseigneur parce que j'ai pêché
Une belle truite arc-en-ciel que je vais me farcir en papillote
A plus tard et bonne appétit
Rex
"Mgr T. Banni" a écrit dans le message de news:
bonjour le trio québéco-anglo-belge :-)
sauf que monsieur michel, il a dit, rex mon fils : "Je cherche un moyen automatique"
Mgr T.B.
"rthompson" a écrit dans le message de news: %23biu$
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift enfoncé) Un click droit, choisir "Format Control" Choisir une dimension Et puis tant qu'ils sont sélectionnés Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" a écrit dans le message de news:
bonjour Michel,
voici un exemple,
Sub Macro1() For Each bt In ActiveSheet.OLEObjects x = x + 50 With bt .Left = 10 .Width = 80 .Height = 40 .Top = x End With Next End Sub
isabelle
Michel a écrit :
Bonjour, (Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et soit tous alignés sur la vertical, c'est possible ?
Merci
M.
rthompson
Trop tard
La prochaine fois que je fais quelque chose de beau Je t'enverrai des photos :-))))
Bonne nuit, enfin bonne soirée pour toi
Rex
"isabelle" a écrit dans le message de news: %
Mmmm sur un lit d'amandes au beurre c'est délicieux, à quel heure le repas sera prêt ? ;-) isabelle
rthompson a écrit :
ZUT !!!!!
Je ferais mieux soit de lire, soit de me taire
Dans ce cas ci, il ne me reste plus qu'à me confesser
Bénissez-moi, Monseigneur parce que j'ai pêché
Une belle truite arc-en-ciel que je vais me farcir en papillote
A plus tard et bonne appétit
Rex
"Mgr T. Banni" a écrit dans le message de news:
bonjour le trio québéco-anglo-belge :-)
sauf que monsieur michel, il a dit, rex mon fils : "Je cherche un moyen automatique"
Mgr T.B.
"rthompson" a écrit dans le message de news: %23biu$
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift enfoncé) Un click droit, choisir "Format Control" Choisir une dimension Et puis tant qu'ils sont sélectionnés Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" a écrit dans le message de news:
bonjour Michel,
voici un exemple,
Sub Macro1() For Each bt In ActiveSheet.OLEObjects x = x + 50 With bt .Left = 10 .Width = 80 .Height = 40 .Top = x End With Next End Sub
isabelle
Michel a écrit :
Bonjour, (Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et soit tous alignés sur la vertical, c'est possible ?
Merci
M.
Trop tard
La prochaine fois que je fais quelque chose de beau
Je t'enverrai des photos :-))))
Bonne nuit, enfin bonne soirée pour toi
Rex
"isabelle" <i@v> a écrit dans le message de news:
%23PjC1XIbKHA.1028@TK2MSFTNGP06.phx.gbl...
Mmmm sur un lit d'amandes au beurre c'est délicieux,
à quel heure le repas sera prêt ? ;-)
isabelle
rthompson a écrit :
ZUT !!!!!
Je ferais mieux soit de lire, soit de me taire
Dans ce cas ci, il ne me reste plus qu'à me confesser
Bénissez-moi, Monseigneur parce que j'ai pêché
Une belle truite arc-en-ciel que je vais me farcir en papillote
A plus tard et bonne appétit
Rex
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de news:
O2guQTFbKHA.1592@TK2MSFTNGP06.phx.gbl...
bonjour le trio québéco-anglo-belge :-)
sauf que monsieur michel, il a dit, rex mon fils :
"Je cherche un moyen automatique"
Mgr T.B.
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message
de news: %23biu$vEbKHA.2184@TK2MSFTNGP04.phx.gbl...
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift
enfoncé)
Un click droit, choisir "Format Control"
Choisir une dimension
Et puis tant qu'ils sont sélectionnés
Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" <i@v> a écrit dans le message de news:
eXR7TiDbKHA.5728@TK2MSFTNGP02.phx.gbl...
bonjour Michel,
voici un exemple,
Sub Macro1()
For Each bt In ActiveSheet.OLEObjects
x = x + 50
With bt
.Left = 10
.Width = 80
.Height = 40
.Top = x
End With
Next
End Sub
isabelle
Michel a écrit :
Bonjour,
(Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille
et soit tous alignés sur la vertical, c'est possible ?
La prochaine fois que je fais quelque chose de beau Je t'enverrai des photos :-))))
Bonne nuit, enfin bonne soirée pour toi
Rex
"isabelle" a écrit dans le message de news: %
Mmmm sur un lit d'amandes au beurre c'est délicieux, à quel heure le repas sera prêt ? ;-) isabelle
rthompson a écrit :
ZUT !!!!!
Je ferais mieux soit de lire, soit de me taire
Dans ce cas ci, il ne me reste plus qu'à me confesser
Bénissez-moi, Monseigneur parce que j'ai pêché
Une belle truite arc-en-ciel que je vais me farcir en papillote
A plus tard et bonne appétit
Rex
"Mgr T. Banni" a écrit dans le message de news:
bonjour le trio québéco-anglo-belge :-)
sauf que monsieur michel, il a dit, rex mon fils : "Je cherche un moyen automatique"
Mgr T.B.
"rthompson" a écrit dans le message de news: %23biu$
Bonjour Isabelle
Au risque de te contredire (J'ose quand même, hein? :-)))))))
Je crois que le plus facile est de les sélectionner tous (tenir Shift enfoncé) Un click droit, choisir "Format Control" Choisir une dimension Et puis tant qu'ils sont sélectionnés Sur la barre de dessin choisir alignement
Et voilà le travail
A bientôt
Rex
"isabelle" a écrit dans le message de news:
bonjour Michel,
voici un exemple,
Sub Macro1() For Each bt In ActiveSheet.OLEObjects x = x + 50 With bt .Left = 10 .Width = 80 .Height = 40 .Top = x End With Next End Sub
isabelle
Michel a écrit :
Bonjour, (Excel 2007)
Sur une feuille j'ai des boutons de controles
Je cherche un moyen automatique pour qu'ils aient tous la même taille et soit tous alignés sur la vertical, c'est possible ?