pb formulaire de saisie

[ifi77]

Bonjour @ tous,

j'ai fait un formulaire de saisie mais celui ci ne veut pas fonctionner, j'ai retourner le probleme dans tous les sens mais il doit y avoir une donnée que je ne dois pas avoir.

De plus je ne sais pas comment lui dire de vérifier que le nom n'existe pas avant de crer le nouveau personnel.

J'aimerais finir par un avertissement mettant etes vous sur de vouloir créer "nom / prénom...." rentrés précedemment.

Si quelqu'un peut m'aider

un grand merci.

 

[Fred0o]

Re : pb formulaire de saisie

bonsoir ifi,

Voici ton fichier avec un code qui me semble fonctionner.

Dis-moi si c'est OK

A+

 

[kjin]

Re : pb formulaire de saisie

Bonsoir,
Plusieurs personnes peuvent porter le même nom, peut-être pas aussi le même prénom...
A+
kjin

 

[fhoest]

Re : pb formulaire de saisie

Bonsoir,
je te propose ceci:

Private Sub valider_Click()

Dim c As Range
'Insertion sur la ligne selectionnée
Dim n As Long 'Integer
   n = Sheets("per").Range("a65000").End(xlUp).Row + 1
  For Each c In Sheets("per").Range("a1:a" & n)
  If c = Me.nom And c.Offset(0, 1) = Me.prenom Then Exit Sub
  Next c
  With Sheets("per")
       
      ' n = .Range("A1").End(x1down).Row
       
       'Essai
        .Cells(n, 1).Value = Me.nom
        .Cells(n, 2).Value = Me.prenom
        .Cells(n, 3).Value = Me.matricule
        .Cells(n, 4).Value = Me.grade

        'Tri selon l'ordre alphabétique
        .Range("a1:d" & n).Sort _
                Key1:=.Columns("A"), _
                Header:=xlYes
    End With
    'Reset du formulaire
    Unload insernom

    'Boite de dialogue
    MsgBox "Une personne créée", vbOKOnly, "Message"

End Sub

A+
edit: bonsoir kijn,fredoo

 

[kjin]

Re : pb formulaire de saisie

Re, bonsoir fhoest,

'Tri selon l'ordre alphabétique
.Range("a1:a" & n).Sort _
Key1:=.Columns("A"), _

Aïe...

Edit : ifi77, merci de ne pas multiplier les discussions sur le même sujet !!!
A+
kjin

 

[fhoest]

Re : pb formulaire de saisie

@ Kijn
pourquoi? aîe!!!
Ps j'ai corigé le code bien vu c'été ça ,merci pour la remarque Aiiie.
Au plaisir et pour le plaisir d'aider......(pas forcément sans erreur de ma part)

 

[kjin]

Re : pb formulaire de saisie

Re,
@fhoest : tu tries la colonne A !....qu'adviendra t-il des données des autres colonnes ?
A+
kjin

 

[fhoest]

Re : pb formulaire de saisie

Re, j'été justement en train de corrigé le code regarde modif a 48.
merci pour le tuyau et pour la remarque
Au plaisir.

 

[ifi77]

Re : pb formulaire de saisie

bonjour kjin,

je pensais avoir déja répondu,

donc merci pour ta réponse que j'ai bien nutilisé et qui fonctionne parfaitement.

J'ai ajouter les fonctions modifier et supprimer mais j'ai quelques problemes de fonctionnement si tu peux m'aider.

merci encore.