ReBonjour Yvan, salut le Forum
Bon, voilà déjà des Bugs saisis à la volé, car je n'arrive pas à faire tourner ce UserForme même qu'une seule fois !! (lol)
SLocataires_Click > BUG Si fichier "Base de donnees.xls" déjà ouvert !!
FAIRE UN TEST (voilà celui de la démo si dessus
Dim Classeur As Workbook
For Each Classeur In Workbooks
If Classeur.Name = "Base1.xls" Or Classeur.Name = "Base2.xls" Then
Classeur.Close -1
End If
Next
ButNouveau_Click > BUG Si TxtNom n'est pas Enabled, la methode TxtNom.SetFocus plante
Et c'est comme ceci sur toutes les TexBox !!! toutes not enabled alors que tu envoies le Focus dessus !!
FAIRE UNE ANALYSE (Chronologie des évènements)
Enfin j'arrète là car il y a pas mal de boulot encore là dessus, mais ce qui est sur c'est que ta Base de Donnée s'ouvre à chaque fois de la manière dont tu as fais ! Il faut impérativement la refermer quand avant que tu ne réactives le Userform qui va l'ouvrir en mode Hidden...
Sinon dans les Démos de Contact Manager V2.01 ou V2.02 tu as aussi une méthode pour boucler sur les controls plutot que ces pavés interminables de :
With TxtPrenom
.Value = ""
.Enabled = False
End With
ou de :
LblLocat.BackColor = RGB(255, 255, 150)
LblColocat.BackColor = RGB(255, 255, 150)
Lblnumero.BackColor = RGB(255, 255, 150)
LblNom.BackColor = RGB(255, 255, 150)
... Je te conseille de regarder....
Bon Courage
@+Thierry