Créer un formulaire de saisie

[Francois73]

bonsoir le forun

une fois de plus j'ai besoin de votre aide , je souhaite créer un formulaire de
saisie une de mes feuilles

j'ai un numéro d'identification par ligne et j'aimerais
que dans mon formumaire je puisse enregistrer deux données différentes
qui viendrait se coller sur la bonne ligne

ne connaissant pas du tout cette partie d'excel, je ne sais même pas par ou commencer

merci de votre aide

 

[camarchepas]

Re : Créer un formulaire de saisie

Bonsoir François,

Une petite démo par rapport à ce que j'ai compris de ton besoin :

 

[Francois73]

Re : Créer un formulaire de saisie

Bonsoir

je n'ai pas été assez explicite, c'est la base qui me manque à savoir comment créer une userform


merci

 

[camarchepas]

Re : Créer un formulaire de saisie

Ok,

regardes ici, plutot clair Comment créer une userform?

 

[jeanpierre]

Re : Créer un formulaire de saisie

Bonsoir Francois73, nono,

Alt F11 pour aller sous VBE, Affichage/Explorateur de projet, au besoin, puis, sur ton fichier selectionné, Insertion UserForm....

La boîte d'outils qui s'est ouverte va te permettre de rajouter (dessiner) dessus des trucs et des machins qu'il faudra programmer, bien sûr....

Mais, là, tu as des milliers (que dis-je, beaucoup plus encore) d'exemple sur le forum... Une petite recherche suffit.

Bonne soirée et découverte.

Jean-Pierre

 

[Francois73]

Re : Créer un formulaire de saisie

ça y est j'ai créer mon userform

je cherche lorsque j'indique un des numéros de la colonne A à entrer des données soit en colonne b , soit c soit d ou les trois

je joint mon fichier exemple

merci

 

[camarchepas]

Re : Créer un formulaire de saisie

Le fichier n'est pas passé , trop gros , il faut le zipper peut être

 

[Francois73]

Re : Créer un formulaire de saisie

ok le voici

merci

 

[camarchepas]

Re : Créer un formulaire de saisie

Voici,

J'ai commenté un peu le code, j'ai viré aussi tous les modules vides pour alléger le fichier.

J'ai également ajouté le calcul automatique du lait 24 h.

 

[Francois73]

Re : Créer un formulaire de saisie

bonjour

merci pour ton fichier, j'avais effectivement laissé les modules de mon fichier original en virant mes macro

j'ai réussi à reconstruite mon formulaire dans le fichier original,
pour le calcul 24 h , je garde précieusement la formule, mais je n'en n'ai pas besoin dans mon fichier
je dois sasir ou lait matin, ou lait soir ou lait 24 h mais c'est ok ça fonctionne

il me reste à vider le formulaire en cliquant sur valider et retour sur "zone de saisie N° de travail"

je pensais à ajouter en fin de code la ligne
next Sheets("userform1").Range("B:B").RangeC:C").Range("D").Range("E:E").ClearContents

cela te semble t'il bon

merci

 

[Francois73]

Re : Créer un formulaire de saisie

re bonjour

ne cherchez plus j'ai trouvé, même si ce n'est pas trés orthodoxe

je ferme l'user forme et je l'ouvre à nouveau
Option Explicit

Private Sub CommandButton1_Click()
'Déclaration des objets et variables
Dim Trouve As Object
Dim ligne As Long
'Recherche de la ligne N° Travail.
Set Trouve = Worksheets("SANSLP").Range("J:J").Find(CLng(TextBox1.Text), lookat:=xlWhole)
'Si référence travail trouvée alors
If Not Trouve Is Nothing Then
'Récupére le numéro de ligne pour l'objet trouvé
ligne = Trouve.Row
'Remplissage des diverses colonnes
Worksheets("SANSLP").Range("R" & ligne) = TextBox2.Text
Worksheets("SANSLP").Range("S" & ligne) = TextBox3.Text
Worksheets("SANSLP").Range("W" & ligne) = TextBox5.Text
Worksheets("SANSLP").Range("U" & ligne) = TextBox4.Text
Else
'Si référence non trouvée alors message
MsgBox "Référence : " & TextBox1.Text & " non trouvée"



End If
Unload SAISIE
Load SAISIE
SAISIE.Show
End Sub


alors merci pour votre précieuse aide

 

[camarchepas]

Re : Créer un formulaire de saisie

Bonjour François,

La solution qui parait plus orthodoxe ( Lol) :
A ton service ....

Option Explicit

Private Sub CommandButton1_Click()
'Déclaration des objets et variables
Dim Trouve As Object
Dim ligne As Long
'Recherche de la ligne N° Travail.
Set Trouve = Worksheets("SANSLP").Range("J:J").Find(CLng(TextBo x1.Text), lookat:=xlWhole)
'Si référence travail trouvée alors
If Not Trouve Is Nothing Then
'Récupére le numéro de ligne pour l'objet trouvé
ligne = Trouve.Row
'Remplissage des diverses colonnes
Worksheets("SANSLP").Range("R" & ligne) = TextBox2.Text
Worksheets("SANSLP").Range("S" & ligne) = TextBox3.Text
Worksheets("SANSLP").Range("W" & ligne) = TextBox5.Text
Worksheets("SANSLP").Range("U" & ligne) = TextBox4.Text
Else
'Si référence non trouvée alors message
MsgBox "Référence : " & TextBox1.Text & " non trouvée"
End If
TextBox1.Text=""
TextBox2.Text=""
TextBox3.Text=""
TextBox4.Text=""
TextBox5.Text=""
end sub

 

[Francois73]

Re : Créer un formulaire de saisie

bonjour


je vais donc corriger et encore merci pour toute cette aide , mon fichier est maintenant terminé

bon dimanche