Textbox , recherche et et msg d'alerte

Claudy · 1 Novembre 2012

Bonjour à tous,
Un tableau et des numéros de facture (Colonne A)....
Un userform à remplir...
Le textbox1 désigne le numéro de facture, si le gestionnaire rempli ce textbox et que la ligne (par exemple colonne B) est déjà remplie un msgbox ("Ce numéro de facture est déjà utilisé")
J'ai essayé ceci , mais ça bug!

Private Sub TextBox1_Change()

For i = 2 To 100
If Cells(i, 1).Value = CDbl(TextBox1.Value * 1) Then
Exit For
Cells(i, 2).Select
If Cells(i, 2).Value > 0 Then 'Test si la colonne B est vide
MsgBox "Ce numéro de facture est déjà utilisé"
TextBox1 = "" 'Réinitialisation du text box
TextBox1.SetFocus 'Pour revenir sur text box
End If
Next
End Sub'''''''Merci d'avance, Claudy

MJ13 · 2 Novembre 2012

Re : Textbox , recherche et et msg d'alerte

Bonjour à tous

Même si j'ai pas trop compris le sens du fcihier, une autre proposition plus simple .

xhudi69 · 2 Novembre 2012

Re : Textbox , recherche et et msg d'alerte

Bonsoir MJ13, le Forum

comme au rugby on revient aux fondamentaux, en PJ ton fichier qui fonctionne pour une partie de ta question, si tu veux plus......soit clair dans tes questions.

attention au format de tes cellules colonne "A"
@+

Si... · 3 Novembre 2012

Re : Textbox , recherche et et msg d'alerte

salut

Si... tu veux garder ton format personnalisé, essaie :

Code:

Private Sub TextBox1_AfterUpdate()
  Dim C As Range
  If TextBox1 = "" Then Exit Sub
  Set C = Columns(1).Find(Val(Right(TextBox1, 4)))
  If C Is Nothing Then Exit Sub
  If Cells(C.Row, 2).Value <> "" Then
    MsgBox "Ce numéro de facture est déjà utilisé !", vbCritical, "Attention"
    TextBox1.BackColor = &H8000000A
    If MsgBox("nn le garde ?", vbYesNo, "Maintenant,") = vbNo Then
      TextBox1 = ""
      TextBox1.BackColor = &H8000000F
      Exit Sub
    End If
  End If
End Sub

Textbox , recherche et et msg d'alerte

Claudy

XLDnaute Accro

MJ13

XLDnaute Barbatruc

Pièces jointes

xhudi69

XLDnaute Accro

Pièces jointes

Si...

XLDnaute Barbatruc

Discussions similaires