[Catégorie modifiée .Net --> VBA] Comparer deux colonnes

zergo77 Messages postés 2 Date d'inscription mercredi 23 août 2006 Statut Membre Dernière intervention 21 juin 2010 - 21 juin 2010 à 09:39
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 21 juin 2010 à 10:19
Bonjour le forum



Je dois faire une recherche et comparer les valeurs de la colonne B par raport à la colonne C de l'onglet "export_org" et copier les valeurs de la colonne B et L vers l'onglet "export" en colonne A et R. Est il possible d'avoir une boite de dialogue pour selectionner un nombre de caracteres a comparer.


Bien a vous le forum.

PS. Comment joindre un fichier en exemple.

1 réponse

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
21 juin 2010 à 10:19
Salut
Décompose ce que tu as à faire :

- Enumérer et comparer les valeurs des cellules de deux colonnes
Si tu dois comparer le contenu des cellules dont le numéro de ligne est le même dans les colonnes B de la feuille "X" avec la colonne C de la feuille "export_org", il te suffit de faire une boucle de lecture.
    Dim r As Long
    For r = 1 To 4012  ' n° de ligne à tester
        If Worksheets("X").Cells(r, "B").Value = _
           Worksheets("export_org").Cells(r, "C").Value Then
            ' Elles sont égales
        End If
    Next r

- Ne comparer que les X premiers caractères
        Dim NbChar As Long
        NbChar = Val(InputBox("Nombre de caractères à comparer", "Codes-Sources"))
        ...
        If Left$(Worksheets("X").Cells(r, "B").Value, NbChar) = _
           Left$(Worksheets("export_org").Cells(r, "C").Value, NbChar) Then

- Faire des copies de cellules
Un simple enregistrement de macro pendant que tu fais la copie manuellement te fournira le code

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
0
Rejoignez-nous