Recherche présence de référence dans liste

[mfb]

Bonjour et bonne semaine à tous.
Le petit fichier joint permet d' insérer des références saisies, via un Usf, dans une liste existante. Afin d' éviter quelque mésaventure il serait nécessaire de faire appaitre un Msg d' alerte lors de l' insertion d' une nouvelle référence si cette dernière existe déja.
Comment faire ? car malgrès la richesse du forum je n' ai pas réussi à trouver d' indication.
Merci par avance et A+
Daniel

 

[SergiO]

Re : Recherche présence de référence dans liste

Bonjour mfb

Voici une solution pour vérifier la présence de la référence A

'Nouvelle référence Club
'------------------------------------
'Vérification de la présence de la référence A
nb = Application.WorksheetFunction.CountIf(Sheets("Feuil2").Range("D2:D350"), TextBox1.Value)
If nb > 0 Then
Message = MsgBox("Cette référence existe déjà.", vbExclamation, "Saisie refusée")
Else
'------------------------------------
'Saisies des données

Feuil2.Cells(350, 4) = TextBox1.Value
Feuil2.Cells(350, 6) = TextBox2.Value
Feuil2.Cells(350, 7) = TextBox3.Value
Feuil2.Cells(350, 8).FormulaR1C1 = "=SUM(RC[-4]:RC[-2])"
End If

'[COLOR=Red]...Suite du code[/COLOR]
'-----------------------------------

@+

 

[mfb]

Re : Recherche présence de référence dans liste

Bonjour Sergio.
Rapidité et simplicité font bon ménage avec efficacité car le code proposé marche alors,
Merci à toi Sergio ainsi qu' à tous ceux qui ont Zieuté mon fil.
Bonne journée.
Daniel

 

[mfb]

Re : Recherche présence de référence dans liste

Bonsoir à Tous et à .......Toutes.
Grace à Sergio j' ai pu remodeler le code de recherche du 1er fichier, sauf que le message "référence déja existante" s' affiche même quand cela n' est pas le cas.
Un petit coup de pouce de votre part pour faire disparaitre ce maudit message serait le bien venu.
En Pj le fichier revu sous indice 2
A+
Daniel

 

[SergiO]

Re : Recherche présence de référence dans liste

Bonsoir Daniel,

Un petit oubli dans le code (en rouge):

...
Range("A1").Select
 [COLOR=Red]Exit Sub[/COLOR]
'--------------------------------
'Réinit formulaire de saisie nouvelle refce

...

Bonne soirée

 

[mfb]

Re : Recherche présence de référence dans liste

Sergio rebonsoir.
Pour un Pro 3 minutes pour résoudre le Pb.
Pour un amateur 3 jours de galère ... sans succès.
Avant l' ajout d' Exit Sub j' ai rajouté les 3 lignes de remise à "" des TextBox.
Et cette fois c' est bon.
Encore merci.
A+
Daniel