Aide Userform pour un débutant

[degap05]

Bonjour,
Je suis débutant (mais âgé!!!!) et j'ai besoin de votre aide, voila mon problème:
j'aimerais alimenter les données d'une feuille au moyen d'un Userform.

A1 NOM
B1 Prénom
C1 Date de naissance

Et que chaque enregistrement vienne se positionner sur la ligne suivante.

J'ai créé le masque de saisie, avec les champs à remplir, mis en place le bouton de validation, lorsque les 3 champs seront renseignés et mis en place sur une autre feuille le bouton à cliquer pour lancer la macro.

Il me manque simplement le code pour effectuer cette action 😱
Plutôt que de passer le temps de travail qui me reste à chercher, je préfère vous appeler à la rescousse🙂

Merci beaucoup d'avance.

 

[abc]

Re : Aide Userform pour un débutant

Bonsoir,
un exemple a adapter
A +

 

[petchy]

Re : Aide Userform pour un débutant

bonsoir
voila
dans un USF met 3 textbox et un bouton
et tu met se code
Private Sub CommandButton1_Click()
Dim WsBase As Worksheet
Feuille = ActiveSheet.Name
Range("A1:d1").Select
Selection.Insert Shift:=xlDown
With Sheets(Feuille)
.Range("a1").Value = TextBox1.Text
.Range("b1").Value = TextBox2.Text
.Range("c1").Value = TextBox3.Text
End With


TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
Unload Me
End Sub

en espérant d'avoir pu t'aider

 

[jeanpierre]

Re : Aide Userform pour un débutant

Bonsoir degap05 et Bienvenue si on te l'a pas déjà dit.

Peux-tu mettre ton USF, si j'ai bien compris, et le comment tu veux ordonner la reception.

Je ne répond que rarement sur ce genre de question, peur des questions à tiroirs....

Ton fichier exemple représentatif et ZIPPE (facile, clic droit dans l'explorateur windows sur ton fichier et Envoyer Vers/Dossier compressé. Ensuite et en bas, Gérer les picèces jointes, parcourir sur ton disque pour la rechercher, Selectionner et UPLOADER (important, sinon, le bide) et finalement envoyer...

A te lire donc, et à pouvoir te réponsre, si possible...

Bonne soirée.

Jean-Pierre

 

[degap05]

Re : Aide Userform pour un débutant

Bonjour, un grand merci à "abc", PETCHY et jeanpierre, dont je suis le conseil en joignant un exemple sommaire de ce que je souhaite. "abc" a trés bien répondu et PETCHY également, il s'agit juste d'une petite adaptation🙂.

En espérant une aide supplémentaire.
Merci encore.

 

[ccpapy]

Re : Aide Userform pour un débutant

bonjour à tous,

ton fichier modifié,
maintenant 2 solutions pour retrouver le nom par rapport à l'IPP:
soit par macro et recherche sur un userform qui te donnera le nom et prénom , naissance puis affectation à la cellule qui était selectionnée

soit par formule avec recherchev

à toi de voir déjà si l'exemple te convient
à +

 

[degap05]

Re : Aide Userform pour un débutant

Bonjour "ccpapy",

votre proposition me convient parfaitement. Pour trouver le nom du patient, j'ai la solution avec les fonctions combinées INDEX et EQUIV, qui remplissent les cases automatiquement.
Une chose à laquelle je n'avais pas penseé: serait-il possible d'éviter la saisie de doublons en contrôlant les n° IPP déjà saisi et en faisant apparaitre un message d'alerte du genre "ce numéro existe déjà, voulez-vous continuer" ?

A vous lire

 

[Dull]

Re : Aide Userform pour un débutant

Salut degap05, ccpapy, Petchy, jeanpierre, abc, le Forum 🙂


Une solution qui, vérifie la présence de doublons dans l'Userform et dans les cellules de la colonne D

en espérant t'avoir aidé

Bonne Journée

 

[degap05]

Re : Aide Userform pour un débutant

Bonjour et merci Dull,

Tout à fait cela pour la vérification de doublons en création de patients.
Par contre il faut pouvoir sélectionner le même patient en administration, en effet le même patient peut recevoir plusieurs flacons.

Est-il possible que vous puissiez modifier code ?

Merci encore

 

[ccpapy]

Re : Aide Userform pour un débutant

bonjour à tous
je prends la suite sur le modèle de Dull

tu cliques bouton droit sur l'onglet TEVELINE, visualiser le code, et là tu supprimes le code écrit sur la partie droite de l'écran...

"""Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Object
'If No............
etc....
end sub"""

tu refermes et c'est bon
à+

 

[Dull]

Re : Aide Userform pour un débutant

Re le fil

peut-être comme sur le fichier Joint

Bonne Journée

EDITION: Petite erreur dans le code je rectifie et je le remet 😱

Re Edit: Mauvaise déclaration de variable et en espérant que cela ne bug plus

 

[degap05]

Re : Aide Userform pour un débutant

Un seul mot "Excellent".
J'ose une dernière demande:

est-ce que le classement automatique du n° IPP par ordre croissant est possible à la création d'un nouveau patient ?

Merci.

 

[Dull]

Re : Aide Userform pour un débutant

peut-être comme sur le fichier Joint

Sur ce Post pour ne pas multiplier les Fichiers et alléger le Serveur

 

[degap05]

Re : Aide Userform pour un débutant

Je suis tout à fait d'accord, mais comment faire ?
Dois-je recommencer une demande ?
Puis-je supprimer des fichiers ?
Certainement des questions très bêtes, mais dans l'ignorance............serai-je pardonné ?

 

[Dull]

Re : Aide Userform pour un débutant

Re le Fil

Non non degap 😱 cela ne vient pas de toi 😀
j'ai juste changer le fichier de mon avant dernier post
il est passé de V2 à V3

ouvre le fichier qui est ici