Comparer les valeurs dans les cellules

Bonjour

je voudrais savoir quel méthode permettant de comparer la valeur dans les cellules

ex: Range("A1") comparer avec Range("B1") , ensuite avec Range("C1") , ensuite avec Range("D1") SVP!!

Mais je connais pas "objet, dictionnaire", si vous me propose ça, merci de me fournit le lien tutorial svp

Merci bcp!!!!

Salut Sophie,

Ta question est un peu vague !

Tu veux pouvoir les comparer par langage VBA déjà je pense, mais tu veux les comparer sur quel critère ?

Pour faire quoi ?

Tu peux nous donner un exemple ?

Corentin

Bonjour

Qu'est ce qui est recherché au final ? des doublons ? faire une somme de deux valeurs ?

Mets un fichier en ligne avec un mot d'explication, ce sera plus facile de fournir une proposition

Amicalement

afin de préciser ma question, j'ai founit mon fichier d'excel

help me!

Re,

Jusque une question. La colonne E et la colonne F ont toujours bien le même nombre de caractères ??

Il me semble qu'il y a aussi une relation entre le N° du vol et le jour en colonne B. Merci de m'expliquer

Dan,

pour la colonne E,F, ils ont les même nombre de caractère

le jour de vol de retour peut etre 1 jour ou 2jours après le vol d'aller,

pour simplicifier la vie, on va chercher juste n°vol diminue 1 sur les 6 lignes précédentes, sans verifier 'ligne', sinon trop compliqué!

Re,

Si j'ai bien compris la manière de fonctionner....

Code à essayer :

Sub Testdan()
'Macro Dan pour sophietaureau
Dim nbl As Integer, m As Integer, n As Integer, i As Integer, j As Integer
Dim v As Byte, w As Byte, c As Byte, a As Byte
Dim ga As String, dra As String, gb As String, drb As String

v = Application.Match("N°vol", Sheets("Sheet1").Range("A1:Z1"), 0)
w = Application.Match("Ligne", Sheets("Sheet1").Range("A1:Z1"), 0)
c = Application.Match("Capacité", Sheets("Sheet1").Range("A1:Z1"), 0)
a = Application.Match("Avion", Sheets("Sheet1").Range("A1:Z1"), 0)

nbl = Range("A20000").End(xlUp).Row

For i = nbl To 3 Step -1
    ga = Mid(Cells(i - 1, w), 1, 3)
    dra = Mid(Cells(i - 1, w), 5, 7)
    gb = Mid(Cells(i, w), 1, 3)
    drb = Mid(Cells(i, w), 5, 7)
    m = Mid(Cells(i - 1, v), 4, 7)
    n = Mid(Cells(i, v), 4, 7)
     Select Case n - m
        Case Is = 1
            If ga = drb And gb = dra Then
                If Cells(i, a) = Cells(i - 1, a) Then
                Rows(i).Delete Shift:=xlUp
                i = i - 1
                End If
            End If
        Case Is > 1
            For j = i - 1 To 6 Step -1
                If Cells(i, a) = Cells(j, a) Then
                Rows(i).Delete Shift:=xlUp
                Exit For
            Next
    End Select
Next i
End Sub

J'ai enlevé la variable p qui ne sert pas dans le code

Amicalement

Merci Dan, ton code je l'ai essayé, ça marche bien, je veux juste la partie

For j = i - 1 To 6 Step -1

If Cells(i, a) = Cells(j, a) Then

Rows(i).Delete Shift:=xlUp

Exit For

Next

Merci encore, c'est très gentil!