pb formulaire de saisie

Fred0o

XLDnaute Barbatruc

• 7 Novembre 2010

• #2

Re : pb formulaire de saisie

bonsoir ifi,

Voici ton fichier avec un code qui me semble fonctionner.

Dis-moi si c'est OK

A+

 

Pièces jointes

• essai formulaire V1.zip

  20.9 KB · Affichages: 118

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 7 Novembre 2010

• #3

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

 

Pièces jointes

• ifi.zip

  20.2 KB · Affichages: 95
• ifi.zip

  20.2 KB · Affichages: 93
• ifi.zip

  20.2 KB · Affichages: 91

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 7 Novembre 2010

• #4

Re : pb formulaire de saisie

Bonsoir,
je te propose ceci:

Code:

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

 

Dernière édition: 7 Novembre 2010

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 7 Novembre 2010

• #5

Re : pb formulaire de saisie

Re, bonsoir fhoest,

fhoest à dit:

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

Cliquez pour agrandir...

Aïe...

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

 

Dernière édition: 7 Novembre 2010

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 7 Novembre 2010

• #6

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)

 

Dernière édition: 7 Novembre 2010

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 7 Novembre 2010

• #7

Re : pb formulaire de saisie

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

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 7 Novembre 2010

• #8

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.😀

 

Vote positif 0 Vote négatif

I

ifi77

XLDnaute Occasionnel

• 9 Novembre 2010

• #9

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.

 

Pièces jointes

• formulaire de saisie avec controle du report.zip

  25.5 KB · Affichages: 111
• formulaire de saisie avec controle du report.zip

  25.5 KB · Affichages: 118
• formulaire de saisie avec controle du report.zip

  25.5 KB · Affichages: 115

Vote positif 0 Vote négatif