recherche

[Alex]

Bonjour tout le monde
Je voudrais réaliser une recherche en VBA
j'ai une feuille bilan avec les nom de toutes les personne présentes sur les feuilles des mois
en fait il faudrait quej'active les lignes des feuilles ou le nom de mon salarié est présent pour fair par la suite des calculs
voila ce que j'ai fait mais bon ca ne marche pas
si qqn pouvait m'aiclaircir les iD



Dim bln_trouve As Boolean 'drapeau de recherche
For Each feuilles In Worksheets
If Not (IsDate(feuilles.name)) Then
Else
If DateValue(feuilles.name) >= DateValue("01/06/2003") And DateValue(feuilles.name) <= DateValue("31/05/2004") Then
' choix des feuilles
j = 0

recherche:
j = j + 1
bln_trouve = False 'initialisation
I = 1 'mettre debut de la zone de recherche
MsgBox Sheets("bilan").Range("a1").Offset(j, 0).Value
Sheets("bilan").Range("a1").Offset(j, 0).Value = name

While feuilles.Range("a2").Offset(I, 0).Value <> "" And Not bln_trouve ' si nom trouve on sor de la boucle ou si cellule vide

If feuilles.Range("a2").Offset(I, 0).Value = name Then
bln_trouve = True 'nom trouve

**** 'execution****
**comment faire l'execution pour chaque personne??***


GoTo recherche
Else
I = I + 1 'nom pas trouve on incrémente i pr passer à la ligne suivante
End If
Wend
End If
End If

Next


Merci d'avance

 

[JyM]

salut Alex,
si j'ai bien compris,
tu veux pour chaque nom de salarié,
(es-tu sûr de l'intégralité des noms)
repérer dans n(12) feuilles ;
ce nom et x informations le concernant ;
rappatrier sur une feuille de bilan ;
chaque nom sur une ligne avec en colonnes à suivre les X données de tous ses mois totalisés.

à suivre si pas mieux
JyM

 

[Alex]

oui c ca mai mon code ne marche pas