probleme de rechercheh automatique

[taupivin]

Bonjour à tous,

Voici mon probleme : je souhaiterai, pour chaque tableau de la feuille "Tableaux", inscrire les "codes" ainsi que la "Prod à réaliser" dans un nouveau tableau sur la feuille "Résultats"
Mon programme marche pour le premier code mais pour tous les autres le rechercheh ne se fait pas dans la bonne table matrice et j'ai donc #N/A.
Important : Le nombre de tableau est variable.

Voici mon code actuel :

Sub Resultats()

Dim ws1 As Worksheet, ws2 As Worksheet
Dim rg1 As Range, rg2 As Range

Set ws1 = ThisWorkbook.Sheets("Tableaux") 'feuille de départ
Set ws2 = ThisWorkbook.Sheets("Résultats") 'feuille de destination

Set rg1 = ws1.Range("A2") 'on part de la cellule A2
Set rg2 = ws2.Range("A1") 'le 1er tableau créé est en A1 de la feuille Destination

rg2 = "Produits/séquences" '.. on crée le tableau, 1re colonne
Range(rg2.Offset(0, 1), rg2.Offset(0, 6)) = Array(1, 2, 3, 4, 5, 6)

Do Until IsEmpty(rg1)

rg2.Offset(1, 0) = rg1
rg2.Offset(1, 1) = "=HLOOKUP(R1C,Tableaux!R[1]C2:R[10]C12,2,FALSE)"
Set rg2 = rg2.Offset(1, 0)
Set rg1 = rg1.Offset(10, 0)
Loop

End Sub

Merci d'avance

 

[tbft]

Re : probleme de rechercheh automatique

Bonjour

Serait il possible de convertir le fichier en version 2003 svp?
Sinon peux pas aider !!!!!

 

[tototiti2008]

Re : probleme de rechercheh automatique

Bonjour taupivin, Bonjour tbft,

un essai

Sub Resultats()
    Dim Tour As Long
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim rg1 As Range, rg2 As Range

    Set ws1 = ThisWorkbook.Sheets("Tableaux")             'feuille de départ
    Set ws2 = ThisWorkbook.Sheets("Résultats")        'feuille de destination

    Set rg1 = ws1.Range("A2")       'on part de la cellule A2
    Set rg2 = ws2.Range("A1")       'le 1er tableau créé est en A1 de la feuille Destination

        rg2 = "Produits/séquences"     '.. on crée le tableau, 1re colonne
        Range(rg2.Offset(0, 1), rg2.Offset(0, 6)) = Array(1, 2, 3, 4, 5, 6)
    Tour = 0
    Do Until IsEmpty(rg1)
        
        rg2.Offset(1, 0) = rg1
        rg2.Offset(1, 1).Resize(1, 6).FormulaR1C1 = "=HLOOKUP(R1C,Tableaux!R" & 3 + Tour * 10 & "C2:R" & 4 + Tour * 10 & "C12,2,FALSE)"
        Set rg2 = rg2.Offset(1, 0)
        Set rg1 = rg1.Offset(10, 0)
        Tour = Tour + 1 'Numéro du tour pour identifier le tableau dans lequel rechercher
    Loop
      
End Sub

 

[taupivin]

Re : probleme de rechercheh automatique

Merci beaucoup !
a+