Problème programme ajout entre 2 listes
titidefdl13
Messages postés
12
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
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
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
1 réponse
-
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
