[VBA-E]Pb de communica° entre module/UserForm[débutant]

bonjour j'ai réalisé une macro qui fait appel à une UserForm GénéalogieChèvre (simple deux textBox et un bouton)
Txtbox1 : N°Animal (enabled = true )
Txtbox 2 : N°Mère mes variables dans la macro fonctionnent correcttement jusqu'au passage vers l'Userfom et là je ne comprends plus très bien?!

module 1

Code:

---

1 2 3 4 5 6

If réponse = vbYes Then fin = False GénéalogieChèvre.N°Animal.ControlSource = Worksheets _ ("T_Chèvre2").Cells(a, 3).Value GénéalogieChèvre.Show End If

---

UserForm

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Validation_Click() If Worksheets("T_Chèvre2").Cells(a, 3).Value = "" Then fin = True End If If N°Mère.Value = "" Then Worksheets("T_Chèvre2").Cells(j, 2).Value = "XXX" & k k = k + 1 ElseIf Len(N°Mère.Value) <> 10 Then MsgBox ("erreur dans la saisie") N°Mère.Value = "" Else: Worksheets("T_Chèvre2").Cells(j, 2).Value = GénéalogieChèvre.N°Mère.Value End If j = j + 1 a = a + 1 GénéalogieChèvre.N°Animal.ControlSource = Worksheets _ ("T_Chèvre2").Cells(a, 2).Value GénéalogieChèvre.N°Mère.Value = "" End Sub

---

a et j sont déclarer en général dans le module1 et fin et k dans les déclarations général de l'userform

si quelqu'un peux essayer d'y jeter un oeil et de m'expliquer ce qui ne va pas ça m'enléverait une épine du pied

If N°Mère.Value = "" Then
Worksheets("T_Chèvre2").Cells(j, 2).Value = "XXX" & k
k = k + 1
ElseIf Len(N°Mère.Value) <> 10 Then
MsgBox ("erreur dans la saisie")
N°Mère.Value = ""
Else: Worksheets("T_Chèvre2").Cells(j, 2).Value = GénéalogieChèvre.N°Mère.Value
End If

essaye

Worksheets("T_Chèvre2").Cells(j, 2).Value = "XXX" & str(k)

Salut

Pour accéder à tes variables globales du module, tu dois passer par le nom du module d'abord:

Code:

---

1 2 3 4

' Affectation NomModule.VarGlobaleModule = NouvelleValeur ' Consultation VariableLocale = NomModule.VarGlobaleModule

---

Tu nous dis si ça marche et / ou s'il reste des problèmes.

Merci pour votre aide
Il y a trois problèmes
1°) la fin de mon module devait permettre d'initialiser la valeur de ma txtbox N°Animal mais quand je fais l'exécution quand ça arrive à GénéalogieChèvre.show le module s'arrète et bascule vers l'Userform

2°) en suivant tes conseils j'ai fait

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize() a = Module1.a j = Module1.j GénéalogieChèvre.N°Animal.ControlSource = Worksheets("T_Chèvre2").Cells(a, 3).Value End Sub

---

cela dit c'est peutêtre du à l'nechainement Généalogie.show dans mon module1 et Private Sub UserForm_Initialize()

3°) comment on fait pour retourner après sur le module1 quand le dernier enregistrement est réaliser

Salut,

3/ Pour retourner sur le module:

Code:

---

1 2 3

' Fermeture de la fenêtre modale Unload Userform

---

Bonne journée.

merci skual il me reste plus que deux problèmes à solutionner
l'initialisation de mon ma UserForm

En profitant de ce qu'on m'a dit voilà ce que j'ai fait
Sur mon module 1

Code:

---

1 2	Load GénéalogieChèvre GénéalogieChèvre.Show

---

Puis

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize() a=Module1.T_Chèvre2.a GénéalogieChèvre.N°Animal.ControlSource = Sheets("T_Chèvre2").Cells(a, 3).Value End Sub   Puis le code cité plus haut   ça marche pas il me signale une erreur de compilation pour a = Module1.T_Chèvre2.a (je m'y attendais mais je ne sais l'écrire)   et quand je vire cette ligne et que je remplace a Par une valeur quelconque j'ai une erreur sur mon ControleSource

---