doublon fenetre freeze et en double

damdamdeo44

XLDnaute Nouveau
bonjour,

c'est encore moi

cette fosi mon code porte sur la gestion de doublon.
j'ai deux textbox avec deux codes sur la gestion de doublon.
j'ai fais en sorte que lorsque il y a doublon une fanetre s'ouvre pour aller sur le userform de modification.

là ais deux bugs !!!

1 - il me mets deux fosi l'alerte !!(sorte de boucle)
2 - il me copies bien la valeur du userform où il ya la gestion de doublon pour la mettre dans la textbox appropriée du userform de modification mais là il plante uen fosi sur deux :

fenetre userform doublon reste ouvert et freeze
fenetre de modification en double !

merci de votre aiden car ej ne vosi pas où il peut y avoir boucle et pourquoi il freeze

voici le code pour un texbox

Private Sub FORMA_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

Dim Recherche As String
Dim Ligne As Integer
Dim plage, C As range

Recherche = FORMA.Value
range("F8").Select
Ligne = Sheets("Suivi NC").range("F" & "65536").End(xlUp).Row

Set plage = Sheets("Suivi NC").range("F" & "8:" & "F" & Ligne)

With plage
Set C = .Find(Recherche, LookIn:=xlValue, lookat:=xlWhole)

If C Is Nothing Then
Exit Sub
End If

If Not C Is Nothing Then
rep = MsgBox("Cette Non Conformité est déjà référencée! Veuillez vous rendre à l'écran de modification. Merci", vbYesNo, "Attention Doublon")

If rep = vbYes Then

MODIF.Tforma.Value = C.Value
Enregistrement.Hide
MODIF.Show
FORMA.Value = ""

Exit Sub

If rep = vbNo Then
Me.FORMA.Text = ""
Unload Me
MENU.Show
Exit Sub
End If
End If
End If

End With
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 920
Messages
2 093 639
Membres
105 768
dernier inscrit
Luc Juvénal YAMBASSA