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
A voir également:
- Problème programme ajout entre 2 listes
- Supercopier 2 - Télécharger - Gestion de fichiers
- Programme demarrage windows - Guide
- 2 ecran pc - Guide
- Ajout rapide snap - Forum Snapchat
- Message programmé iphone - Guide
1 réponse
Bonjour
Si j'ai compris, ça doit ressembler à çà
Cdlmnt
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
