Compare colonnes Excel en VBA

Bonjour chers amis ;

je rencontre un problème et j'ai besoin d'aide svp

je dispose d'une feuille Excel avec plusieurs opérations sur la colonne A.

je voudrais récupérer sur chaque type d'opération :

- les 2 opérations qui sont identiques en fonction des dates les plus récentes (colonne E)

si je sélectionne sur chaque type d'opération les 2 opérations les plus récentes en fonction de la date de la colonne E

je dois comparer apres sur chaque type d'opréation que je viens de selectionné les cellelues de la ligne 1 et ligne 2 des colonnes B C D :

si ya une différence alors je mets probleme

merci de votre aide

16fichier05.xlsx (17.05 Ko)

Bonjour,

Une proposition après tri sur les colonnes A puis E

A+

23fichier05.xlsx (20.78 Ko)
frangy a écrit :

Bonjour,

Une proposition après tri sur les colonnes A puis E

A+

BONJOUR ,

merci pour votre réponse .

j'ai mis plus d'explications sur la tache que je veux réaliser par une macro VBA.

J'ai souligné les lignes paires de chaque opération récente que je souhaite sélectionner en fonction des dates les plus récentes.

je dois vérifier si y a un changement sur les colonnes B C D de chaque paire d'opérations sélectionnées.

Dans mon fichier que je viens de donner , j'ai fais la tache manuellement afin que vous puissiez m'aider.

je souhaite faire quelque chose de semblable à cela qui souligné sur le fichier.

15fichier05.xlsx (11.32 Ko)

Bonjour,

Pourquoi n'as tu pas surligné le code 4994-1 (lignes 65- 66) alors que les valeurs "Parc" sont différentes ?

Pourquoi n'as tu pas surligné le code 5435-1 (lignes 103-104) alors que les valeurs "Parc" sont différentes ?

Voici une macro qui réalise l'opération indiquée par les formules indiquées précédemment

Sub Test()
Dim DerLig As Long
Dim Cel As Range
    With Worksheets("Feuil1")
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        For Each Cel In .Range("A2:A" & DerLig)
            If Cel = Cel.Offset(-1) And Cel <> Cel.Offset(1) Then
                If Cel.Offset(0, 1) <> Cel.Offset(-1, 1) Or _
                Cel.Offset(0, 2) <> Cel.Offset(-1, 2) Or _
                Cel.Offset(0, 3) <> Cel.Offset(-1, 3) Then
                    Cel.Offset(0, 5) = "PROBLEME"
                End If
            End If
        Next Cel
    End With
End Sub

A+

Rechercher des sujets similaires à "compare colonnes vba"