[vba-excel] écriture procédure correcte ?
Résolu/Fermé
anyah
Messages postés
58
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
28 décembre 2008
-
9 sept. 2008 à 10:51
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 9 sept. 2008 à 11:53
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 9 sept. 2008 à 11:53
A voir également:
- [vba-excel] écriture procédure correcte ?
- Liste déroulante excel - Guide
- Écriture facebook - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Écriture miroir - Guide
7 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
9 sept. 2008 à 11:05
9 sept. 2008 à 11:05
Bonjour,
Cette procédure semble correcte. Tu affectes des valeurs aux propriétés de ton bouton à l'ouverture de ta UserForm, si c'est ce que tu veux faire. Tu peux faire la même chose pour tout autre objet.
;o)
Cette procédure semble correcte. Tu affectes des valeurs aux propriétés de ton bouton à l'ouverture de ta UserForm, si c'est ce que tu veux faire. Tu peux faire la même chose pour tout autre objet.
;o)
anyah
Messages postés
58
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
28 décembre 2008
6
9 sept. 2008 à 11:11
9 sept. 2008 à 11:11
merci d'avoir répondu
est ce que par exemple pour 2 boutons je fais:
Private Sub UserForm_initialize()
With CB_back
.Font.Bold = True
.Font.Size = 10
End With
With CB_ok
.Font.Bold = True
.Font.Size = 10
End With
End Sub
ou 2 procédure séparée?
autre question : pourquoi quelquefois ca marche en ecrivant juste
sub...
with CB_back
...
end with
end sub
et d'autre fois il faut que j'ecrive ceci ?
sub...
with ActivSheet.CB_back
...
end with
end sub
est ce que par exemple pour 2 boutons je fais:
Private Sub UserForm_initialize()
With CB_back
.Font.Bold = True
.Font.Size = 10
End With
With CB_ok
.Font.Bold = True
.Font.Size = 10
End With
End Sub
ou 2 procédure séparée?
autre question : pourquoi quelquefois ca marche en ecrivant juste
sub...
with CB_back
...
end with
end sub
et d'autre fois il faut que j'ecrive ceci ?
sub...
with ActivSheet.CB_back
...
end with
end sub
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
9 sept. 2008 à 11:17
9 sept. 2008 à 11:17
Tout dépend a quel moment il faut attribuer ces valeurs aux boutons. Il est préférable d'écrire une procédure pour chaque bouton et ensuite de faire appel à ces procédures pour changer les valeurs lorsque l'on le souhaite. C'est une question de clarté dans le code et une facilité pour les manipuler.
;o)
;o)
anyah
Messages postés
58
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
28 décembre 2008
6
9 sept. 2008 à 11:24
9 sept. 2008 à 11:24
en fait je les appelerai jamais ces procédures j'en ai une seule par feuille et je l'utilise qu'une fois pour mettre en forme mes boutons je ne les utiliserai jamais dans une autre procédure
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
9 sept. 2008 à 11:37
9 sept. 2008 à 11:37
Oui, toi peut être, mais quelqu'un d'autre dans le futur voudra peut être modifier les caractéristiques, ça sera plus simple de modifier les valeurs en faisant un appel à ces procédures, plutôt que de chercher dans tout le code où se trouve les modifications.
C'est juste un conseil. Comme tu l'as fait la première dans UserForm_Initialize, ça fonctionne très bien.
;o)
C'est juste un conseil. Comme tu l'as fait la première dans UserForm_Initialize, ça fonctionne très bien.
;o)
anyah
Messages postés
58
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
28 décembre 2008
6
9 sept. 2008 à 11:50
9 sept. 2008 à 11:50
ah d'accord merci pour le conseil je vais faire comme ca ;)
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
9 sept. 2008 à 11:53
9 sept. 2008 à 11:53
De rien,
Bonne continuation
;o)
Polux
Bonne continuation
;o)
Polux