Le but est de comparer un élément à une liste quelconque : si l'élément se
trouve dans la liste on ne fait rien sinon on l'ajoute
Par exemple : je colle une mini liste de 5 éléments en D2:D6
Ma liste générale se trouve en colonne K par exemple et comporte n lignes
Le but est de vérifier si D2 est déjà répertorié en col K, sinon on
l'ajoute, idem Pour D3 etc.
Le but est de comparer un élément à une liste quelconque : si l'élément se trouve dans la liste on ne fait rien sinon on l'ajoute
Par exemple : je colle une mini liste de 5 éléments en D2:D6 Ma liste générale se trouve en colonne K par exemple et comporte n lignes Le but est de vérifier si D2 est déjà répertorié en col K, sinon on l'ajoute, idem Pour D3 etc.
Merci de l'aide que vous pourrez m'apporter.
Cordialement
Franck
En fait c'est bon, voici la macro que j'ai faite
For i = 2 To [B65536].End(xlUp).Row
Range("D" & i).Select
For j = 2 To [B65536].End(xlUp).Row
If Range("D" & i).Value = Range("K" & j).Value Then
Le but est de comparer un élément à une liste quelconque : si l'élément se
trouve dans la liste on ne fait rien sinon on l'ajoute
Par exemple : je colle une mini liste de 5 éléments en D2:D6
Ma liste générale se trouve en colonne K par exemple et comporte n lignes
Le but est de vérifier si D2 est déjà répertorié en col K, sinon on
l'ajoute, idem Pour D3 etc.
Le but est de comparer un élément à une liste quelconque : si l'élément se trouve dans la liste on ne fait rien sinon on l'ajoute
Par exemple : je colle une mini liste de 5 éléments en D2:D6 Ma liste générale se trouve en colonne K par exemple et comporte n lignes Le but est de vérifier si D2 est déjà répertorié en col K, sinon on l'ajoute, idem Pour D3 etc.
Merci de l'aide que vous pourrez m'apporter.
Cordialement
Franck
ChrisV
Bonjour Franck,
Sub zaza() Dim c As Range, r As Long Application.ScreenUpdating = False derL = [K65535].End(xlUp).Row r = 0 For Each c In Range("D2:D" & [D65536].End(xlUp).Row) Set cH = Range("K1:K" & [K65536].End(xlUp).Row).Find(c) If cH Is Nothing Then r = 1 + r Cells(r + derL, 11) = c End If Next c MsgBox "Traitement effectué...!" Set cH = Nothing End Sub
ChrisV
"Franck" a écrit dans le message de news:
Bonjour,
Je voudrais écrire la macro suivante.
Le but est de comparer un élément à une liste quelconque : si l'élément se trouve dans la liste on ne fait rien sinon on l'ajoute
Par exemple : je colle une mini liste de 5 éléments en D2:D6 Ma liste générale se trouve en colonne K par exemple et comporte n lignes Le but est de vérifier si D2 est déjà répertorié en col K, sinon on l'ajoute, idem Pour D3 etc.
Merci de l'aide que vous pourrez m'apporter.
Cordialement
Franck
Bonjour Franck,
Sub zaza()
Dim c As Range, r As Long
Application.ScreenUpdating = False
derL = [K65535].End(xlUp).Row
r = 0
For Each c In Range("D2:D" & [D65536].End(xlUp).Row)
Set cH = Range("K1:K" & [K65536].End(xlUp).Row).Find(c)
If cH Is Nothing Then
r = 1 + r
Cells(r + derL, 11) = c
End If
Next c
MsgBox "Traitement effectué...!"
Set cH = Nothing
End Sub
ChrisV
"Franck" <Franck@discussions.microsoft.com> a écrit dans le message de news:
44017B38-B43B-41F7-BC6D-502EF6F0F7F1@microsoft.com...
Bonjour,
Je voudrais écrire la macro suivante.
Le but est de comparer un élément à une liste quelconque : si l'élément se
trouve dans la liste on ne fait rien sinon on l'ajoute
Par exemple : je colle une mini liste de 5 éléments en D2:D6
Ma liste générale se trouve en colonne K par exemple et comporte n lignes
Le but est de vérifier si D2 est déjà répertorié en col K, sinon on
l'ajoute, idem Pour D3 etc.
Sub zaza() Dim c As Range, r As Long Application.ScreenUpdating = False derL = [K65535].End(xlUp).Row r = 0 For Each c In Range("D2:D" & [D65536].End(xlUp).Row) Set cH = Range("K1:K" & [K65536].End(xlUp).Row).Find(c) If cH Is Nothing Then r = 1 + r Cells(r + derL, 11) = c End If Next c MsgBox "Traitement effectué...!" Set cH = Nothing End Sub
ChrisV
"Franck" a écrit dans le message de news:
Bonjour,
Je voudrais écrire la macro suivante.
Le but est de comparer un élément à une liste quelconque : si l'élément se trouve dans la liste on ne fait rien sinon on l'ajoute
Par exemple : je colle une mini liste de 5 éléments en D2:D6 Ma liste générale se trouve en colonne K par exemple et comporte n lignes Le but est de vérifier si D2 est déjà répertorié en col K, sinon on l'ajoute, idem Pour D3 etc.
