Discussion :

[remondii]

Bonsoir,
J'ai besoin d'un peu d'aide.....
Alors voilà, j'ai un fichier xls avec 200 feuilles environ. Là j'ai limité l'exemple en PJ pour ne pas l'alourdir.
Sur la feuille répartition j'ai une liste de repères en colonne A. Ces repères se retrouvent ensuite sur une feuille nommée Pxxx, qui est le numéro du pupitre de colisage.
Je cherche à faire remonter la date en colonne T de répartition, en lisant toutes les feuilles Pxx et en remontant la case J3 quand il trouve le repère ....
Exemple pour R051 il doit me remonter la date de la feuille P23, soit 05/04/16 sur la feuille répartition, et le P23 en colonne U de répartition.
Il est tard, je fatigue et j'ai beau chercher, je ne trouve pas, ni dans ma tête, ni sur les forums....
Si une âme charitable passe par là, je lui serai vraiment reconnaissante....
Bonne soirée....

[Neutthsch]

Bonjour remondii,

bien sur ce n'est pas réalisable avec les fonctions de base du coup tu dois en fabriquer une.

A mettre dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function DateDeColissage() 'On crée un  fonction qu'on appelera depuis la feuille excel
Dim RepereDeColissage As Range
Dim RepartSheet As Object, PSheet As Object
Set RepartSheet = ActiveWorkbook.ActiveSheet
 
For Each PSheet In ActiveWorkbook.Sheets 'on passe sur chaque feuille du classeur
    If PSheet.Name <> RepartSheet.Name Then 'on ne désire pas rechercher sur la feuille à remplir
        Set RepereDeColissage = PSheet.Cells.Find(What:=RepartSheet.Cells(ActiveCell.Row, 1), LookIn:=xlFormulas, LookAt _
                :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False) ' On cherche notre repere page par page
        If Not RepereDeColissage Is Nothing Then  'si on trouve notre repère
            DateDeColissage2 = PSheet.Cells(RepereDeColissage.Row, 20) 'alors la fonction renvoie la valeur trouvé dans la colonne T
            Exit Sub 'et on arrète la fonction
        End If
    End If
Next
 
If RepereDeColissage Is Nothing Then 'si après avoir passé toutes les pages on n'a rien trouvé
    DateDeColissage2 = "Repère invalide" 'alors c'est que cette valeur n'existe pas
End If
 
End Function

et dans ta cellule tu pourras appeler cette nouvelle fonction avec =DateDeColissage()