recherche valeur et insertion

Salut lelauxeti,
En supposant que la colonne A est la colonne "référence" et la B celle où se
trouvent les valeurs inscrites journalièrement. Adapte le nom de la feuille
:

Sub AjoutValeur()
Dim Fe As Worksheet
Dim PlgReference As Range
Dim Col As New Collection
Dim Cel As Range
Dim I As Integer
Set Fe = Worksheets("Feuil1") 'adapter le nom
With Fe
Set PlgReference = .Range(.[A2], _
.[A65536].End(xlUp))
'récup des valeur dans une collection
'pour éviter les doublons
On Error Resume Next
For I = 2 To .[B65536].End(xlUp).Row
Col.Add .Range("B" & I).Value, _
CStr(.Range("B" & I).Value)
Next I
On Error GoTo 0
End With
'boucle dans la collection pour
'la recherche, si pas trouvé,
'inscrit la valeur au bas de la
'colonne A (la plage n'est pas
'redimensionnée car inutile)
For I = 1 To Col.Count
Set Cel = PlgReference.Find(Col(I), , xlValues)
If Cel Is Nothing Then
Fe.[A65536].End(xlUp).Offset(1, 0) = _
Col(I) & " : " & Date
End If
Next I
Set Fe = Nothing
Set PlgReference = Nothing
Set Col = Nothing
Set Cel = Nothing
End Sub

Hervé.

"lelauxeti" <brunety@wanadoo.fr> a écrit dans le message news:
06a901c35588$eefb84c0$a401280a@phx.gbl...
Bonjour,

J'ai 2 colonnes : la premiere "reference" et une seconde
avec des données recupérées journalièrement.
Je souhaites effectué un test si les valeurs de la
colonne 2 existe dans la colonne "reference" et si elles
n'y sont pas les inserer dans la colonne "reference" avec
un signe distinctif (ex: date) :

Qui peux m'indiquer la proc. à suivre
Merci

Salut Hervé,

Je te remercie de ta réponse.
Je teste et A+ sur news

Yves

-----Message d'origine-----
Salut lelauxeti,
En supposant que la colonne A est la colonne "référence"
et la B celle où se

trouvent les valeurs inscrites journalièrement. Adapte
le nom de la feuille

:

Sub AjoutValeur()
Dim Fe As Worksheet
Dim PlgReference As Range
Dim Col As New Collection
Dim Cel As Range
Dim I As Integer
Set Fe = Worksheets("Feuil1") 'adapter le nom
With Fe
Set PlgReference = .Range(.[A2], _
.[A65536].End(xlUp))
'récup des valeur dans une collection
'pour éviter les doublons
On Error Resume Next
For I = 2 To .[B65536].End(xlUp).Row
Col.Add .Range("B" & I).Value, _
CStr(.Range("B" & I).Value)
Next I
On Error GoTo 0
End With
'boucle dans la collection pour
'la recherche, si pas trouvé,
'inscrit la valeur au bas de la
'colonne A (la plage n'est pas
'redimensionnée car inutile)
For I = 1 To Col.Count
Set Cel = PlgReference.Find(Col(I), , xlValues)
If Cel Is Nothing Then
Fe.[A65536].End(xlUp).Offset(1, 0) = _
Col(I) & " : " & Date
End If
Next I
Set Fe = Nothing
Set PlgReference = Nothing
Set Col = Nothing
Set Cel = Nothing
End Sub

Hervé.

"lelauxeti" <brunety@wanadoo.fr> a écrit dans le message
news:

06a901c35588$eefb84c0$a401280a@phx.gbl...
Bonjour,

J'ai 2 colonnes : la premiere "reference" et une seconde
avec des données recupérées journalièrement.
Je souhaites effectué un test si les valeurs de la
colonne 2 existe dans la colonne "reference" et si elles
n'y sont pas les inserer dans la colonne "reference" avec
un signe distinctif (ex: date) :

Qui peux m'indiquer la proc. à suivre
Merci



.