Actualité : E4

L'avenir de la plateforme Eclipse

Etant novice dans le VBA je recherche une âme charitable pour me renseigner.
Voilà j'ai un classeur de trois feuilles pour effectuer une gestion de stocks. J'ai créé un Userforme pour effectuer la saisie de stocks. Il y a 3 gestions, A, B, C donc j'ai créé 3 boutons pour m'amener chacune des feuilles du classeur. Jusque là tout va bien mais quand je mets la macro pour la Gestion A c'est bon aussi mais je n'arrive pas à la faire fonctionner pour la gestion B et la gestion C. Les 3 bases A,B,C sont identiques comment rédiger cette macro afin qu'elle fonctionne pour les 3 gestions A,B,C. Je vous fais passer cette macro

Private Sub TextBox1_AfterUpdate()

If WorksheetFunction.CountIf(Sheets("GESTION A".Range("A:A", Me.TextBox1.Value) = 0 Then
MsgBox "Cette adresse n'existe pas. Veuillez ressaisir une nouvelle adresse", vbInformation + vbOKOnly, "Adresse non trouvée"
End If

With Me
.TextBox2 = Application.WorksheetFunction.VLookup((Me.TextBox1), Sheets("GESTION A".Range("SOURCEA", 2, 0)
.TextBox3 = Application.WorksheetFunction.VLookup((Me.TextBox1), Sheets("GESTION A".Range("SOURCEA", 3, 0)
.TextBox4 = Application.WorksheetFunction.VLookup((Me.TextBox1), Sheets("GESTION A".Range("SOURCEA", 4, 0)
.TextBox5 = Application.WorksheetFunction.VLookup((Me.TextBox1), Sheets("GESTION A".Range("SOURCEA", 6, 0)
End With

End Sub

D'avance un grand merci à la personne qui me répondra