Plusieurs formules en une seule

[kolivier]

RE Bonsoir le FORUM,

J'ai encore une nouvelle question.

Je n'en rajoute aps avec HERVE c'est promis

J'ai toujours mon USF qui contien plusieurs onglet.
Chaque onglet contient un bouton INIT.
La fonction INIT permet de lancer la réinitialisation d'une centaine d'infos.
Mais la encore j'ai du faire un copie-coller de cette fonction 5 fois car j'ai 5 onglet qui contiennent cette fonction pour l'integralite u programme.

Peut on programmer une fonction INIT et demander que d'autre fonction INIT soient renvoyer vers la premiere.

Exe :

Private Sub INIT_Click()
varAnswer = MsgBox('CONFIRMEZ VOUS LA REMISE A ZERO DE TOUS LES ECRANS DU LOGICIEL?', vbYesNo, 'REMISE A ZERO')
If varAnswer = vbYes Then
UserForm.NOMEMP.Text = 'NOM'
UserForm.PRENOM.Text = 'PRENOM'
etc..
end sub


Private Sub INIT2_Click()
varAnswer = MsgBox('CONFIRMEZ VOUS LA REMISE A ZERO DE TOUS LES ECRANS DU LOGICIEL?', vbYesNo, 'REMISE A ZERO')
If varAnswer = vbYes Then
UserForm.NOMEMP.Text = 'NOM'
UserForm.PRENOM.Text = 'PRENOM'
etc..
end sub
Private Sub INIT3_Click()
varAnswer = MsgBox('CONFIRMEZ VOUS LA REMISE A ZERO DE TOUS LES ECRANS DU LOGICIEL?', vbYesNo, 'REMISE A ZERO')
If varAnswer = vbYes Then
UserForm.NOMEMP.Text = 'NOM'
UserForm.PRENOM.Text = 'PRENOM'
etc..
end sub


N'y a t'il pas une fonction qui dit


Private Sub INIT2_Click() = Private Sub INIT2_Click() = Private Sub INIT2_Click()


La raison est de gagner de la place dans mon prog et ne pas avoir a retoucher chacune de sinfos a remmettre a zero.

Merci d'avance pour votre gentillesse.

Message édité par: kolivier, à: 18/11/2005 00:29

 

[Hervé]

re olivier

Essaye comme ceci, si j'ai bien compris :

Private Sub INIT_Click()
INITtextbox
End Sub

Private Sub INIT2_Click()
INITtextbox
End Sub

Private Sub INIT3_Click()
INITtextbox
End Sub

Public Sub INITtextbox()
varAnswer = MsgBox('CONFIRMEZ VOUS LA REMISE A ZERO DE TOUS LES ECRANS DU LOGICIEL?', vbYesNo, 'REMISE A ZERO')
If varAnswer = vbYes Then
UserForm.NOMEMP.Text = 'NOM'
UserForm.PRENOM.Text = 'PRENOM'
etc...
End Sub

Pense à déclarer ta variable varAnswer (qui est d'ailleur inutile dans ce cas).

salut

 

[kolivier]

Bonjour le FORUM, et Merci beaucoup HERVE, mais dis moi tu ne serai pas par hasard DOCTOR ES EXCEL................

Encore dans le mille, et comme je risque de poser beaucoup de questions sur ce forum je vais vite être a cour de superlatif pour remercier le forum et ce SAGE d'HERVE.

Merci beaucoup HERVE.

Au fait juste une question générale :

Lorsque un classeur avec une macro excel qui contient plusieurs USF et plusieurs feuille est un peu handicapé par sa taille, par exemple 2MO, que vaut il mieux :

- Enlever des formules presentes dans les feuilles et les mettre dans le programme VBA des USF ou l'inverse.
Car j'ai remarqué que la taille du fichier diminué plus dans un sens que dans un autre. Mais je n'en suis pas sur................

Petite reflexion qui n'oblige a aucune réponse.

Merci encore à tous. :ermm:

 

[Hervé]

re olivier

si j'etais docteur es excel, ca se serait sur ce forum.

Quant à ta question, je ne répondrai qu'a sa conclusion : 'Petite reflexion qui n'oblige a aucune réponse.'

MERCI


Franchement j'en sais rien, mais un fichier excel de 2Mo ca commence à faire un zoli bébé.

regarde du coté aussi mise en forme des cellules.

salut

 

[kolivier]

Docteur ou pas , en tout cas merci encore pour ta gentillesse et ta disponibilité.

Bon WE a tout le forum

 

[kolivier]

classeurdestinationworksheets

Bonsoir HERVE, es tu actuellement présent, j'aurai juste une question a te poser, si cela ne t'embetes pas trop surtout a cette heure avancée de la nuit.

Merci milles fois d'avance

Lien supprimé