Doublons avec formulaire

Bonjour

je dois utiliser un fichier excel pour enregistrer les dossiers entrants dans l'agence. Ce fichier s'alimente par le biais d'un formulaire.

mais j'ai un problème de doublons.

le NIR (= numéro de dossier) ne doit être présent qu'une fois par page

peut-on obtenir un message indiquant que le NIR est déjà présent sur la page (nom dans l'onglet) et sortir du formulaire sans enregistrer la saisie ?

je joins un fichier exemple

merci d'avance

Magali

Bonjour Magali,

La question qui se pose est la suivante :

A quel moment veux-tu être informée que le NIR est déjà présent ...???

Et la feuille dans laquelle le NIR serait déjà présent a-t-elle une importance ... ???

Bonjour James

si j'ouvre mon formulaire lorsque je suis sur la feuille DP : je ne veux qu'une fois le nir sur cette page

si j'ouvre le formulaire lorsque je suis sur la feuille PR : je ne veux qu'une fois le nir sur cette page

le même nir peux être saisi sur la feuille DP, sur la feuille PR, sur la feuille ASPA ... mais pas 2 fois dans la même feuille

pour répondre à ta question c'est lorsque je valide ma saisie par "terminé" ou "continuer" pour enchainer la saisie, que je voudrais être prévenue que le nir existe déjà et surtout que les éléments que j'ai saisis ne soient pas reporter dans le tableau.

merci beaucoup

Bonsoir le fil, bonsoir le forum,

Peut-être comme ça :

Private Sub CommandButton4_Click()

Dim a As Integer

Dim R As Range

'Vérification des formats date ds les txbx.

If Not IsDate(UserForm1.TextBox5.Value) Then

MsgBox "Date incorrecte", vbCritical, ""

UserForm1.TextBox5.Value = ""

UserForm1.TextBox5.SetFocus

Exit Sub

End If

'Vérification des formats date ds les txbx.

If Not IsDate(UserForm1.TextBox6.Value) Then

MsgBox "Date incorrecte", vbCritical, ""

UserForm1.TextBox6.Value = ""

UserForm1.TextBox6.SetFocus

Exit Sub

End If

'Copie des valeurs des textbox

Set R = ActiveSheet.Columns(2).Find(Me.TextBox1.Value, , xlValues, xlWhole)

If Not R Is Nothing Then

MsgBox "Le Nir existe déjà dans cet onglet !"

With Me.TextBox1

.SetFocus

.SelStart = 0

.SelLength = Len(.Value)

End With

Exit Sub

End If

For a = 5 To 5000

If IsEmpty(Cells(a, 2)) Then

Cells(a, 2).Select

Cells(a, 2) = UserForm1.TextBox1.Value

Cells(a, 5) = UserForm1.TextBox2.Value

Cells(a, 6) = UserForm1.TextBox3.Value

Cells(a, 7) = UserForm1.TextBox4.Value

Cells(a, 3) = CDate(UserForm1.TextBox5)

Cells(a, 4) = CDate(UserForm1.TextBox6)

Exit For

End If

Next a

Unload Me

End Sub

Bonsoir ThauThème

ça marche super !!!!

j'ai aussi ajouté ton code sur le bouton continuer et tout fonctionne

un grand merci !