Récuperer des données entre userform et base de données

[zefirstfan]

Bonjour a tous,
Je bute sur un probleme de récuperation de données entre un userform et un tableau.Tout est expliqué dans le fichier ci-joint
Merci d'avance pour votre aide précieuse.

 

[Dranreb]

Re : Récuperer des données entre userform et base de données

Bonjour.
Code de l'Userform :

Option Explicit
Dim TNotes()

Private Sub ComboBox1_Change()
Dim N As Long
TNotes = [ELEVES].Rows(Me.ComboBox1.ListIndex + 1).Offset(, 1).Resize(, 125).Value
For N = 1 To 4 ' 125
   Me.Controls("TextBox" & N).Text = TNotes(1, N)
   Next N
End Sub

Private Sub CommandButton1_Click()
Dim N As Long
For N = 1 To 4 ' 125
   TNotes(1, N) = CDbl(Me.Controls("TextBox" & N).Text)
   Next N
[ELEVES].Rows(Me.ComboBox1.ListIndex + 1).Offset(, 1).Resize(, 125).Value = TNotes
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Edit: Bonjour Jean-Marcel

 

[zefirstfan]

Re : Récuperer des données entre userform et base de données

Bonjour,
Merci pour votre rapidité
Je vais essayer de l'adapter a mon fichier et je reviens vers vous en cas de point bloquant.
Merci encore

 

[zefirstfan]

Re : Récuperer des données entre userform et base de données

Bonjour,
Apres quelques balbutiements et modifications, j'ai reussi a finaliser suite aux infos fournies hier.
Ca marche super bien.
Merci encore.
Je bloque juste sur un point concernant le report de données entre la base et une fiche.
Je voulais utiliser Index / Equivalent mais je trouve ça long.
Les explications sont sur le fichier joint.
Merci d'avance.

 

[Dranreb]

Re : Récuperer des données entre userform et base de données

J'ai l'impression, depuis quelques temps, qu'avec ces nouvelles versions d'Excel, on a très vite fait d'enregistrer un .xlsx au lieu d'un .xlsm si on fait pas gaffe. Me trompé-je ?
Et j'espère alors qu'il y a moyen de la paramétrer de sorte que si on fait pas gaffe il prenne .xlsm par défaut…