Discussion :

[firecarl]

Bonjour, je suis tout nouveau sur votre forum et je me permets de vous demander votre aide.

suis assez novice en vba mais je progresse de fichier en fichier avec un bouquin lol


voilà, je voudrais pouvoir comptabiliser le nb de personne suivant un répertoire alphabétique rangé par nombre de 37.

Je m'explique, j'ai créé en vba un fichier de présence comprenant les différents membres de ma caserne et tenant compte des spécificité de chacun pour les inclure dans une feuille de présence. tout cela tourne parfaitemant mais je voudrais maintenant remplacer une tâche manuscrite rébarbative par une coréllation vba.


comment faire pour que vba tienne compte de l'ordre alphabétique lorsqu'il doit répertorié les présent ou kes absences ainsi que les malades ou blessés?

en sachant que tout cela doit s'insérer dans un tableau simple
............. page 1........page 2.......... page 3........... page 4
présent : 20...............23 .................19 ................ 5
repos : 9................ 8 ..................6 .................0
congés : 5................3...................7 ..................1
malades : 2................ 2.................0....................0
blessés : 0...............1...................3................... 0
divers : 1..............0...................2....................0

Voilà je style de tableau
page 1 le nb de présent est de 20 sur 37 de "Albert à Drion"
le nb de repos est de 9 sur 37 .... etc

page 2 le nb de présent est de 23 sur 37 de "Drumon à proesmans"

etc

voilà si ce n'est pas assez clair dites le moi


merci d'avance pour votre aide

[p_12345]

Une piste que j'utilise souvant:
"Outils/Macro/Nouvelle Macro"

• Tu lances l'enregistrement

• Tu fais tes taches "rébarbatives et manuelles"

• Tu arretes l'enregistrement

• Tu regardes dans le visual basic éditor le code généré (enregistré dans un module)

• Tu t'appropries les fonctions importantes (y'a plein de truc inutile dans le code quand on fait par enregistrement)

• Tu créé ta propre procédure

• C'est fini!

[firecarl]

merci pour ton aide mais cela n'est pas suffisant:

comment puis je en manuel faire pour comparer un "nom" dans une liste et le remettre dans une autre car le but est de vérifier si une personne se trouve dans une certaine colonne et ensuite vérifier à quelle place (alphabétique) elle se trouve afin de la replacer sous forme alphanumérique dans une autre collonne récapitulative.

merci d'avance

[ouskel'n'or]

SilkyRoad (encore lui ! ) a donné le code pour un tri alphabéthique d'un tableau.
Le Tableau est ici une plage de cellules. Au lieu d'afficher le résultat, il ne te reste plus qu'à rechercher la position du nom dans le tableau dans une boucle

Code :

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

1
2
3
4
5
6
For i = 1 to Ubound(Tableau)
     if LeNom = Tableau(i) then
          Rang = i
          exit for
     endif
Next

A+

Edit
Juste une petite précaution :
Mets w = 1 et valide la synthaxe pour "tri données texte" et invalide les deux autres (dates et numériques)
Et invalide la dernière ligne

'Range(Cells(1, 1), Cells(x, w)) = Tableau

[firecarl]

merci je vais essayer je vous tiens au courant