Discussion :

[citaro]

Bonsoir Philippe,

J'ai lu cette contribution.
Bravo pour ce formulaire, je l'ai adapté à mes besoins, il manque juste une solution pour trier les données de la base après insertion, modification ou suppression...

Si vous avez une idée
Merci d'avance
Citaro

[Philippe Tulliez]

Bonjour Citaro,
Merci pour ton appréciation.

il manque juste une solution pour trier les données de la base après insertion, modification ou suppression...
Si vous avez une idée

Il suffit d'ajouter une procédure de tri, dans la procédure événementielle cmdConfirm_Click du contrôle CommandButton nommé cmdConfirm
Pour l'exemple, j'utilise la procédure de tri que j'ai développée et que l'on peut trouver dans mes sources publiées.
Voici la procédure avec la ligne à ajouter (en rouge)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdConfirm_Click()
 If Not IsFieldsFilled Then Exit Sub
 Select Case UserFormStatus
  Case Status.NewRec ' Nouvel enregistrement
   WriteRecord rng.Rows.Count: InitData: InitRowSource
   Me.cboMember.ListIndex = rng.Rows.Count - 1
  Case Status.Modify: WriteRecord CurrentRecord ' Modification de l'enregistrement
 End Select
 mSortTable2003.SortTable rng, "2"   ' Tri su la deuxième colonne
 OppositeStatus ' Inverse la valeur booléenne des boutons d'action
End Sub

Code :

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

mSortTable2003.SortTable rng, "2"

[citaro]

Bonjour Philippe

En ajoutant cette ligne
mSortTable2003.SortTable rng, "2"

J'obtiens une erreur variable non défini, sur mSortTable2003 ,peut-être je n'ai pas le même fichier que vous ?

Citaro

[Philippe Tulliez]

Bonjour,

En ajoutant cette ligne
mSortTable2003.SortTable rng, "2"
J'obtiens une erreur variable non défini, sur mSortTable2003 ,peut-être je n'ai pas le même fichier que vous ?

Dans la ligne en question mSortTable2003 est le module où se trouve la procédure SortTable.
Si le module porte un autre nom, il faut le référencer autrement. La procédure peut être invoquée sans la faire précéder par le nom du module. Je fais systématiquement référence au module pour faciliter la maintenance.

[citaro]

Rebonjour,

Sur le fichier en téléchargement dans le post, il n'y a pas le module cité
Etant novice en VBA, je n'arrive pas à trouvé la solution

Cordialement

[Philippe Tulliez]

Bonjour,
J'ai écrit

Pour l'exemple, j'utilise la procédure de tri que j'ai développée et que l'on peut trouver dans mes sources publiées.

En dessous de mon nom, il y a des étoiles et quatre boutons. Le troisième en partant de la gauche est celui qui te renvoie vers les sources que j'ai publiées et parmi celles-ci se trouve Procédure de tri - VBA Excel 2003-2010
La procédure que tu trouveras dans le classeur à télécharger est à copier dans le classeur où se trouve ton UserForm

[citaro]

Merci Philippe,

J'ai trouvé et réussi à adapter mon fichier

Bon dimanche
Citaro