Bonjour
Ce que j'avais fait
J'avais renuméroté toutes les TextBox pour pouvoir les intégrer dans une boucle, mais il y avait un "trou" (les TextBox 28 et 29) donc j'ai créé ces TextBox et je les ai rendu invisibles
De ce fait j'ai pu faire une boucle pour lire toutes les données et les écrire dans les TextBox
Le principe, pour chaque ligne (6 à 30) je lis la valeur, je lis les valeurs des 3 colonnes que je place dans les TextBox correspondantes
For Ligne = 6 To 30
Numero = Numero + 1: Me.Controls("TextBox" & Numero) = .Cells(Ligne, Colonne)
Numero = Numero + 1: Me.Controls("TextBox" & Numero) = IIf(IsDate(.Cells(Ligne, Colonne + 1)), .Cells(Ligne, Colonne + 1), "")
Numero = Numero + 1: Me.Controls("TextBox" & Numero) = IIf(IsDate(.Cells(Ligne, Colonne + 2)), .Cells(Ligne, Colonne + 2), "")
Next Ligne
Tu n'es pas obligé d'adopter le même raisonnement
Tu peux écrire tes 76 lignes pour lire/écrire les données