Comparaison colonnes

Bonjour a vous

je souhaiterai un code qui me permette de comparer 2 colonnes (a et b) de chiffres et que les valeurs en b se range sur la même ligne quand la valeur est égal en a. plus clairement si valeur b=3,61 qu'il se range sur la même ligne du 3.61 en a.

et ne rien mettre si pas de correspondance .

merci

Bonjour,

Comment fais-tu si tu as des valeurs en double ?

J'ai regardé ton fichier, et par exemple,, en colonne A tu as 8 fois 0.00 et en colonne B 1 fois 0.00.

Re

oui tus as raison désolé, en fait j'aurai du viré les zéro car les valeurs en a et b sont des surfaces en m² il ne pourra pas avoir de zéro

merci

Ok.

Donc, comment doit-être géré les valeurs en double ? Car de mémoire, tu en as...

re

Effectivement , je sais pas si cela peut aider mais chaque valeur en b a obligatoirement son double en a . mais peut effectivement avoir en a des lignes supplèmentaire sans rien en b .

Bonsoir le fil,

chtimili a dit :

Effectivement , je sais pas si cela peut aider mais chaque valeur en b a obligatoirement son double en a

Les valeurs suivantes figurent en colonne B, mais n'ont pas de doublons en colonne A

14,38

132,84

0,1

31,72

33,77

42,53

Dommage

klin89

Bonjour et merci

oui c'est po normal vais déjà régler cela

Bonjour,

bien vu Klin89

P.

Salut patrick1957,

On va arrêter de pinailler 8)

Restitution en Feuil2

Option Explicit
Sub test()
Dim a, w(), t As Byte, i As Long, n As Long, x, y
    With Sheets("Feuil1").Cells(1).CurrentRegion
        a = .Value
        With CreateObject("Scripting.Dictionary")
            .CompareMode = 1
            For t = 1 To 2
                For i = 1 To UBound(a, 1)
                    If a(i, t) <> 0 Then
                        If Not .exists(a(i, t)) Then
                            ReDim w(1 To 3)
                            ReDim tablo(1 To 2, 1 To 1)
                        Else
                            w = .Item(a(i, t))
                            tablo = w(3)
                        End If
                        w(t) = w(t) + 1
                        If UBound(tablo, 2) < Application.Max(w(1), w(2)) Then
                            ReDim Preserve tablo(1 To 2, 1 To UBound(tablo, 2) + 1)
                        End If
                        tablo(t, w(t)) = a(i, t)
                        w(3) = tablo
                        .Item(a(i, t)) = w
                    End If
                Next
            Next
            x = .keys: y = .items
        End With
    End With
    Application.ScreenUpdating = False
    'Restitution et mise en forme
   With Sheets("Feuil2").Cells(1)
        .Parent.Cells.Clear
        For i = 0 To UBound(x)
            With .Offset(n).Resize(UBound(y(i)(3), 2), UBound(y(i)(3), 1))
                .Value = Application.Transpose(y(i)(3))
                .BorderAround Weight:=xlThin
                n = n + .Rows.Count
            End With
        Next
        With .CurrentRegion
            .Borders(xlInsideVertical).Weight = xlThin
            .Font.Name = "calibri"
            .Font.Size = 10
            .VerticalAlignment = xlCenter
            '.Columns.AutoFit
        End With
        .Parent.Activate
    End With
    Application.ScreenUpdating = True
End Sub

klin89

merci

c'est cool