[vba-excel] écriture procédure correcte ?
Résolu
anyah
Messages postés
58
Date d'inscription
Statut
Membre
Dernière intervention
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'aurai voulu savoir si cette procédure était correcte, je veux en faite modifier la mise en forme d'un bouton déja créé sur ma feuille excel
est ce qu'il serait préférable de marquer CB_back_initialize à la place de userform_initialize?
et est ce que je peux modifier plusieurs boutons dans cette même procédure?
Private Sub UserForm_initialize()
With ActiveSheet.CB_back
.Font.Bold = True
.Font.Size = 10
End With
End Sub
meri d'avance à ceux qui répondront :)
j'aurai voulu savoir si cette procédure était correcte, je veux en faite modifier la mise en forme d'un bouton déja créé sur ma feuille excel
est ce qu'il serait préférable de marquer CB_back_initialize à la place de userform_initialize?
et est ce que je peux modifier plusieurs boutons dans cette même procédure?
Private Sub UserForm_initialize()
With ActiveSheet.CB_back
.Font.Bold = True
.Font.Size = 10
End With
End Sub
meri d'avance à ceux qui répondront :)
A voir également:
- [vba-excel] écriture procédure correcte ?
- Liste déroulante excel - Guide
- Écriture facebook - Guide
- Word et excel gratuit - Guide
- Ecriture en gras - Guide
- Déplacer colonne excel - Guide
7 réponses
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)
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
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)
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
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)