doublons

[djack7917]

bonjour,

je ne sais pas ou m'adresser, j'ai créé un userform avec un textbox N°SAV, lorsque je valide, j'aimerai que le n° est déja inscrit dans la colonne A qu'un message m'alerte, merci

 

[laetitia90]

Re : doublons

bonjour djack7917
suppose que tu valide avec un bouton dans user

Private Sub CommandButton1_Click()
 Dim c As Range, a As Variant
 For Each c In Range("a1", Cells(Rows.Count, "a").End(xlUp))
 Set a = [a:a].Find(What:=TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not a Is Nothing Then MsgBox " doublons": Exit Sub Else 'autre action
 Next
End Sub

eventuellement faire une boucle en utilisant Dictionary

 

[job75]

Re : doublons

Bonjour djack7917, Laetitia 🙂

Quel utilité la boucle Laetitia, elle fait toujours le même test 😕

Et perso je préfère CountIf (NB.SI) à Find...

Private Sub CommandButton1_Click()
If Application.CountIf([A:A], Textbox1) Then
  MsgBox "doublons"
  Textbox1 = ""
  Textbox1.SetFocus 'donne le focus
  Exit Sub
End If
'suite du code
End Sub

A+

 

[laetitia90]

Re : doublons

re , bonjour l'ami Job
bien vu ...fait trop rapidement pas mis le cerveau en route🙁
bisous a+ leti