Base de donnée Userform

[egman]

Bonjour à tous,

Je reviens vers vous pour un probleme de base de donnée associée à des UsrForms.
Je suis reparti d'une base de sur le forum que j'ai essayé de mettre en forme pour mon application.
Je m'explique : Je cherche à l'aide d'une liste de recherche à afficher les résultats d'une fiche produit dans un UsrForm (UsrForm servant juste à la lecture de la fiche)
Je voudrai pouvoir modifier cette fiche via un deuxiéme UsrForm sur lequel j'ai des choix à faire pour modifier la fiche.( là déjà probleme.... entre les Boutons d'options, Combobox et Texbox)
Puis par la suite je voudrai récupérer les infos de ma fiche sur ma feuille servant à l'impression (Fiche de Création) à chaque foisque je veux imprimer il faudrait que ma feuille Fiche de Création soit remplie par les infos de la fiche et lors de la fin de l'impression pouvoir réinitialiser cette feuille pour la prochaine impression.
Je ne sais pas si je suis tres clair dans ma demande d'aide. Aussi je vous joint une ébauche de ce que j'ai commencé.(en fait mon fichier zip fait 55ko et ne passe pas...qu'elle est la méthode pour les fichiers dépassant 48ko)
Ce fichier je compte m'en servir pour mon boulot c'est pourquoi je fais appel à vous pour qu'il soit fiable.
Merci d'avance à tous ceux qui voudront bien se pencher sur mon probleme.

 

[Dull]

Re : Base de donnée Userform

Salut egman, le Forum

3 Solutions pour les Fichiers dépassant les 48Ko

- Epure ton fichier (Réduit le nombre de lignes, allège tes USF...)
- Regardes Lien supprimé
- Éventuellement celui-ci mais sache que ton fichier ne durera que 15 Jours

Bonne Journée

 

[egman]

Re : Base de donnée Userform

Salut egman, le Forum

3 Solutions pour les Fichiers dépassant les 48Ko

- Epure ton fichier (Réduit le nombre de lignes, allège tes USF...)
- Regardes Lien supprimé
- Éventuellement celui-ci mais sache que ton fichier ne durera que 15 Jours

Bonne Journée

Bonjour Dull

Voici (aprés inscription au site par Paypal) l'ébauche de mon fichier, parce que meme aprés épuration je ne vois pas trop ce que j'aurai pu enlever...
merci pour le conseil.

 

[Dull]

Re : Base de donnée Userform

Re egman, le Fil

Tout d'abord merci pour avoir rejoint la communauté des supporters d'XLD 🙂

Pour ton soucis quand tu click sur le bouton Modifier tu avait ça comme code

'...
    .PSO.Value = Dep.Offset(Posit, 7).Value
    .ProduitFini.Value = Dep.Offset(Posit, 8).Value
    .ProduitSousTraité.Value = Dep.Offset(Posit, 9).Value
    .ProduitAcheté.Value = Dep.Offset(Posit, 10).Value
'...

PSO tout comme ProduitFini, ProduitSousTraité et ProduitAcheté ne sont pas les Noms des Optionbuttons

a remplacer par

    .OptionButton1 = IIf(Dep.Offset(Posit, 7).Value <> "", True, False)
    .OptionButton2 = IIf(Dep.Offset(Posit, 8).Value <> "", True, False)
    .OptionButton3 = IIf(Dep.Offset(Posit, 9).Value <> "", True, False)
    .OptionButton4 = IIf(Dep.Offset(Posit, 10).Value <> "", True, False)

ou avec une Boucle

    For i = 1 To 4
        .Controls("OptionButton" & i) = IIf(Dep.Offset(Posit, i + 6).Value <> "", True, False)
    Next i

en mettant la Variable i as Byte

je n'ai pas regardé le reste du code mais avec ça tu devrais pouvoir continuer à avancer

EDITION: Même punition lors de la validation
dans la Sub MiseAJour(Dep as Range)

    For i = 1 To 4
        Dep.Offset(0, i + 6).Value = IIf(.Controls("OptionButton" & i) = True, "X", "")
    Next i

a la place de

    Dep.Offset(0, 7).Value = .Création.Value
    Dep.Offset(0, 8).Value = .ProduitFini.Value
    Dep.Offset(0, 9).Value = .ProduitSousTraité.Value
    Dep.Offset(0, 10).Value = .ProduitAcheté.Value

Bon Courage et Bonne Journée

 

[egman]

Re : Base de donnée Userform

Merci pour tout Dull,

je vais revoir mon code et te tiendrai au courant si je bute de nouveau (ce qui risque d'arriver...)

A+

 

[egman]

Re : Base de donnée Userform

décidement je suis pas doué,

Il me met une erreur sur la ligne suivante dans le bout de code

Private Sub BoutonAjouter_Click()

For i = 1 To 4
.Controls("OptionButton" & i) = IIf(Dep.Offset(Posit, i + 6).Value <> "", True, False)
Next i

En fait il me met que Posit n'est pas défini....! ! !

J'ai rajouté en début de code

Position = ListeBig.ListIndex + 1

Mai apparement çà ne suffit pas....! ! !

 

[Dull]

Re : Base de donnée Userform

RE egman

Les OptionButtons ont une Valeur boolean C'est à dire Vrai ou Faux

il faut mettre ça tout simplement 🙂

    For i = 1 To 4
    .Controls("OptionButton" & i) = False
    Next i

Bonne Journée

 

[egman]

Re : Base de donnée Userform

MERCI pour toutes ces infos,

Petit hic lorsque je créé un nouvel article (BdDlg3) lorsque je valide mes infos, celles ci s'inscrivent sur la page BOM à la suite des autres et puis s'effacent ! ! comme sil il retranscrivait les titres des textbox et non les valeurs rentrées dans celles ci...

 

[Lii]

Re : Base de donnée Userform

Bonsoir,

peut-être ainsi :

'au changement du choix
Dim i As Byte
For i = 1 To 4
   BdDlg2.Controls("OptionButton" & i) = IIf(Dep.Offset(Posit, i + 6) = "X", True, False)
Next i

...

'après les modifications (MAJ)
 Dim i As Byte
 For i = 1 To 4
   Dep.Offset(0, i + 6).Value = IIf(BdDlg2.Controls("OptionButton" & i) = True, "X", "")
 Next i

Remarque : si la déclaration est placée tout en haut, elle n'a pas besoin d'être répétée.

 

[egman]

Re : Base de donnée Userform

Bonsoir Lii,

Merci pour les infos....mais je ne comprends pas trop où les placer dans le code actuel...çà ne marche pas...je ne dois pas les placer où il faut.
En fait le probleme se présente quand j'appuie sur Valider du UserForm3...
Je ne vois pas trop le rapport avec le BdDlg2...Excuses moi

 

[egman]

Re : Base de donnée Userform

En fait les valeurs recopiées sur la feuille de calcul lorsque je valide les infos inscrites via BdDlg3 sont les titres des colonnes...! ! !

 

[egman]

Re : Base de donnée Userform

...j'ai oublié de joinde le fichier avec l'exemple de recopie sur la feuille...

 

[Dull]

Re : Base de donnée Userform

Salut egman, Lii, le Forum

Le soucis avec ton fichier est qu'il est trop touffu😀

Tu as trois USF et un seul aurait pu suffire avec 3 boutons "Creer", "Modifier" et "Supprimer"

M'enfin on va pas tout refaire

Pour ton problème particulier ton bouton valider de l'Usf Création fait appel à la Sub MiseAJour(Dep As Range) qui elle se réfère a l'Usf Modification

j'ai ajouté une nouvelle Sub: MiseAJourCreation(Dep As Range) qui se réfère à l'Usf Création

Voir Fichier

Bonne Journée

 

[egman]

Re : Base de donnée Userform

Bonjour Dull,

Ah c'est pour çà que tu me parlais de BdDlg2 l'autre fois....je comprenais pas trop pourquoi.
Effectivement çà aurait surement plus simple (pour quelqu'un qui s'y connait plus que moi) de créer un seul UsrForm avec 3 boutons (Créer, Modifier, Supprimer).
Bon on va pas tout refaire comme tu dis, maintenant que çà marche grace à toi...merci
Je me permet d'abuser avant de recréer des choses inutiles.
Je voudrai lorsque je veux imprimer ma fiche que les données que j'affiche dans BdDlg1 soit chargées sur ma feuille Fiche de création en AL5,AL8,....AL22 (parce que j'ai formules matricielles dans mes cases jaunes de la feuille).
Existe t'il une autre solution pour recopier les données de mes Labels de BdDlg1 directement en lieu et place sur ma feuille Fiche de Création ?
Tout ceci pour imprimer ma feuille Fiche de Création et en fin d'impression réinitialiser ces données sur ma feuille pour éviter les confusions lors d'une nouvelle impression.
Y'a peut etre plus simple pour faire tout ceci....je ne sais pas
D'avance un gros MERCI pour avoir et passer du temps sur mon problème.

 

[egman]

Re : Base de donnée Userform

pour commencer mon code avant l'impression je voudrai copier les données de mon UsrForm sur ma feuille.

Sheets("FicheCréation").Select
Range("AL5") = ListeBig.Value
Range("AL13") = ListeDes.Value

Range("AL8").Value = EtiquDescription.Value
Range("AL11").Value = EtiquEtatTechnique.Value
.......

par contre il ne se passe rien et il me met une erreur sur EtiquDescription.Value (membre de méthode ou données introuvables)
Alors que les labels de mon userform sont bien renseignés... ! ! !

Quelqu'un a t'il une idée ?