Salut apt,
Salut l'équipe,
version améliorée...
Deux feuilles :
- 'BDD' qui contient ton annuaire.
Un double-clic en ligne 1 trie la BDD selon le critère de la colonne cliquée en ordre ASCENDANT alors qu'un clic-droit trie dans l'ordre DESCENDANT.
Public Sub Tri(ByVal iCol%, iIdx%)
'
Range("B1:J" & Range("E" & Rows.Count).End(xlUp).Row).Sort key1:=Range(Chr(64 + iCol) & 2), order1:=IIf(iIdx = 1, xlAscending, xlDescending), Header:=xlYes, Orientation:=xlTopToBottom
'
End Sub
Les n° de compteur en [A:A] ne sont pas triés.
- 'REC' qui sera la feuille de recherche et manipulations (ajout, modification et suppression) avec deux boutons "V" et "X".
* Toujours la même TextBox qui recherchera toute donnée contenant le texte tapé donc, par exemple, pour une recherche 123, la macro te donnera aussi bien 123456 que 987123.
Peut être pratique quand la mémoire flanche...
* Pour modification ou suppression, cliquer sur le contact désiré qui s'affiche en ligne 2.
La recherche s'efface en même temps mais, en y réfléchissant, ce serait sans doute mieux si elle restait pour une manipulation en série sur le même type de donnée... A toi de me dire...
Le bouton "X" s'active et le n° de contact s'allume en rouge, signe d'une possible suppression.
* Si, dans la foulée de cette sélection, tu modifies une donnée (en ligne 2, hein, tu suis?), le bouton "V" s'active à son tour.
A toi de choisir : bouton "V" pour modifier, "X" pour supprimer de 'BDD'.
* rendre le focus à la TextBox nettoie la feuille pour une nouvelle recherche.
* Pour créer un nouveau contact, tu auras compris qu'il ne faut pas avoir affiché une recherche en ligne 2 !!
La ligne 2 vierge, le moindre changement provoquera l'activation du bouton "V" alors que le n° de compteur en [A2], calculé automatiquement s'allumera de vert.
A tester et améliorable encore...
A+