Recherche V et adresse des celulles

Bonjour,

Je débute sous Excel et j’essaie de m'améliorer mais ce n'est pas évident !

Ne trouvant pas ma réponse sur ce magnifique forum, je me permets de créer un nouveau topic.

J'ai deux colonne "document reference" et " deliverable reference"

Je souhaite afficher dans une 3ème colonne la valeur de colonne "document reference" si cette dernière a été trouvé dans la colonne " deliverable reference" --> Simple Recherchev() me direz-vous. mon problème c'est que je souhaite maintenir l'emplacement de la valeur trouvé dans colonne "document reference" pour mettre a jour ma 3ème colonne ...

C'est bien plus clair sur le fichier excel que vous trouverez avec ce post,

Merci d'avance pour vos réponses

Maxime

9excel-test.xlsx (10.68 Ko)

Bonjour,

un essai via macro.

Cordialement.

11excel-test.xlsm (18.99 Ko)

C'est super !!

Merci beaucoup

Bonjour,

Mon problème semble plus compliqué .. la macro proposé ne fonctionne pas exactement comme souhaité, j'ai essayé de modifier ci-dessous le code mais.. sans résultats pour le moments

Je cherche a indiquer dans ma 3ème colonne "AP" la valeur de la 2ème colonne "AI" seulement si elle existe dans la 1ère colonne "B" et en la copiant en face (Merci de regarder la photo sur le fichier excel)

J'ai essayer d'avancer le code a partir de la macro proposée :

Sub essai()

derligne_doc = Range("B" & Rows.Count).End(xlUp).Row 'Grande Base
derligne_ref = Range("AI" & Rows.Count).End(xlUp).Row 'Petite Base

    For i = 2 To derligne_ref
        For Z = 2 To derligne_doc
            If Range("B" & Z) = Range("AI" & i) Then
                Range("AP" & Z) = Application.VLookup(Range("B" & Z), Range("AI" & Z), 1)
                Z = derligne_doc
            End If
        Next Z
    Next i
End Sub

Merci pour votre aide

6excel-test-v1.xlsm (138.22 Ko)

Bonjour,

Erreur de paramètres. Remplace la ligne suivante :

Range("AP" & Z) = Application.VLookup(Range("B" & Z), Range("AI" & Z), 1)

par celle-ci :

Range("AP" & Z) = Application.VLookup(Range("AI" & Z), Range("B2:B" & derligne_ref), 1)

Bonjour, Merci pour votre réponse mais cela ne fonctionne pas.

Range("AP" & Z) = Application.VLookup(Range("AI" & Z), Range("B2:B" & derligne_ref), 1)

Je souhaite afficher en colonne "AP", la valeur de colonne "AI" en face de celle trouvée dans colonne "B".

De ce que je comprends au code que vous me proposer, le recherche V affiche en colonne "AP" la valeur de colonne "B"

Avez-vous une autre idée ? Merci beaucoup par avance

Re,

Comme ça alors :

Range("AP" & Z) = Application.VLookup(Range("B" & Z), Range("AI2:AI" & derligne_ref), 1)

Re-bonjour,

J'avais presque trouvé le code que vous me proposer. Merci ! (J'avais oublié le "derligne-ref")

Maintenant que la recherche est fonctionnelle, je voudrai copier les cellules qui sont sur la même ligne que colonne 2 en "Q:AH" et les coller a droite de colonne 3 en "AQ:BH" en fonction de la recherche.

Voila ce a quoi je pensais : Faire par rapport à la cellule active mais ce n'est pas terrible.. car si la cellule active n'est pas AQ2 ça ne marche pas

Sub essai()

derligne_doc = Range("B" & Rows.Count).End(xlUp).Row 'Grande Base
derligne_ref = Range("AI" & Rows.Count).End(xlUp).Row 'Petite Base

    For i = 2 To derligne_ref
        For Z = 2 To derligne_doc
            If Range("B" & Z) = Range("AI" & i) Then
                Range("AP" & Z) = Application.VLookup(Range("B" & Z), Range("AI2:AI" & derligne_ref), 1)
                ActiveCell.Offset(0, -26).Resize(1, 19).Copy Destination:=ActiveCell.Offset(0, 1)
                Z = derligne_doc
            End If
        Next Z
    Next i
End Sub

Explication plus facile et plus claire sur le nouveau fichier Excel.

Mille merci

4excel-test-v2.xlsm (42.43 Ko)

Bonsoir,

si j'ai bien compris je dirais :

Sub essai()

derligne_doc = Range("B" & Rows.Count).End(xlUp).Row 'Grande Base
derligne_ref = Range("AI" & Rows.Count).End(xlUp).Row 'Petite Base

    For i = 2 To derligne_ref
        For Z = 2 To derligne_doc
            If Range("B" & Z) = Range("AI" & i) Then
                Range("Q" & Z & ":" & "AH" & Z).Copy Range("AQ" & Z)
                Z = derligne_doc
            End If

        Next Z
    Next i
End Sub

Cordialement

Bonsoir, j'ai essayé le code suivant :

Sub essai()
derligne_doc = Range("B" & Rows.Count).End(xlUp).Row 'Grande Base
derligne_ref = Range("AI" & Rows.Count).End(xlUp).Row 'Petite Base

    For i = 2 To derligne_ref
        For Z = 2 To derligne_doc
            If Range("B" & Z) = Range("AI" & i) Then
                Range("AP" & Z) = Application.VLookup(Range("B" & Z), Range("AI2:AI" & derligne_ref), 1)
                Range("Q" & Z & ":" & "AH" & Z).Copy Range("AR" & Z)
                Z = derligne_doc
            End If

        Next Z
    Next i
End Sub

La copie des cellule semble correct en terme de format. Cependant, les cellules copiées ne correspondent pas au "deliverable reference" (Colonne "AI") associé à la colonne "AP".

Ci-après un exemple :

En ligne 10 colonne "AP" code "61402S-000-MR-0910-00004" fournit par la macro. Le valeur a copier dans colonnes AR - BI sont celles correspondant a ligne 2 des colonnes Q - AH et non celles en face comme actuellement.

J'espère être comprehensible. Merci beaucoup de votre aide !

Rechercher des sujets similaires à "recherche adresse celulles"