RE:recherche

Bonjour Novice,

A ) Il est supposé dans l'exemple que tes n° de recommandes
sont saisis dans le textbox1 et que ces numéros se retrouves
en colonne B:B de la feuille "créance"... si cela ne correspond
pas à ton application... effectue les modifications à la procédure !

B ) Il est supposé que toutes les informations vont se retrouver sur la
même ligne de la feuille "Créance"... d'où cette ligne de code
NoLigne = .Range("a65536").End(xlUp)(2).Row

C ) Évite de même dans cette procédure la commande "Unload UserForm1"
car si seulement un contrôle dans ta procédure de vérification ne correspond
pas aux conditions... toutes les données devront être saisi à nouveau par
l'usager ...Assure-toi que le transfer des données est correctement fait vers
ta feuille de calcul avant de "décharger" le formulaire de la mémoire vive.

'-------------------------------------
Private Sub CommandButton1_Click()

Dim NoLigne As Long
Dim MaVal As String

MaVal = Me.TextBox1.Value
MaVal = Application.WorksheetFunction.Substitute(MaVal, ",", ".")

If Application.WorksheetFunction.CountIf([Créance!b:b], Val(MaVal)) > 0 Then
MsgBox "Numéro déjà existant. Corrigé."
With Me.TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(Me.TextBox1)
End With
Exit Sub
Else
With Sheets("Créance")
NoLigne = .Range("a65536").End(xlUp)(2).Row
.Range("a" & NoLigne) = Me.TextBox1
.Range("c" & NoLigne) = Me.TextBox4
.Range("d" & NoLigne) = Me.ComboBox1
.Range("b" & NoLigne) = "RA" & TextBox3 & "FR"
.Range("e" & NoLigne) = Me.TextBox5
.Range("f" & NoLigne) = Me.TextBox6
.Range("g" & NoLigne) = Me.ComboBox2
.Range("h" & NoLigne) = Me.TextBox7
End With
End If

End Sub
'-------------------------------------


Salutations!




"novice" <pasdepub@numericable.fr> a écrit dans le message de news: 44337965$0$165$a3f2974a@nnrp1.numericable.fr...
bonjour a tous et a toutes

voila j'ai un userform ou je rentre mes n° de recommandées et la date de
reception et je voudrais savoir si il existe un moyen pour ne pas
rentrer

2 fois le meme numero de RA
Par exemple au moment de la validation .
daniel ma donner cette ligne de commande mais je ne doit pas la mettre au

bon endroit?

If WorksheetFunction.CountIf([Créance!b:b], CInt(TextBox3.Value)) > 0 Then
MsgBox "Numéro en double"
pourriez vous m'aider
merci
ha voici mes codes de commande que j'ai deja créer
Private Sub CommandButton1_Click()
Sheets("Créance").Range("a" & _
Range("a65536").End(xlUp).Row + 1) = UserForm1.TextBox1
Sheets("Créance").Range("c" & _
Range("c65536").End(xlUp).Row + 1) = UserForm1.TextBox4
Sheets("Créance").Range("d" & _
Range("d65536").End(xlUp).Row + 1) = UserForm1.ComboBox1
Sheets("Créance").Range("b" & _
Range("b65536").End(xlUp).Row + 1) = "RA" & TextBox3 & "FR"
Sheets("Créance").Range("e" & _
Range("e65536").End(xlUp).Row + 1) = UserForm1.TextBox5
Sheets("Créance").Range("f" & _
Range("f65536").End(xlUp).Row + 1) = UserForm1.TextBox6
Sheets("Créance").Range("g" & _
Range("g65536").End(xlUp).Row + 1) = UserForm1.ComboBox2
Sheets("Créance").Range("h" & _
Range("h65536").End(xlUp).Row + 1) = UserForm1.TextBox7
End If
Unload UserForm1
End Sub