Excel vba copie cellule avec condition

Question

Bonjour, 

J'aurai besoin de votre aide pour un code VBA sur excel 2003. 

je vous explique : 

j'ai un classeur avec Feuil1 et Feuil2. 

Dans ces deux feuilles les données suviantes : 

colonne A = Code catégorie 

colonne B ...... 

colonne C = Libellé 

je voudrai un code qui fasse une recherche sur les libellés (colonne C) de la Feuil1, et que si les 60 premiers caractères de ce libellé sont égaux aux 60 premiers caractères d'un libellé (colonne C) de la Feuil2, alors la cellule correspondante dans la mm ligne en colonne A (Feuil1) prenne la valeur de la cellule correspondante colonne A Feuil2. 

j'espère être compréhensible et attend vos réponses avec impatience. 

d'avance merci. (urgent)

LePierre · Answer

bonjour

essaye ce code :
Sub test()
    Lig1 = 1
    Do
        Libelle1 = Sheets("Feuil1").Cells(Lig1, 3).Value
        If Libelle1 = "" Then Exit Do
        Lig2 = Lig1
        Do
            Libelle2 = Sheets("Feuil2").Cells(Lig2, 3).Value
            If Libelle2 = "" Then Exit Do
            If Left(Libelle1, 60) = Left(Libelle2, 60) Then
                Sheets("Feuil1").Cells(Lig1, 1).Value = Sheets("Feuil2").Cells(Lig2, 1).Value
            End If
            Lig2 = Lig2 + 1
        Loop
        Lig1 = Lig1 + 1
    Loop
End Sub
la recherche débute à la ligne 1
à plus

Excel vba copie cellule avec condition

1 réponse

Discussions similaires

Newsletters