Discussion :

[Spyder-ferrari]

Bonjour à tous,

J'ai réaliser un Userform pour mon travail de manière à ajouter des fournisseurs dans un tableau qui me sert de base de données.

je rencontre 2 soucis:

1- Mon travail est fini y a juste le bouton qui veut pas lancer mon userform et je vois pas d'où vient mon erreur....

2- Quand j'ajoute un fournisseur et que je rempli pas tout les données, le prochain fournisseur remplis des données que je n'est âs remplis avec le précédent.

Comment éviter ceci? ya une formule bien précise?

Merci de votre aide.

PS: je vous met mon fichier pour que vous comprenez mes soucis.

[ouskel'n'or]

Dis-nous tout : Où est ton bouton ? Où se trouve le code pour afficher l'usf ?
Quel est ce code ?
Il est préférable de mettre le code qui pose problème sur le forum, la plupart d'entre nous ont déjà eu des problèmes à ouvrir un fichier placé ici (pb de version le plus souvent)
A+

[Invité]

Bonjour,

Dans le code de la feuille remplacez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub lanceFrmfournisseur_Click()

par (comme indiqué dans les propriétés de votre bouton) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Frmfournisseur_Click()

ensuite vous avez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

frmFournisseur.Show

mais vous avez nommé votre userform : frmFounisseur

renommez-le en ajoutant un r.

[Spyder-ferrari]

merci jack_jean!

ça marche maintenant.

Vous avez une solution pour eviter que lorsque j'ajoute un nouveau fournisseur, ça remplis les case manquantes des précédents fournisseurs?

[Invité]

C'est simple il faut ajouter +1 après (xlUp) pour chaque ligne de votre code, sinon vous écrasez toujours la dernière ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Base").Range("B65536").End(xlUp) + 1.Offset(1, 0).Value = Nom_fournisseur.Text

Mais d'autre part, pensez-vous qu'il soit judicieux d'employer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Base").Range("B65536").End(xlUp) + 1.Offset(1, 0).Value =

et cela pour toutes les colonnes.

Mais vous pourriez aussi utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
dl = Sheets("Base").Range("B65536") + 1
Sheets("Base").Cells(dl, 2) = Me.Nom_fournisseur.Text
Sheets("Base").Cells(dl, 3) = Me.Adresse_fournisseur.Text
Sheets("Base").Cells(dl, 4) = Me.Nom_correspondant.Text
Sheets("Base").Cells(dl, 5) = Me.Telephone.Text
Sheets("Base").Cells(dl, 6) = Me.Telecopie.Text
Sheets("Base").Cells(dl, 7) = Me.Adresse_email.Text
    Unload Me
End Sub

Ce serait plus sûr si vous aviez par hasard un fournisseur qui aurait la malencontreuse idée d'habiter dans un petit village qui n'a pas de nom de rue (oui cela existe !) car dans ce cas avec votre code précédent vous aurez des problèmes pour le fournisseur suivant quand vous indiquerez la rue, sauf si vous rendez obligatoire la présence d'au moins un caractère.

[Spyder-ferrari]

Jacques jean, j'ai tes dernières formules, quand je valide , y a rien qui s'écrit dans mon tableau! c'est normal?

[ouskel'n'or]

Ajoute un DoEvents. Laisse le temps au système de placer tes données dans la feuille de calculs avant de fermer l'usf

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Sheets("Base").Cells(dl, 7) = Me.Adresse_email.Text
    DoEvents
    Unload Me

[Spyder-ferrari]

impec!ça marche niquel!

Merci de votre aide!