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
Actualité : E4
L'avenir de la plateforme Eclipse
Actualité : E4
L'avenir de la plateforme Eclipse
Le , par MEGEVAN
Une erreur dans cette actualité ? Signalez-nous-la !