begin process at 2008 08 22 07:02:51
1 229 780 membres
51 nouveaux aujourd'hui
14 267 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Enchainer les fonction [ Windows / Formulaire / Winforms / Controls ] (medeuy)

Enchainer les fonction le 13/06/2008 16:36:35

medeuy

bonjour, j'aimerai savoir si il existe un code VBA sous excel pour enchainer deux fonction l'une après l'autre.
Merci

   
Dim reponse As Boolean
Dim reponse1 As Boolean
Dim reponse2 As Boolean
Dim reponse3 As Boolean
Dim reponse4 As Boolean


'*************************************************************************************
'        Niveau 1
'*************************************************************************************
Dim rubrique As String
If CheckNiv1.value = True Then
    Charge_Fichier_N1   'Appel fonction de chargement des fichiers de Niveau 1
 
End If
'*************************************************************************************
'        Niveau 2
'*************************************************************************************
If CheckNiv2.value = True Then
    Charge_Fichier_N2 'Appel fonction de chargement des fichiers de Niveau 2
End If
'*************************************************************************************
'        Niveau 3
'*************************************************************************************
If CheckNiv3.value = True Then
 Charge_Fichier_N3 'Appel fonction de chargement des fichiers de Niveau 3
End If
'*************************************************************************************
'        Niveau 4
'*************************************************************************************
If CheckNiv4.value = True Then
  Charge_Fichier_N4 'Appel fonction de chargement des fichiers de Niveau 4
End If

           


NiveauForm.Hide
Unload NiveauForm

 


End Sub


Re : Enchainer les fonction le 13/06/2008 16:45:58

Exploreur
Membre Club
Réponse acceptée !
Salut,

Fait une seule fonction à qui tu donne en paramètre le chemin de ton fichier(et voir d'autres options) à charger, au lieu d'en faire quatre de fonction..non ?

Faudrait voir ton code, pour pouvoir t'aider un peu mieux ^^

A+
Exploreur

 Linux a un noyau, Windows un pépin


Re : Enchainer les fonction le 13/06/2008 16:57:04

medeuy

parallelement j'ai essayé de faire une boucle, pa mal de manip mais sa ne marche pas par contre g un bout de code a la fin peut etre sa peut t'aider

Private Sub NiveauBtn_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'sortie sans sélection
'activer la feuille form

       
End Sub

si je fai une fonction a la place des quatre sa ne va pas tout me melanger?


Re : Enchainer les fonction le 13/06/2008 18:44:18

mortalino
Membre Club
salut,
(coucou Exploreur)

ce qu'iil nous faur surtout, c'est tes codes Charge_Fichier_N1 à Charge_Fichier_N4

Il y aura certainement quelque chose a faire, du genre de

function Charge_Fichier_N (ByVal Niveau as Integer) as Boolean

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA


Classé sous : fonction, value, niveau, if, booleandim

Participer à cet échange

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS