Excel vba copie cellule avec condition

Tintin -  
LePierre Messages postés 249 Date d'inscription   Statut Membre Dernière intervention   -
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)
A voir également:

1 réponse

Réponse 1 / 1
LePierre Messages postés 249 Date d'inscription   Statut Membre Dernière intervention   338
 
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
1

Discussions similaires

Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses
Excel : colorer une cellule sous condition d'une autre ?
KAKEPATHEL -
Pascal -

15 réponses