Papynou
XLDnaute Occasionnel
Bonjour,
J'essaye de me servir d'un code de recherche que jai adapté afin d'empêcher la saisie de doublons.
Celui-ci bloque bien à l'enregistrement du USF s'il y a doublon mais Unload le USF alors que je voudrais pouvoir revenir dessus pour remplacer le doublon par une saisie valide.
Private Sub Controle()
Dim Plage As Range, Cell As Range
Dim Feuille As Worksheet
Dim Controle As String
Dim Ligne As Integer
Controle = Txt_NoClient
For Each Feuille In Worksheets
Ligne = Worksheets(Feuille.Name).Range("B65536").End(xlUp).Row
Set Plage = Worksheets(Feuille.Name).Range("B2:B" & Ligne)
For Each Cell In Plage
If Cell.Value Like Controle Then
MsgBox "Ce N° Client existe déjà !"
Exit Sub
End If
Next Cell
Next Feuille
End Sub
Est-ce que quelqu'un a une idée pour le compléter ?
Je me demande si je suis dans la bonne voie ou si il y a un autre moyen pour empêcher la saisie de doublons ?
Merci
@+
J'essaye de me servir d'un code de recherche que jai adapté afin d'empêcher la saisie de doublons.
Celui-ci bloque bien à l'enregistrement du USF s'il y a doublon mais Unload le USF alors que je voudrais pouvoir revenir dessus pour remplacer le doublon par une saisie valide.
Private Sub Controle()
Dim Plage As Range, Cell As Range
Dim Feuille As Worksheet
Dim Controle As String
Dim Ligne As Integer
Controle = Txt_NoClient
For Each Feuille In Worksheets
Ligne = Worksheets(Feuille.Name).Range("B65536").End(xlUp).Row
Set Plage = Worksheets(Feuille.Name).Range("B2:B" & Ligne)
For Each Cell In Plage
If Cell.Value Like Controle Then
MsgBox "Ce N° Client existe déjà !"
Exit Sub
End If
Next Cell
Next Feuille
End Sub
Est-ce que quelqu'un a une idée pour le compléter ?
Je me demande si je suis dans la bonne voie ou si il y a un autre moyen pour empêcher la saisie de doublons ?
Merci
@+