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

Signaler
Messages postés
2
Date d'inscription
mercredi 23 août 2006
Statut
Membre
Dernière intervention
21 juin 2010
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
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

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
76
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)