Est-il possible par macro de faire en sorte que les différents contrôle
de formulaire d'une feuille
est tous la même dimensions et soient alignés verticalement ?
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
isabelle
bonjour,
voici une exemple pour aligner des Boutons
x = 10 'Top du 1er bouton For Each shp In ActiveSheet.Shapes nm = shp.Name If Left(nm, 6) = "Button" Then With shp .Top = x .Left = 5 .Width = 60 .Height = 20 End With x = x + 30 End If Next
isabelle
Le 2015-05-22 13:20, Brat'ac a écrit :
Bonjour,
Est-il possible par macro de faire en sorte que les différents contrôle de formulaire d'une feuille est tous la même dimensions et soient alignés verticalement ?
Merci de vos lumières.
bonjour,
voici une exemple pour aligner des Boutons
x = 10 'Top du 1er bouton
For Each shp In ActiveSheet.Shapes
nm = shp.Name
If Left(nm, 6) = "Button" Then
With shp
.Top = x
.Left = 5
.Width = 60
.Height = 20
End With
x = x + 30
End If
Next
isabelle
Le 2015-05-22 13:20, Brat'ac a écrit :
Bonjour,
Est-il possible par macro de faire en sorte que les différents contrôle de
formulaire d'une feuille
est tous la même dimensions et soient alignés verticalement ?
x = 10 'Top du 1er bouton For Each shp In ActiveSheet.Shapes nm = shp.Name If Left(nm, 6) = "Button" Then With shp .Top = x .Left = 5 .Width = 60 .Height = 20 End With x = x + 30 End If Next
isabelle
Le 2015-05-22 13:20, Brat'ac a écrit :
Bonjour,
Est-il possible par macro de faire en sorte que les différents contrôle de formulaire d'une feuille est tous la même dimensions et soient alignés verticalement ?
Merci de vos lumières.
Brat'ac
isabelle a présenté l'énoncé suivant :
Avec du retard, mais tard ........
Merci.
bonjour,
voici une exemple pour aligner des Boutons
x = 10 'Top du 1er bouton For Each shp In ActiveSheet.Shapes nm = shp.Name If Left(nm, 6) = "Button" Then With shp .Top = x .Left = 5 .Width = 60 .Height = 20 End With x = x + 30 End If Next
isabelle
Le 2015-05-22 13:20, Brat'ac a écrit :
Bonjour,
Est-il possible par macro de faire en sorte que les différents contrôle de formulaire d'une feuille est tous la même dimensions et soient alignés verticalement ?
Merci de vos lumières.
isabelle a présenté l'énoncé suivant :
Avec du retard, mais tard ........
Merci.
bonjour,
voici une exemple pour aligner des Boutons
x = 10 'Top du 1er bouton
For Each shp In ActiveSheet.Shapes
nm = shp.Name
If Left(nm, 6) = "Button" Then
With shp
.Top = x
.Left = 5
.Width = 60
.Height = 20
End With
x = x + 30
End If
Next
isabelle
Le 2015-05-22 13:20, Brat'ac a écrit :
Bonjour,
Est-il possible par macro de faire en sorte que les différents contrôle de
formulaire d'une feuille
est tous la même dimensions et soient alignés verticalement ?
x = 10 'Top du 1er bouton For Each shp In ActiveSheet.Shapes nm = shp.Name If Left(nm, 6) = "Button" Then With shp .Top = x .Left = 5 .Width = 60 .Height = 20 End With x = x + 30 End If Next
isabelle
Le 2015-05-22 13:20, Brat'ac a écrit :
Bonjour,
Est-il possible par macro de faire en sorte que les différents contrôle de formulaire d'une feuille est tous la même dimensions et soient alignés verticalement ?
