Si tu ne prends pas le temps de dire où tu écris ton code
a) module du formulaire ou dans un module standard
b) les noms de tes objets représente quoi ?
il est plus hasardeux d'écrire du code ...
With ActiveSheet
Caption = "Mois de " & .Name
TextBox1 = .Name
titre = .Name
SoldeEpargne.Value = .Range("T301") & " "
SoldeEnzo.Value = .Range("T307") & " "
SoldeManon.Value = .Range("T313") & " "
End With
Pourquoi utiliser 2 variables pour la même chose ?
TextBox1 = .Name
titre = .Name
Le fait d'ajouter le symbole "" ceci signifie que si tu dois
récupérer la valeur des contrôles pour des opérations
mathématiques, tu devras te défaire de ces symboles.
"magic-dd" a écrit dans le message de groupe de d iscussion :
bonsoir à tous
dans le but d'alleger et d'ameliorer mon programme de compte, j'ai un
userform avec 12 label correspondant aux mois de l'année.
comment peut on simplifier cela car dans chaque label nous retrouvons
ce code commun qui est
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" "
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
"
valide_soldes
COLORIE
Call plus
voici donc un bout de code pour 2 labels
Private Sub Label2_Click()
Sheets("FEVRIER").Select
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" "
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
"
valide_soldes
COLORIE
Call plus
End Sub
Private Sub Label3_Click()
Sheets("AVRIL").Select
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" "
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
"
valide_soldes
COLORIE
Call plus
End Sub
merci pour l'aide
Si tu ne prends pas le temps de dire où tu écris ton code
a) module du formulaire ou dans un module standard
b) les noms de tes objets représente quoi ?
il est plus hasardeux d'écrire du code ...
With ActiveSheet
Caption = "Mois de " & .Name
TextBox1 = .Name
titre = .Name
SoldeEpargne.Value = .Range("T301") & " "
SoldeEnzo.Value = .Range("T307") & " "
SoldeManon.Value = .Range("T313") & " "
End With
Pourquoi utiliser 2 variables pour la même chose ?
TextBox1 = .Name
titre = .Name
Le fait d'ajouter le symbole "" ceci signifie que si tu dois
récupérer la valeur des contrôles pour des opérations
mathématiques, tu devras te défaire de ces symboles.
"magic-dd" <ciolan...@gmail.com> a écrit dans le message de groupe de d iscussion :
7fd867aa-3a7d-4504-b8b2-f40813591...@r10g2000prf.googlegroups.com...
bonsoir à tous
dans le but d'alleger et d'ameliorer mon programme de compte, j'ai un
userform avec 12 label correspondant aux mois de l'année.
comment peut on simplifier cela car dans chaque label nous retrouvons
ce code commun qui est
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" "
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
"
valide_soldes
COLORIE
Call plus
voici donc un bout de code pour 2 labels
Private Sub Label2_Click()
Sheets("FEVRIER").Select
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" "
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
"
valide_soldes
COLORIE
Call plus
End Sub
Private Sub Label3_Click()
Sheets("AVRIL").Select
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" "
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
"
valide_soldes
COLORIE
Call plus
End Sub
merci pour l'aide
Si tu ne prends pas le temps de dire où tu écris ton code
a) module du formulaire ou dans un module standard
b) les noms de tes objets représente quoi ?
il est plus hasardeux d'écrire du code ...
With ActiveSheet
Caption = "Mois de " & .Name
TextBox1 = .Name
titre = .Name
SoldeEpargne.Value = .Range("T301") & " "
SoldeEnzo.Value = .Range("T307") & " "
SoldeManon.Value = .Range("T313") & " "
End With
Pourquoi utiliser 2 variables pour la même chose ?
TextBox1 = .Name
titre = .Name
Le fait d'ajouter le symbole "" ceci signifie que si tu dois
récupérer la valeur des contrôles pour des opérations
mathématiques, tu devras te défaire de ces symboles.
"magic-dd" a écrit dans le message de groupe de d iscussion :
bonsoir à tous
dans le but d'alleger et d'ameliorer mon programme de compte, j'ai un
userform avec 12 label correspondant aux mois de l'année.
comment peut on simplifier cela car dans chaque label nous retrouvons
ce code commun qui est
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" "
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
"
valide_soldes
COLORIE
Call plus
voici donc un bout de code pour 2 labels
Private Sub Label2_Click()
Sheets("FEVRIER").Select
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" "
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
"
valide_soldes
COLORIE
Call plus
End Sub
Private Sub Label3_Click()
Sheets("AVRIL").Select
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" "
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
"
valide_soldes
COLORIE
Call plus
End Sub
merci pour l'aide
Si tu ne prends pas le temps de dire où tu écris ton code
a) module du formulaire ou dans un module standard
b) les noms de tes objets représente quoi ?
il est plus hasardeux d'écrire du code ...
With ActiveSheet
Caption = "Mois de " & .Name
TextBox1 = .Name
titre = .Name
SoldeEpargne.Value = .Range("T301") & " €"
SoldeEnzo.Value = .Range("T307") & " € "
SoldeManon.Value = .Range("T313") & " € "
End With
Pourquoi utiliser 2 variables pour la même chose ?
TextBox1 = .Name
titre = .Name
Le fait d'ajouter le symbole "€" ceci signifie que si tu dois
récupérer la valeur des contrôles pour des opérations
mathématiques, tu devras te défaire de ces symboles.
"magic-dd" a écrit dans le message de groupe de discussion :
bonsoir à tous
dans le but d'alleger et d'ameliorer mon programme de compte, j'ai un
userform avec 12 label correspondant aux mois de l'année.
comment peut on simplifier cela car dans chaque label nous retrouvons
ce code commun qui est
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" €"
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
€"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
€"
valide_soldes
COLORIE
Call plus
voici donc un bout de code pour 2 labels
Private Sub Label2_Click()
Sheets("FEVRIER").Select
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" €"
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
€"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
€"
valide_soldes
COLORIE
Call plus
End Sub
Private Sub Label3_Click()
Sheets("AVRIL").Select
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" €"
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
€"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
€"
valide_soldes
COLORIE
Call plus
End Sub
merci pour l'aide
Si tu ne prends pas le temps de dire où tu écris ton code
a) module du formulaire ou dans un module standard
b) les noms de tes objets représente quoi ?
il est plus hasardeux d'écrire du code ...
With ActiveSheet
Caption = "Mois de " & .Name
TextBox1 = .Name
titre = .Name
SoldeEpargne.Value = .Range("T301") & " €"
SoldeEnzo.Value = .Range("T307") & " € "
SoldeManon.Value = .Range("T313") & " € "
End With
Pourquoi utiliser 2 variables pour la même chose ?
TextBox1 = .Name
titre = .Name
Le fait d'ajouter le symbole "€" ceci signifie que si tu dois
récupérer la valeur des contrôles pour des opérations
mathématiques, tu devras te défaire de ces symboles.
"magic-dd" <ciolan...@gmail.com> a écrit dans le message de groupe de discussion :
7fd867aa-3a7d-4504-b8b2-f40813591...@r10g2000prf.googlegroups.com...
bonsoir à tous
dans le but d'alleger et d'ameliorer mon programme de compte, j'ai un
userform avec 12 label correspondant aux mois de l'année.
comment peut on simplifier cela car dans chaque label nous retrouvons
ce code commun qui est
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" €"
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
€"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
€"
valide_soldes
COLORIE
Call plus
voici donc un bout de code pour 2 labels
Private Sub Label2_Click()
Sheets("FEVRIER").Select
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" €"
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
€"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
€"
valide_soldes
COLORIE
Call plus
End Sub
Private Sub Label3_Click()
Sheets("AVRIL").Select
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" €"
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
€"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
€"
valide_soldes
COLORIE
Call plus
End Sub
merci pour l'aide
Si tu ne prends pas le temps de dire où tu écris ton code
a) module du formulaire ou dans un module standard
b) les noms de tes objets représente quoi ?
il est plus hasardeux d'écrire du code ...
With ActiveSheet
Caption = "Mois de " & .Name
TextBox1 = .Name
titre = .Name
SoldeEpargne.Value = .Range("T301") & " €"
SoldeEnzo.Value = .Range("T307") & " € "
SoldeManon.Value = .Range("T313") & " € "
End With
Pourquoi utiliser 2 variables pour la même chose ?
TextBox1 = .Name
titre = .Name
Le fait d'ajouter le symbole "€" ceci signifie que si tu dois
récupérer la valeur des contrôles pour des opérations
mathématiques, tu devras te défaire de ces symboles.
"magic-dd" a écrit dans le message de groupe de discussion :
bonsoir à tous
dans le but d'alleger et d'ameliorer mon programme de compte, j'ai un
userform avec 12 label correspondant aux mois de l'année.
comment peut on simplifier cela car dans chaque label nous retrouvons
ce code commun qui est
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" €"
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
€"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
€"
valide_soldes
COLORIE
Call plus
voici donc un bout de code pour 2 labels
Private Sub Label2_Click()
Sheets("FEVRIER").Select
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" €"
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
€"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
€"
valide_soldes
COLORIE
Call plus
End Sub
Private Sub Label3_Click()
Sheets("AVRIL").Select
FormSaisie.Caption = "Mois de " & ActiveSheet.Name
TextBox1 = ActiveSheet.Name
titre = ActiveSheet.Name
FormSaisie.SoldeEpargne.Value = CStr(ActiveSheet.Range("T301")) +
" €"
FormSaisie.SoldeEnzo.Value = CStr(ActiveSheet.Range("T307")) + "
€"
FormSaisie.SoldeManon.Value = CStr(ActiveSheet.Range("T313")) + "
€"
valide_soldes
COLORIE
Call plus
End Sub
merci pour l'aide
Je t'ai fait un fichier exemple avec module de classe
http://cjoint.com/?ckpkxamccS
Le code dans le formulaire est plus court.. ;-))
Je t'ai fait un fichier exemple avec module de classe
http://cjoint.com/?ckpkxamccS
Le code dans le formulaire est plus court.. ;-))
Je t'ai fait un fichier exemple avec module de classe
http://cjoint.com/?ckpkxamccS
Le code dans le formulaire est plus court.. ;-))
Je t'ai fait un fichier exemple avec module de classe
http://cjoint.com/?ckpkxamccS
Le code dans le formulaire est plus court.. ;-))
Je t'ai fait un fichier exemple avec module de classe
http://cjoint.com/?ckpkxamccS
Le code dans le formulaire est plus court.. ;-))
Je t'ai fait un fichier exemple avec module de classe
http://cjoint.com/?ckpkxamccS
Le code dans le formulaire est plus court.. ;-))
A) D'abord tes contrôles étiquettes ont tous un nom de cette forme :
Label_1, Label_2 ...
B ) Le module "Étiquettes" n'est pas un module standard... en conséqu ence,
tu dois ajouter à ton projet un module de classe
Barre des menus / insertion / module de classe et tu lui donn e le même
nom que dans la projet que je t'ai donné.
C ) Pour le reste, tu peux te contenter de copier le code de chaque modul e
dans un module équivalent dans ton programme.
D ) L'important est de tenter de comprendre comme cela fonctionne.
En résumé :
Le module de classe "Étiquettes", c'est une ""nouvelle classe o bjet"
Cette classe objet n'a qu'un événement de défini : celui à savoir ce
qui se passe lorsque l'on clique sur un contrôle "Étiquette"
Dans le module Standard, la variable TLabel() représente un tab leau (array)
qui va contenir tous les labels de ton projet qui appartient à cette classe.
Pour ce faire, cela se fait à l'aide de la procédure "Initial isation_Classe_TLabel"
Le tableau Tlabel() contiendra 12 objets chacun représentant à la fois un
contrôle "label" de ton formulaire ainsi que le code contenu da ns le module
"Étiquette". Chaque instance de l'objet "étiquette est indé pendant et sera en
mémoire le temps que ton formulaire demeurera charger en m émoire.
E ) Et pour finir, quand tu cliques sur un de tes étiquettes qui est de venu une
instance de la classe étiquette, le code du module de classe "étiquette"
s'exécute. De là , il appelle la procédure
"General_Label(F As FormSaisie, Mois As String)" en passant à cette procédure
2 paramètres : 1) le formulaire dont il provient et 2 ) le mois qu'il représente.
Voilà. Si c'est la première fois que tu touches au module de class e...
ça peut paraître difficile d'accès... mais je t'ai donné un aper çu de ce
que c'était en tentant de simplifier les explications.
Maintenant, à ton tour de t'amuser ! ;-)
A) D'abord tes contrôles étiquettes ont tous un nom de cette forme :
Label_1, Label_2 ...
B ) Le module "Étiquettes" n'est pas un module standard... en conséqu ence,
tu dois ajouter à ton projet un module de classe
Barre des menus / insertion / module de classe et tu lui donn e le même
nom que dans la projet que je t'ai donné.
C ) Pour le reste, tu peux te contenter de copier le code de chaque modul e
dans un module équivalent dans ton programme.
D ) L'important est de tenter de comprendre comme cela fonctionne.
En résumé :
Le module de classe "Étiquettes", c'est une ""nouvelle classe o bjet"
Cette classe objet n'a qu'un événement de défini : celui à savoir ce
qui se passe lorsque l'on clique sur un contrôle "Étiquette"
Dans le module Standard, la variable TLabel() représente un tab leau (array)
qui va contenir tous les labels de ton projet qui appartient à cette classe.
Pour ce faire, cela se fait à l'aide de la procédure "Initial isation_Classe_TLabel"
Le tableau Tlabel() contiendra 12 objets chacun représentant à la fois un
contrôle "label" de ton formulaire ainsi que le code contenu da ns le module
"Étiquette". Chaque instance de l'objet "étiquette est indé pendant et sera en
mémoire le temps que ton formulaire demeurera charger en m émoire.
E ) Et pour finir, quand tu cliques sur un de tes étiquettes qui est de venu une
instance de la classe étiquette, le code du module de classe "étiquette"
s'exécute. De là , il appelle la procédure
"General_Label(F As FormSaisie, Mois As String)" en passant à cette procédure
2 paramètres : 1) le formulaire dont il provient et 2 ) le mois qu'il représente.
Voilà. Si c'est la première fois que tu touches au module de class e...
ça peut paraître difficile d'accès... mais je t'ai donné un aper çu de ce
que c'était en tentant de simplifier les explications.
Maintenant, à ton tour de t'amuser ! ;-)
A) D'abord tes contrôles étiquettes ont tous un nom de cette forme :
Label_1, Label_2 ...
B ) Le module "Étiquettes" n'est pas un module standard... en conséqu ence,
tu dois ajouter à ton projet un module de classe
Barre des menus / insertion / module de classe et tu lui donn e le même
nom que dans la projet que je t'ai donné.
C ) Pour le reste, tu peux te contenter de copier le code de chaque modul e
dans un module équivalent dans ton programme.
D ) L'important est de tenter de comprendre comme cela fonctionne.
En résumé :
Le module de classe "Étiquettes", c'est une ""nouvelle classe o bjet"
Cette classe objet n'a qu'un événement de défini : celui à savoir ce
qui se passe lorsque l'on clique sur un contrôle "Étiquette"
Dans le module Standard, la variable TLabel() représente un tab leau (array)
qui va contenir tous les labels de ton projet qui appartient à cette classe.
Pour ce faire, cela se fait à l'aide de la procédure "Initial isation_Classe_TLabel"
Le tableau Tlabel() contiendra 12 objets chacun représentant à la fois un
contrôle "label" de ton formulaire ainsi que le code contenu da ns le module
"Étiquette". Chaque instance de l'objet "étiquette est indé pendant et sera en
mémoire le temps que ton formulaire demeurera charger en m émoire.
E ) Et pour finir, quand tu cliques sur un de tes étiquettes qui est de venu une
instance de la classe étiquette, le code du module de classe "étiquette"
s'exécute. De là , il appelle la procédure
"General_Label(F As FormSaisie, Mois As String)" en passant à cette procédure
2 paramètres : 1) le formulaire dont il provient et 2 ) le mois qu'il représente.
Voilà. Si c'est la première fois que tu touches au module de class e...
ça peut paraître difficile d'accès... mais je t'ai donné un aper çu de ce
que c'était en tentant de simplifier les explications.
Maintenant, à ton tour de t'amuser ! ;-)
A) D'abord tes contrôles étiquettes ont tous un nom de cette forme :
Label_1, Label_2 ...
B ) Le module "Étiquettes" n'est pas un module standard... en conséquence,
tu dois ajouter à ton projet un module de classe
Barre des menus / insertion / module de classe et tu lui donne le même
nom que dans la projet que je t'ai donné.
C ) Pour le reste, tu peux te contenter de copier le code de chaque module
dans un module équivalent dans ton programme.
D ) L'important est de tenter de comprendre comme cela fonctionne.
En résumé :
Le module de classe "Étiquettes", c'est une ""nouvelle classe objet"
Cette classe objet n'a qu'un événement de défini : celui à savoir ce
qui se passe lorsque l'on clique sur un contrôle "Étiquette"
Dans le module Standard, la variable TLabel() représente un tableau (array)
qui va contenir tous les labels de ton projet qui appartient à cette classe.
Pour ce faire, cela se fait à l'aide de la procédure "Initialisation_Classe_TLabel"
Le tableau Tlabel() contiendra 12 objets chacun représentant à la fois un
contrôle "label" de ton formulaire ainsi que le code contenu dans le module
"Étiquette". Chaque instance de l'objet "étiquette est indépendant et sera en
mémoire le temps que ton formulaire demeurera charger en mémoire.
E ) Et pour finir, quand tu cliques sur un de tes étiquettes qui est devenu une
instance de la classe étiquette, le code du module de classe "étiquette"
s'exécute. De là , il appelle la procédure
"General_Label(F As FormSaisie, Mois As String)" en passant à cette procédure
2 paramètres : 1) le formulaire dont il provient et 2 ) le mois qu'il représente.
Voilà. Si c'est la première fois que tu touches au module de classe...
ça peut paraître difficile d'accès... mais je t'ai donné un aperçu de ce
que c'était en tentant de simplifier les explications.
Maintenant, à ton tour de t'amuser ! ;-)
A) D'abord tes contrôles étiquettes ont tous un nom de cette forme :
Label_1, Label_2 ...
B ) Le module "Étiquettes" n'est pas un module standard... en conséquence,
tu dois ajouter à ton projet un module de classe
Barre des menus / insertion / module de classe et tu lui donne le même
nom que dans la projet que je t'ai donné.
C ) Pour le reste, tu peux te contenter de copier le code de chaque module
dans un module équivalent dans ton programme.
D ) L'important est de tenter de comprendre comme cela fonctionne.
En résumé :
Le module de classe "Étiquettes", c'est une ""nouvelle classe objet"
Cette classe objet n'a qu'un événement de défini : celui à savoir ce
qui se passe lorsque l'on clique sur un contrôle "Étiquette"
Dans le module Standard, la variable TLabel() représente un tableau (array)
qui va contenir tous les labels de ton projet qui appartient à cette classe.
Pour ce faire, cela se fait à l'aide de la procédure "Initialisation_Classe_TLabel"
Le tableau Tlabel() contiendra 12 objets chacun représentant à la fois un
contrôle "label" de ton formulaire ainsi que le code contenu dans le module
"Étiquette". Chaque instance de l'objet "étiquette est indépendant et sera en
mémoire le temps que ton formulaire demeurera charger en mémoire.
E ) Et pour finir, quand tu cliques sur un de tes étiquettes qui est devenu une
instance de la classe étiquette, le code du module de classe "étiquette"
s'exécute. De là , il appelle la procédure
"General_Label(F As FormSaisie, Mois As String)" en passant à cette procédure
2 paramètres : 1) le formulaire dont il provient et 2 ) le mois qu'il représente.
Voilà. Si c'est la première fois que tu touches au module de classe...
ça peut paraître difficile d'accès... mais je t'ai donné un aperçu de ce
que c'était en tentant de simplifier les explications.
Maintenant, à ton tour de t'amuser ! ;-)
A) D'abord tes contrôles étiquettes ont tous un nom de cette forme :
Label_1, Label_2 ...
B ) Le module "Étiquettes" n'est pas un module standard... en conséquence,
tu dois ajouter à ton projet un module de classe
Barre des menus / insertion / module de classe et tu lui donne le même
nom que dans la projet que je t'ai donné.
C ) Pour le reste, tu peux te contenter de copier le code de chaque module
dans un module équivalent dans ton programme.
D ) L'important est de tenter de comprendre comme cela fonctionne.
En résumé :
Le module de classe "Étiquettes", c'est une ""nouvelle classe objet"
Cette classe objet n'a qu'un événement de défini : celui à savoir ce
qui se passe lorsque l'on clique sur un contrôle "Étiquette"
Dans le module Standard, la variable TLabel() représente un tableau (array)
qui va contenir tous les labels de ton projet qui appartient à cette classe.
Pour ce faire, cela se fait à l'aide de la procédure "Initialisation_Classe_TLabel"
Le tableau Tlabel() contiendra 12 objets chacun représentant à la fois un
contrôle "label" de ton formulaire ainsi que le code contenu dans le module
"Étiquette". Chaque instance de l'objet "étiquette est indépendant et sera en
mémoire le temps que ton formulaire demeurera charger en mémoire.
E ) Et pour finir, quand tu cliques sur un de tes étiquettes qui est devenu une
instance de la classe étiquette, le code du module de classe "étiquette"
s'exécute. De là , il appelle la procédure
"General_Label(F As FormSaisie, Mois As String)" en passant à cette procédure
2 paramètres : 1) le formulaire dont il provient et 2 ) le mois qu'il représente.
Voilà. Si c'est la première fois que tu touches au module de classe...
ça peut paraître difficile d'accès... mais je t'ai donné un aperçu de ce
que c'était en tentant de simplifier les explications.
Maintenant, à ton tour de t'amuser ! ;-)
Assure-toi d'avoir les mêmes noms pour tes contrôles "Label"
comme mentionnés dans mon message précédent. Tu dois
définir la propriété "Name" de ton module de classe du même
nom que celui de l'exemple... et conserve le même nom pour
les variables.
Si ça cloche... tu dis où .
Assure-toi d'avoir les mêmes noms pour tes contrôles "Label"
comme mentionnés dans mon message précédent. Tu dois
définir la propriété "Name" de ton module de classe du même
nom que celui de l'exemple... et conserve le même nom pour
les variables.
Si ça cloche... tu dis où .
Assure-toi d'avoir les mêmes noms pour tes contrôles "Label"
comme mentionnés dans mon message précédent. Tu dois
définir la propriété "Name" de ton module de classe du même
nom que celui de l'exemple... et conserve le même nom pour
les variables.
Si ça cloche... tu dis où .
Assure-toi d'avoir les mêmes noms pour tes contrôles "Label"
comme mentionnés dans mon message précédent. Tu dois
définir la propriété "Name" de ton module de classe du même
nom que celui de l'exemple... et conserve le même nom pour
les variables.
Si ça cloche... tu dis où .
Assure-toi d'avoir les mêmes noms pour tes contrôles "Label"
comme mentionnés dans mon message précédent. Tu dois
définir la propriété "Name" de ton module de classe du même
nom que celui de l'exemple... et conserve le même nom pour
les variables.
Si ça cloche... tu dis où .
Assure-toi d'avoir les mêmes noms pour tes contrôles "Label"
comme mentionnés dans mon message précédent. Tu dois
définir la propriété "Name" de ton module de classe du même
nom que celui de l'exemple... et conserve le même nom pour
les variables.
Si ça cloche... tu dis où .