Valeur existe déja

Sub ChercheDonnee()
Dim Val() As String 'déclare le tableau de variables Val
Dim Cel As Range 'déclare la variable Cel
Dim x As Integer, y As Integer 'déclare les variables x et y

x = 0 'définit la variable x
'remplissage du tableau de variables Val
'boucle sur toutes les cellules éditée Cel de la colonne A
For Each Cel In Range('A7:A' & Range('A65536').End(xlUp).Row)
ReDim Preserve Val(x) 'redimensionne le tableau Val
Val(x) = Cel.Value 'ajoute la valeur de la cellule au tableau Val
x = x + 1 'redéfinit la variable x
Next Cel 'prochaine cellule Cel de la colonne A


ChDir 'C:\\Temp'
Workbooks.Open Filename:='C:\\Test.xls'

'vérifie la cellule A1 avec toutes les valeurs du tableau Val
For y = LBound(Val, 1) To UBound(Val, 1)
'condition : si cellule A1 correspond à une valeur du tableau Val
If Val(y) = Range('A1').Value Then
MsgBox 'Cette valeur existe déjà!' 'message
Exit Sub 'sort de la procédure
End If 'fin de la condition
Next y

Range('A1:O1').Select
Selection.Copy
ActiveWorkbook.Close
Range('A65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

Cliquez pour agrandir...