Amélioration d'un code

[apt]

Bonsoir à tous,

J'ai un code avec Userform que j'aimerais apporter quelques améliorations.

1 - Il faut renseigner toutes les TextBox

2 - Interdiction de saisir des doublons

 

[apt]

Re : Amélioration d'un code

Bonjour,

Une piste ?

Merci.

 

[apt]

Re : Amélioration d'un code

Bonsoir Jean-Marcel,J'aimerais seulement appliquer la recherche de la valeur TextBox2 dans la colonne B.Pour la vérification des valeurs vides des TextBox, le module de classe est bien fait pour ça, seulement j'ai lu qu'il ne gère pas l'événement Exit.Une solution pour cela ?

 

[apt]

Re : Amélioration d'un code

Re,

Une alternative pour remplacer l'événement Exit dans un module de classe, la gestion du focus :

'---- dans un module de classe nommé Classe1
Option Explicit
 
Public Event GetFocus()
Public Event LostFocus(ByVal Txtbx As String)
Public nomObjActif As String
 
Public Sub cibleFocus(USF As MSForms.UserForm)
With USF
        If TypeName(.ActiveControl) = "TextBox" Then
            nomObjActif = .ActiveControl.Name
            On Error GoTo errorHandler
            Do
                DoEvents
                If .ActiveControl.Name <> nomObjActif Then
                    If TypeName(.ActiveControl) = "TextBox" Then
                        RaiseEvent LostFocus(nomObjActif)
                        nomObjActif = .ActiveControl.Name
                        RaiseEvent GetFocus
                    End If
                End If
            Loop
            End If
End With
 
errorHandler:
Exit Sub
End Sub

'---  dans l'UserForm  ---
Option Explicit
Private WithEvents USF As Classe1
 
Private Sub UserForm_Activate()
    Set USF = New Classe1
 
    TextBox1.SetFocus
    Me.Controls(Me.ActiveControl.Name). _
        Object.BackColor = RGB(200, 200, 200)
 
    USF.cibleFocus Me
End Sub
 
Private Sub USF_GetFocus()
    Me.Controls(Me.ActiveControl.Name). _
        Object.BackColor = RGB(200, 200, 200)
End Sub
 
Private Sub USF_LostFocus(ByVal Txtbx As String)
    Me.Controls(Txtbx).BackColor = RGB(255, 255, 255)
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Set USF = Nothing
End Sub

Trouvé ICI

Source :Controling colors of controls in userform - MrExcel Message Board

à vrai dire, je n'ai rien compris dedans 8O

Une explication et adaptation possible ?

Merci.

 

[apt]

Re : Amélioration d'un code

Bonsoir,

Une explication ?

 

[apt]

Re : Amélioration d'un code

Bonsoir Jean-Marcel,

enfin c'est mon avis

Qu'il soit le bienvenu.

Mais j'aimerais gerer au moins 10 textbox.

Et la gestion de l'évenement Focus remplace l'évenement Exit.

Mais je ne sais pas adapter le code ci-dessus à mon besoin 🙁

 

[apt]

Re : Amélioration d'un code

Bonsoir,

Une suite pour adapter/améliorer ce module de classe ?