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
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