Aide Userform pour un débutant

degap05 · 18 Janvier 2008

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.

degap05 · 21 Janvier 2008

Re : Aide Userform pour un débutant

Ouf, je croyais que j'avais fait une bêtise😱

Lorsque j'entre un nouveau patient, j'ai un message d'erreur et le surlignage sur la partie suivante:

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

???

Dull · 22 Janvier 2008

Re : Aide Userform pour un débutant

Salut Degap, Le Forum

As-tu essayé mon fichier ou as tu copié le code et collé dans ton fichier?

Peut-être la gestions des noms

Insertion/Nom/définir

ListeIPP
=DECALER(PATIENTS!$A$2;;;NBVAL(PATIENTS!$A:$A)-1)
Permet d'adapter la plage des n° IPP a chaque ajout

Liste
=DECALER(PATIENTS!$A$2:$D$2;;;NBVAL(PATIENTS!$A:$A)-1)
pareil que pour ListeIPP adapte la plage des patients pour le tri

F1Ipp
=DECALER(TEVELINE!$D$3;;;NBVAL(TEVELINE!$D:$D)-2)
adapte la Plage de la colonne D pour ajout ou non de patient en Administration

N'hésite pas si tu à le moindre soucis

j'ai aussi commenté les lignes de codes (Suivi d'un ' vert)

Bonne Journée

degap05 · 22 Janvier 2008

Re : Aide Userform pour un débutant

Bonjour et merci pour ta persévérance. Ton fichier fonctionne parfaitement.
J'ai juste remarqué une petite contrainte:

lorsque je veux administrer un flacon à un patient déjà saisi, le message s'affiche pour le signaler et si je veux effectivement continuer je dois cliquer une fois pour un patient saisi une fois, deux fois si je veux saisir une 3ème ligne avec le même n° et ainsi de suite.

Qu'en penses-tu ?

Dull · 22 Janvier 2008

Re : Aide Userform pour un débutant

Re degap05, le Forum

ajoute dans le Module de ta Feuille "TEVELINE"

la ligne en Gras

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Object, Message As Byte
On Error Resume Next
If Target.Value = "" Then Exit Sub
For Each Cell In Intersect(Range("F1Ipp"), Cells)
    If Cell.Address <> Target.Address And Cell.Value = Target.Value Then
        Message = MsgBox("Le numéro de flacon " & Target.Value & " existe déjà Voulez vous continuer ?", vbYesNo + vbInformation, "Présence de Doublons")
           [B] If Cell.Value > 1 Then Exit For[/B]
    End If
    Next Cell
    If Message = vbNo Then
        Target.Value = ""
    End If
End Sub

Bonne Journée

degap05 · 22 Janvier 2008

Re : Aide Userform pour un débutant

Merci pour cette réponse, cela fonctionne parfaitement.

Je ne peux que te répéter que tu m'as beaucoup aidé.

A bientôt peut-être pour une autre question🙂🙂🙂🙂

Aide Userform pour un débutant

degap05

XLDnaute Impliqué

degap05

XLDnaute Impliqué

Dull

XLDnaute Barbatruc

Pièces jointes

degap05

XLDnaute Impliqué

Dull

XLDnaute Barbatruc

degap05

XLDnaute Impliqué

Discussions similaires

Aide Userform pour un débutant

degap05

XLDnaute Impliqué

degap05

XLDnaute Impliqué

Dull

XLDnaute Barbatruc

Pièces jointes

degap05

XLDnaute Impliqué

Dull

XLDnaute Barbatruc

degap05

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency