c = "CommandButton"
f = "ActiveSheet."
cb = f & c & i
bonjour
sur une page j'ai plusieurs boutons auxquels je veux des l'ouverture(
workbook_open ) donner leur valeurs height, width et top.
seulement le code suivant me renvoit une erreur 424 je ne vois pas ...
Merci de m'aider
Lionel
Sub stdbut()
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
cb = f & c & i
cb.Width = 81.75
cb.Height = 23.25
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or i22 Then cb.Top = 196.5
......
next
c = "CommandButton"
f = "ActiveSheet."
cb = f & c & i
bonjour
sur une page j'ai plusieurs boutons auxquels je veux des l'ouverture(
workbook_open ) donner leur valeurs height, width et top.
seulement le code suivant me renvoit une erreur 424 je ne vois pas ...
Merci de m'aider
Lionel
Sub stdbut()
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
cb = f & c & i
cb.Width = 81.75
cb.Height = 23.25
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or i
22 Then cb.Top = 196.5
......
next
c = "CommandButton"
f = "ActiveSheet."
cb = f & c & i
bonjour
sur une page j'ai plusieurs boutons auxquels je veux des l'ouverture(
workbook_open ) donner leur valeurs height, width et top.
seulement le code suivant me renvoit une erreur 424 je ne vois pas ...
Merci de m'aider
Lionel
Sub stdbut()
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
cb = f & c & i
cb.Width = 81.75
cb.Height = 23.25
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or i22 Then cb.Top = 196.5
......
next
bonjour
sur une page j'ai plusieurs boutons auxquels je veux des l'ouverture(
workbook_open ) donner leur valeurs height, width et top.
seulement le code suivant me renvoit une erreur 424 je ne vois pas ...
Merci de m'aider
Lionel
Sub stdbut()
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
cb = f & c & i
cb.Width = 81.75
cb.Height = 23.25
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or i22 Then cb.Top = 196.5
......
next
bonjour
sur une page j'ai plusieurs boutons auxquels je veux des l'ouverture(
workbook_open ) donner leur valeurs height, width et top.
seulement le code suivant me renvoit une erreur 424 je ne vois pas ...
Merci de m'aider
Lionel
Sub stdbut()
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
cb = f & c & i
cb.Width = 81.75
cb.Height = 23.25
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or i
22 Then cb.Top = 196.5
......
next
bonjour
sur une page j'ai plusieurs boutons auxquels je veux des l'ouverture(
workbook_open ) donner leur valeurs height, width et top.
seulement le code suivant me renvoit une erreur 424 je ne vois pas ...
Merci de m'aider
Lionel
Sub stdbut()
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
cb = f & c & i
cb.Width = 81.75
cb.Height = 23.25
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or i22 Then cb.Top = 196.5
......
next
Bonjour.
Remplace :
cb = f & c & i
par :
Set cb = ActiveSheet.Shapes(c & i)
Cordialement.
Daniel
"Lionel" a écrit dans le message de news:
4634919f$0$27387$bonjour
sur une page j'ai plusieurs boutons auxquels je veux des l'ouverture(
workbook_open ) donner leur valeurs height, width et top.
seulement le code suivant me renvoit une erreur 424 je ne vois pas ...
Merci de m'aider
Lionel
Sub stdbut()
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
cb = f & c & i
cb.Width = 81.75
cb.Height = 23.25
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or
i
22 Then cb.Top = 196.5
......
next
Bonjour.
Remplace :
cb = f & c & i
par :
Set cb = ActiveSheet.Shapes(c & i)
Cordialement.
Daniel
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
4634919f$0$27387$ba4acef3@news.orange.fr...
bonjour
sur une page j'ai plusieurs boutons auxquels je veux des l'ouverture(
workbook_open ) donner leur valeurs height, width et top.
seulement le code suivant me renvoit une erreur 424 je ne vois pas ...
Merci de m'aider
Lionel
Sub stdbut()
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
cb = f & c & i
cb.Width = 81.75
cb.Height = 23.25
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or
i
22 Then cb.Top = 196.5
......
next
Bonjour.
Remplace :
cb = f & c & i
par :
Set cb = ActiveSheet.Shapes(c & i)
Cordialement.
Daniel
"Lionel" a écrit dans le message de news:
4634919f$0$27387$bonjour
sur une page j'ai plusieurs boutons auxquels je veux des l'ouverture(
workbook_open ) donner leur valeurs height, width et top.
seulement le code suivant me renvoit une erreur 424 je ne vois pas ...
Merci de m'aider
Lionel
Sub stdbut()
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
cb = f & c & i
cb.Width = 81.75
cb.Height = 23.25
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or
i
22 Then cb.Top = 196.5
......
next
Rebonsoir
Ca ne fonctionne pas ...
il y a 42 boutons 7colonnes de 6 lignes
le but est de les aligner en leur donnant une dimension similaire...
voici donc tout mon code peut etre y verrez vous un peu plus clair
Sub stdbut()
Dim cb As Object
Sheets("Accueil").Activate
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
Set cb = ActiveSheet.Shapes(c & i)
With cb.Name
.Width = 81.75
.Height = 23.25
End With
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or i22 Then cb.Top = 196.5
If i > 22 And i < 30 Then cb.Top = 218.25
If i > 29 And i < 37 Then cb.Top = 240
If i > 36 And i < 44 Then cb.Top = 261.75
If i > 43 And i < 51 Then cb.Top = 283.5
If i > 50 And i < 58 Then cb.Top = 306
If i = 4 Or i = 23 Or i = 30 Or i = 37 Or i = 44 Or i = 51 Then cb.Left > 120.75
If i = 15 Or i = 24 Or i = 31 Or i = 38 Or i = 45 Or i = 52 Then cb.Left > 201
If i = 16 Or i = 25 Or i = 32 Or i = 39 Or i = 46 Or i = 53 Then cb.Left > 282
If i = 17 Or i = 26 Or i = 33 Or i = 40 Or i = 47 Or i = 54 Then cb.Left > 363
If i = 18 Or i = 27 Or i = 34 Or i = 41 Or i = 48 Or i = 55 Then cb.Left > 444
fin:
Next
End Sub
"Daniel" a écrit dans le message de news:Bonjour.
Remplace :
cb = f & c & i
par :
Set cb = ActiveSheet.Shapes(c & i)
Cordialement.
Daniel
"Lionel" a écrit dans le message de news:
4634919f$0$27387$bonjour
sur une page j'ai plusieurs boutons auxquels je veux des l'ouverture(
workbook_open ) donner leur valeurs height, width et top.
seulement le code suivant me renvoit une erreur 424 je ne vois pas ...
Merci de m'aider
Lionel
Sub stdbut()
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
cb = f & c & i
cb.Width = 81.75
cb.Height = 23.25
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or
i22 Then cb.Top = 196.5
......
next
Rebonsoir
Ca ne fonctionne pas ...
il y a 42 boutons 7colonnes de 6 lignes
le but est de les aligner en leur donnant une dimension similaire...
voici donc tout mon code peut etre y verrez vous un peu plus clair
Sub stdbut()
Dim cb As Object
Sheets("Accueil").Activate
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
Set cb = ActiveSheet.Shapes(c & i)
With cb.Name
.Width = 81.75
.Height = 23.25
End With
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or i
22 Then cb.Top = 196.5
If i > 22 And i < 30 Then cb.Top = 218.25
If i > 29 And i < 37 Then cb.Top = 240
If i > 36 And i < 44 Then cb.Top = 261.75
If i > 43 And i < 51 Then cb.Top = 283.5
If i > 50 And i < 58 Then cb.Top = 306
If i = 4 Or i = 23 Or i = 30 Or i = 37 Or i = 44 Or i = 51 Then cb.Left > 120.75
If i = 15 Or i = 24 Or i = 31 Or i = 38 Or i = 45 Or i = 52 Then cb.Left > 201
If i = 16 Or i = 25 Or i = 32 Or i = 39 Or i = 46 Or i = 53 Then cb.Left > 282
If i = 17 Or i = 26 Or i = 33 Or i = 40 Or i = 47 Or i = 54 Then cb.Left > 363
If i = 18 Or i = 27 Or i = 34 Or i = 41 Or i = 48 Or i = 55 Then cb.Left > 444
fin:
Next
End Sub
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eY1wDimiHHA.596@TK2MSFTNGP06.phx.gbl...
Bonjour.
Remplace :
cb = f & c & i
par :
Set cb = ActiveSheet.Shapes(c & i)
Cordialement.
Daniel
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
4634919f$0$27387$ba4acef3@news.orange.fr...
bonjour
sur une page j'ai plusieurs boutons auxquels je veux des l'ouverture(
workbook_open ) donner leur valeurs height, width et top.
seulement le code suivant me renvoit une erreur 424 je ne vois pas ...
Merci de m'aider
Lionel
Sub stdbut()
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
cb = f & c & i
cb.Width = 81.75
cb.Height = 23.25
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or
i
22 Then cb.Top = 196.5
......
next
Rebonsoir
Ca ne fonctionne pas ...
il y a 42 boutons 7colonnes de 6 lignes
le but est de les aligner en leur donnant une dimension similaire...
voici donc tout mon code peut etre y verrez vous un peu plus clair
Sub stdbut()
Dim cb As Object
Sheets("Accueil").Activate
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
Set cb = ActiveSheet.Shapes(c & i)
With cb.Name
.Width = 81.75
.Height = 23.25
End With
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or i22 Then cb.Top = 196.5
If i > 22 And i < 30 Then cb.Top = 218.25
If i > 29 And i < 37 Then cb.Top = 240
If i > 36 And i < 44 Then cb.Top = 261.75
If i > 43 And i < 51 Then cb.Top = 283.5
If i > 50 And i < 58 Then cb.Top = 306
If i = 4 Or i = 23 Or i = 30 Or i = 37 Or i = 44 Or i = 51 Then cb.Left > 120.75
If i = 15 Or i = 24 Or i = 31 Or i = 38 Or i = 45 Or i = 52 Then cb.Left > 201
If i = 16 Or i = 25 Or i = 32 Or i = 39 Or i = 46 Or i = 53 Then cb.Left > 282
If i = 17 Or i = 26 Or i = 33 Or i = 40 Or i = 47 Or i = 54 Then cb.Left > 363
If i = 18 Or i = 27 Or i = 34 Or i = 41 Or i = 48 Or i = 55 Then cb.Left > 444
fin:
Next
End Sub
"Daniel" a écrit dans le message de news:Bonjour.
Remplace :
cb = f & c & i
par :
Set cb = ActiveSheet.Shapes(c & i)
Cordialement.
Daniel
"Lionel" a écrit dans le message de news:
4634919f$0$27387$bonjour
sur une page j'ai plusieurs boutons auxquels je veux des l'ouverture(
workbook_open ) donner leur valeurs height, width et top.
seulement le code suivant me renvoit une erreur 424 je ne vois pas ...
Merci de m'aider
Lionel
Sub stdbut()
c = "CommandButton"
f = "ActiveSheet."
For i = 4 To 57
If i < 4 And i < 15 Then GoTo fin:
If i = 19 Then GoTo fin:
If i = 21 Then GoTo fin:
cb = f & c & i
cb.Width = 81.75
cb.Height = 23.25
If i = 4 Or i = 15 Or i = 16 Or i = 17 Or i = 18 Or i = 19 Or i = 20 Or
i22 Then cb.Top = 196.5
......
next