Re : * Bug affichage ComboBox suite effacement *
Bonjour Zeltron et Robert,
Merci à vous deux pour la contribution qui a résolu ma demande !!!
La solution de Zeltron était très pragmatique et l'ajout de Robert a fortifié le tout.
Merci bien a Robert d'avoir repris le code de cet UF, j'ai vu que vous avez simplifier pas mal de lignes.
Avec tout le respect que je vous prie de croire, je vous écris les remarques qui me sont venues à l'esprit en lisant ces modifications.
J'ai bien noté que
utuliser me.Controls("ComboBox" & i)... n'est intéressant que si on boucle sur les contrôles. Sinon autant simplifier par me.ComboBox1...
; je suis vraiment débutant en VBA et j'ai une approche empirique.
Il me semblait que sortir le "I" avait le défaut d'allonger le code mais d'en faciliter la modification ie simplement changer Le I en début de ligne, et pas aller chercher dans les lignes inférieures
ex : dans le code ci-dessous, je change 1 fois le i pour les lignes en dessous..
i = 1
If Not IsDate(Me.Controls("Textbox" & i).Value) Then
MsgBox "Le format de la date est incorrect ou la date est manquante, veuillez la saisir de la manière suivante: JJMMAA ", vbExclamation
Me.Controls("Textbox" & i).Value = ""
Cancel = True
Exit Sub
End If
Ensuite, je suis conscient que j'avais un style de code "aéré" avec des sauts de lignes et tabulations, mais comme je suis novice, cela me permet de bien lire le code et la descente avec les tabulations..
j'ai remarqué que Robert, vous avez plutôt un style plus "dense" qui a l'avantage de tenir moins de place, mais pour moi en tout cas, plus difficile de lecture...
Une
question : est que les lignes "vides'' et les tabulations ralentissent la lecture du code lors de l’exécution du programme ?
J'ai aussi remarqué que Robert, vous avez sorti
Private I As Byte 'déclare la variable I
en déclaration de début de code.
Est ce que
Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
pourrait aussi se déclarer en début, comme une liste de course pour toute la page ?
Voilà, merci encore pour votre aide et avec plaisir pour échanger
DAvid (apprentiVBA)