Problème programme ajout entre 2 listes

Fermé

titidefdl13 Messages postés 12 Date d'inscription dimanche 24 février 2013 Statut Membre Dernière intervention 22 juin 2018 - 22 juin 2018 à 12:15
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 22 juin 2018 à 15:44

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

A voir également:

Problème programme ajout entre 2 listes
Programme demarrage windows 10 - Guide
2 comptes whatsapp - Guide
Programme démarrage windows 10 - Guide
2 ecran pc - Guide
Ajout rapide snap - Forum Snapchat

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
22 juin 2018 à 15:44

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

Discussions similaires

programme qui n'affiche pas le mot secret

Qui sont les personnes dans mon ajout rapide de Snapchat ?

Comment savoir comment on nous a ajouté sur Snap

TV LG affiche le carré non programmé

GWXUX a cessé de fonctionner

Discussions similaires

Newsletters