Eléments commun à 2 listes
c
Bonjour,
Mon problème avec cette macro, elle plante au niveau de la ligne rouge si il n'y pas de communs dans mes 2 listes
Sub Com()
a = Range("AB52:AB55")
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In a
If Not MonDico1.exists(c) Then MonDico1.Add c, c
Next c
b = Range("AC52:AC55")
Set MonDico2 = CreateObject("Scripting.Dictionary")
For Each c In b
If MonDico1.exists(c) Then If Not MonDico2.exists(c) Then MonDico2.Add c, c
Next c
[CB12].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.items)
end Sub
Edit de Nad : Suppression du lien publicitaire
Que faut il changer ou rajouter pour corriger cela ?
D'avance merci de votre aide
Bonjour
En testant le nombre d'élément dans MonDico2
De mémoire
If MonDico2.Count>0 Then
[CB12].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.items)
End IfBonne journée
c
Merci, c'est tout bon !