I am trying to make an application which lets you add new Suppliers (Fournisseurs in french) to a Worksheets("Fournisseurs") when I click on the button ''ADD Suppliers'' which is in Worksheets("Accueil")
I would like to add a new suppliers without opening Worksheets("Fournisseurs").Select and staying just in Worksheets("Accueil")
Any idea?
Sub NouveauFournisseur() 'OK
Dim i As Integer
Worksheets("Fournisseurs").Select 'sélection de la feuille
creation_fournisseur.Show 'affichage de l'userform
If OK Then
i = 0 'boucle pr trouver la ligne vide où copier les données dans le formulaire
Do
i = i + 1
Loop Until Cells(i, 1) = "" 'jusqu'à ce qu'une ligne soit vide
Cells(i, 1) = creation_fournisseur.zt_nom
Cells(i, 2) = creation_fournisseur.zt_adresse
Cells(i, 3) = Val(creation_fournisseur.zt_tel)
Cells(i, 4) = Val(creation_fournisseur.zt_fax)
End If
Unload creation_fournisseur 'fermer l'userform
Worksheets("Accueil").Select 'retour page d'acceuil après avoir rentré le fournisseur
End Sub