Eclatement

Bonjour,

J'ai une Feuille FRM avec toutes mes écritures, conditions etc... je voudrais
éclater tout ça et répartir mes différentes formules dans des .BAS.

Quand j'exécute mon programme, il ne va pas chercher mes .BAS, comment
faire pour associer dans mon FRM mes BAS.

Merci
   

Tu peux un peu préciser stp.

En tous cas, fais attention à la portée de tes variables (privées dans un module), redéfinis bien les portées...

Par exemple, jai une variable qui me traite le NOM, je voudrais créer un BAS
avec les fonctions.

rivate Sub Nom_Change()
            Nom = SaisieNom(Nom)
        End Sub
       
        Public Function SaisieNom(Text As String) As String
        If Text <> "" Then
            If IsNumeric(Text) Then
               MsgBox ("Attention il faut saisir des Lettres")
               SaisieNom = ""
            Else
               SaisieNom = Text
            End If
        End If
        End Function
       
        Private Sub Nom_Validate(Cancel As Boolean)
            Dim tablo() As String
            Dim chaine As String
            Dim PremierMot As String
            Dim SecondMot As String
            Dim NOM1 As String
            Dim PRENOM As String
            Dim MajusculeSecondMot As String
            Dim MinisculeSecondMot As String
            Dim SecondMotSansPremiereLettre As String
                       
                chaine = Nom
               
                tablo = Split(chaine, " ", , vbTextCompare)
           
                PremierMot = tablo(LBound(tablo))
                SecondMot = tablo(UBound(tablo))
               
                MinisculeSecondMot = LCase(SecondMot)
                MajusculeSecondMot = UCase(Left(MinisculeSecondMot, 1))
                SecondMotSansPremiereLettre = Right(MinisculeSecondMot, Len(MinisculeSecondMot) - 1)
               
                NOM1 = UCase(PremierMot)
                PRENOM = MajusculeSecondMot & SecondMotSansPremiereLettre
               
                Nom = NOM1 + " " + PRENOM
        End Sub
       
        Private Sub Nom_GotFocus()
            Let Nom.SelStart = 0
            Let Nom.SelLength = Len(Nom)
        End Sub

Je voudrais mettre mon détail dans un .BAS pour pouvoir si je veux faire des
modifs sur le Nom je n'ai pas à chercher dans tout mon FRM.

Salut,
Si j'ai bien compris, tu places tes fonctions dans un module, mais le module n'est pas pris en compte dans le projet...
Si c'est ça, il te suffit de faire un clic droit dans l'explorateur de projet > ajouter > module...
Puis tu vas chercher ton module, ou tu en crée un nouveau dans la boîte de dialogue qui apparait.
@+

J'ai un message d'erreur : 
   Variable ou procedure attendue, et non un module.

Que puis-je faire ?

Merci

   

Attention, quand tu éclates tes procédures dans différents modules, il faut vérifier que :

- Tes fonctions ne sont pas restées 'Private'. Sinon, tu ne pourras pas les appeler.
- Tu appelles désormais tes fonctions comme ceci : nomDuModule.nomDeLaFonction(paramètres)


AVANT ECLATEMENT
=====================
Dans Form1
=====================
Private Sub Nom_Change()
End Sub

Private Sub Form_Load()
    Nom_Change 'appel de la procédure
End Sub


APRES ECLATEMENT
====================
Dans Form1
====================
Private Sub Form_Load()
    Module1.Nom_Change 'appel de la procédure
End Sub
====================
Dans Module1
====================
Public Sub Nom_Change()
End Sub


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.