Discussion :

[Mr l'Ashanti]

bjr forum
merci a tous ceux qui nous aident par leur précieux temps.
j'ai un petit soucis: je voudrais charger ma listbox automatiquement apres saisie .
en fait j'utilise le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
unload me
userform1.show

ce qui fatigue l'occulaire apres de milliers de saisies. En utilisant aussi la suppression des champs apres saisie il faudrait d'abord fermer le formulaire et l'ouvrir pour que la listbox se charge a nouveau. je note que j'utilse le code row source pour alimenter ma listbox.

[Transitoire]

Bonjour, j'imagine que la "suppression des champs" est en fait leur remise a zéro?

ce qui fatigue l'occulaire apres de milliers de saisies. En utilisant aussi la suppression des champs apres saisie il faudrait d'abord fermer le formulaire et l'ouvrir pour que la listbox se charge a nouveau. je note que j'utilse le code row source pour alimenter ma listbox.

Lorsque vous avez saisie vos données, vous les entrez dans votre "base de données" j'imagine? Ceci étant fait, il vous reste a remettre les champs à zéro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.Value = ""

Vous n'avez ensuite plus qu'a entrer la liste nouvelle dans votre ListBox de la même manière que vous l'aviez entrée la première fois. nul besoin de fermer , décharger et re-ouvrir votre UF

Cordialement

[Mr l'Ashanti]

merci pour l'idée mais je l'utilisais déjà, ce pourquoi j'ai opté pour décharge et charge.
mais je vais essayer encore votre proposition et je vous ferez signe.

[Mr l'Ashanti]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Dim dl As Long
Dim wBD As Worksheet
Set wBD = Sheets("BD")
'Sheets("accueil").Select
 
If T_prenoms <> "" Or T_sexe <> "" Or T_niveau3 <> "" Or T_ecole3 <> "" Then
    If MsgBox("Voulez vous ajouter " & Me.T_prenoms & " ? la base de donn?es ?", vbYesNo + vbQuestion, "CONFIMARTION") <> vbYes Then Exit Sub
 
        dl = wBD.Range("B6500").End(xlUp).Row  'commmencer a compter de la derniere ligne vers le bas pour aller
        If wBD.Range("B" & dl) <> "" Then dl = dl + 1 ' impossible de ne pas conserver une ligne tu tableau d'o? l'astuce
        wBD.Range("b" & dl) = Me.T_prenoms
        wBD.Range("c" & dl) = Me.T_sexe
        wBD.Range("d" & dl) = Me.T_niveau3
        wBD.Range("e" & dl) = Me.T_ecole3
        wBD.Range("F" & dl) = Me.T_nationalite
        wBD.Range("G" & dl) = Me.T_date
        wBD.Range("H" & dl) = Me.T_lieu
        wBD.Range("I" & dl) = Me.T_ville
        wBD.Range("J" & dl) = Me.T_extrait
        wBD.Range("K" & dl) = Me.T_lieu_etabli
       wBD.Range("L" & dl) = Me.T_date_etabli
        wBD.Range("M" & dl) = Me.T_sp
        wBD.Range("N" & dl) = Me.T_niveau1
        wBD.Range("O" & dl) = Me.T_ecole1
        wBD.Range("P" & dl) = Me.T_dfa1
       wBD.Range("Q" & dl) = Me.T_niveau2
       wBD.Range("R" & dl) = Me.T_ecole2
        wBD.Range("S" & dl) = Me.T_dfa2
       wBD.Range("T" & dl) = Me.T_pere
        wBD.Range("U" & dl) = Me.T_fonction1
        wBD.Range("V" & dl) = Me.T_mere
        wBD.Range("W" & dl) = Me.T_fonction2
        wBD.Range("X" & dl) = Me.T_contact
       wBD.Range("Y" & dl) = Me.T_tuteur
        wBD.Range("Z" & dl) = Me.T_contact1
 
 
End If
                Label31.BackColor = &HFFC0C0
            Label31.Caption = " L'?l?ve " & T_prenoms & " a ?t? enregistr? avec succ?s. Vous pouvez continuer l'enregistrement"
        T_prenoms.SetFocus
 
 
  Me.T_prenoms = ""
         Me.T_sexe = ""
        Me.T_niveau3 = ""
        Me.T_ecole3 = ""
    Me.T_nationalite = ""
        Me.T_date = ""
        Me.T_lieu = ""
         Me.T_ville = ""
    Me.T_extrait = ""
         Me.T_lieu_etabli = ""
       Me.T_date_etabli = ""
         Me.T_sp = ""
         Me.T_niveau1 = ""
         Me.T_ecole1 = ""
         Me.T_dfa1 = ""
       Me.T_niveau2 = ""
       Me.T_ecole2 = ""
        Me.T_dfa2 = ""
      Me.T_pere = ""
         Me.T_fonction1 = ""
         Me.T_mere = ""
         Me.T_fonction2 = ""
        Me.T_contact = ""
     Me.T_tuteur = ""
        Me.T_contact1 = ""
'Unload Me
'UserForm1.Show

ok. voici le code que j'ai réécris suite à votre intervention . mais après avoir mis unload me et userform1 en commentaire et lancé l'enregistrement des élèves l'appli s'est plantée. j' ai ce message : la méthode default de l'objet range a échoué.

[sogedic]

Bonjour

Essai de lancer la macro depuis une autre feuille que la feuille BD,
ou enlève le commentaire devant sheets("Accueil").select
et dis-nous si le problème persiste

et pour la mise a jour de l'affichage

soit : Me.Repaint
soit : DoEvents

[Mr l'Ashanti]

je me suis dit que la feuille "BD" était corrompue donc je l'ai supprimé et créer une autre feuille nommée "source". j'ai pu faire un premier enregistrement mais au second enregistrement plantage. et le meme message