Mise en page de resultat de recherche

[Michael78]

Bonjour,

J'ai besoin d'un petit coup de main...
Mon fichier doit me permettre de "gérer" des données du personnel. Voici l'articulation du fichier :
Feuille : 01.Création Recherche : permet la création d'un nouvelle agent et la recherche de données
Feuille : 0.2 Résultat : Affiche le résultat de la recherche effectué en page 0.1...
Feuille : AAAA : Feuille par agent, le nom de la feuille correspondant à son nom

Mon soucis (mes soucis) :
1/ lorsqu'aucun agent ne possède la spécialité recherché, rien ne se passe, j'aimerais une MsgBox avec un message du type "Pas d'agent trouvé" (cela me paraissait simple... et en faite je galère)

2/Actuellement le résultat de la recherche s'affiche dans un tableau en feuille 02.Résultat en colonne A à partir de la ligne 6. Je peux avoir jusqu'à 100 résultats d'où le tableau mais je ne sais pas comment lui dire : "une fois que tu as rempli la colonne A, continue sur la colonne B et ainsi de suite....

Merci à vous et tout mes vœux pour cette nouvelle année !!! moi je crois que je vais finir par recherche une formation en VBA!!!

 

[youky(BJ)]

Bonsoir Michael,
Regarde si cela conviens.(avec formulaire)
Je mets que le nom de l'onglet car je sais pas quoi mettre d'autre.
Bruno

 

[Michael78]

Merci beaucoup... cela fait plus pro.

j'ai n'ai plus qu'un soucis, la mise en page : le fait que les noms des agents se place correctement dans le tableau sur 5 colonne et 25 lignes max.
Si quelqu'un a une astuce.....

 

[youky(BJ)]

Re,
Avant j'avais fait de lignes en lignes et passait à la col suivante
Avec cette macro à remplacer (double click bouton OK de l'user)
Je mets en horizontal et passe à la ligne suivante
Le code est presque identique faut essayer de comprendre le code.
Bruno

Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Feuil2.[A5:E29].ClearContents
lig = 5: col = 1
For onglet = 4 To Sheets.Count
If Application.CountIf(Sheets(onglet).[Q12:W50], ListBox1.List(ListBox1.ListIndex)) > 0 Then
Feuil2.Cells(lig, col) = Sheets(onglet).Name
col = col + 1
End If
If col = 6 Then col = 1: lig = lig + 1
Next
Feuil2.Select
Unload UserForm1
End Sub