Problème programme ajout entre 2 listes Fermé

Question

Bonjour à tous, Je reviens vers vous aujourd'hui car j'ai un dernier problème de programmation vba 

J'ai 2 listes sur excel , L'une comportant 5 valeurs ( Liste A ) et l'autre comportant 8 valeurs ( Liste B ) 
Le programme que j'ai bricolé cherche la dernière valeur de la liste A et ajoute à cet même liste toutes les valeurs de la liste B plus grande que cet dernière valeurs 

Le problème est que le programme ajoute toutes les valeurs de la liste B a la liste A 

Sub AjouterValeurSuperieur()
Dim i%
DerniereLigne = Range("A1").End(xlDown).Value
MsgBox (DerniereLigne)
    For i = 1 To Range("b" & Rows.Count).End(xlUp).Row
        If Application.CountIf(Range("a:a"), Cells(i, "b")) < DerniereLigne Then
            Range("a" & Rows.Count).End(xlUp)(1) = Cells(i, "b")
        End If
    Next i
End Sub

Si quelqu'un à la solution je suis preneur !
Merci à tous

ccm81 · Answer

Bonjour

Si j'ai compris, ça doit ressembler à çà
Const lideb = 2

Private Sub CommandButton1_Click()
Dim liA As Long, liB As Long, lifinB As Long, derA
liA = Range("A" & Rows.Count).End(xlUp).Row
derA = Range("A" & liA).Value
lifinB = Range("B" & Rows.Count).End(xlUp).Row
For liB = lideb To lifinB
  If Range("B" & liB) > derA Then
    liA = liA + 1
    Range("A" & liA).Value = Range("B" & liB).Value
  End If
Next liB
End Sub
Cdlmnt

Problème programme ajout entre 2 listes

1 réponse

Discussions similaires