test si existe

[dietrich]

Bonjour,

J'ai besoin d'une macro qui me permette de saisir une valeur numetique
dans une Inputbox (ça c'est pas trop dur) et ensuite tester si cette
valeur existe dans une colonne existante (rechercve V ??) nous dire qu'elle existe et si nonajouter cette nouvelle valeur à la prochaine ligne vide, de la meme colonneévidemment !!
Merci beaucoup pour votre aide et j'espere à bientôt

Coudoulis

 

[Robert]

Salut Dietrich, salut le forum,

la macro ci-dessous fonctionne pour la colonne A. Adapte-la à ton cas.

Sub Macro1()
Dim a As Variant 'déclare la variable a
Dim b As Single 'déclare la variable b
a = InputBox("Tapez une valeur") 'définit la variable a
b = Val(a) 'définit la variable b
'boucle sur toutes les cellules non vides de la colonne A (à adapter)
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
'condition : si la cellule est égale à b
If cel.Value = b Then
cel.Select 'sélectionne la cellule
Selection.Interior.ColorIndex = 3 'colorie la cellule de rouge
MsgBox "Cette valeur exsite déjà !" 'message d'alerte
Selection.Interior.ColorIndex = 0 'supprime la couleur
Exit Sub 'sort de la procédure
End If 'fin condition
Next cel 'prochaine cellule de la boucle
'sélectionne la première cellule vide et y place la valeur tapée
If Range("A1") = "" Then 'si A1 est vide
Range("A1") = a
Else 'sinon
Range("A65536").End(xlUp).Offset(1, 0).Value = a
End If
End Sub[/]b]

À plus,

Robert