Bonjour,

J'ai créé un fichier excel permettant de récupérer un besoin annuel correspondant à une référence.
Lorsque une référence qui est présente sur ma page récapitulative se trouve également sur une autre page, il récupère les données sur cette autre page une case à droite de la référence et les place sur ma feuille récapitulative.

Voici le programme :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Ch()
Dim Ws As Worksheet
Dim C As Range
Dim R As String
For x = 3 To Range("A" & Rows.Count).End(xlUp).Row
    R = Cells(x, 2)
    If Left(Cells(x, 1), 1) = "0" Then R = Right(Cells(x, 1), Len(Cells(x, 1) - 1))
    For Each Ws In Worksheets
        If Ws.Name <> ActiveSheet.Name Then Set C = Ws.Cells.Find(R)
        If Not C Is Nothing Then Cells(x, 2) = Ws.Cells(C.Row, C.Column + 1)
    Next Ws
Next
End Sub
Référence Besoin annuel
89792114
14608
853048
89584714

Mon problème est le suivant :


J'arrive à faire la récupération de données si le besoin annuel est présent 1 case à droite de ma référence, mais je n'arrive pas à adapter mon programme pour les récupérer si le besoin annuel est à 12 cases de la référence (c'est le but que je cherche atteindre).

Pourriez-vous m'aider sur la modification de mon programme, pour qu'il cherche les besoins annuels 12 cases à droite de ma référence au lieu d'une seule case ?

Merci !