Insertion des données depuis un userform

Bonjour le forum ! En ce moment j'ai un souci, j'ai classeur qui a 3 feuilles j'aimerais sur ma feuille (BD) qui a en colonne les codes enseignants (F5, F8, F6 et F1) et en ligne les dates, remplir depuis mon userform le nombre d'heures effectuées d'un enseignant par rapport à une date sélectionnée .

Ci-joint mon fichier

Bonjour Mapola, bonjour le forum,

Essaie comme ça :

Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des valeurs)
Dim LI As Integer 'déclare la variable LI (LIgne)
Dim COL As Integer 'déclare la variable COL (COLonne)

Set O = Worksheets("BD") 'définit l'onglet O
TV = O.Range("A9").CurrentRegion 'définit le tableau des valeurs TV
LI = Me.ComboBox1.ListIndex + 11 'définit la ligne LI
COL = O.Rows(9).Find(Me.ComboBox2.Value, , xlValues, xlWhole).Column 'définit la colonne COL (recherche le valeur exacte de la ComboBox1 dans la ligne 9 de l'onglet O)
O.Cells(LI, COL).Value = Me.TextBox1.Value 'renvoie dans la cellule ligne LI colonne COL de l'onglet O la valeur de la TextBox1
End Sub

Bonjour Thauthéme, tous,

Cà fonctionne bien, ton code mais avec

Private Sub combobox1_change()
ComboBox1 = Format(ComboBox1.Value, "dd/mm/yy")
End Sub

pour voir la date en format date.

Par contre plus de nouvelle du demandeur, çà doit sûrement être bon pour lui

A+

Bonjour le fil, bonjour le forum,

C'est pas faux Fronck !

Bonjour ThauThème! Bonjour Fronck! Merci pour vos solutions et désolé de répondre maintenant, j'avais un problème avec ma connexion Wi-Fi. Ça vient d'être réparé et là je vois aussi que vous m'avez aidé... Encore une fois merci à vous, ça fonctionne bien.

Le seul problème est quand j'initialise le format du combobox en format date, le nombre d'heure effectué va seulement s'insérer sur la ligne 10 peut importe la date que je vais choisir

Re,

En effet la propriété ListIndex de la ComboBox1 n'est plus valable après le formatage de cette combobox.

Remplace l'ancien code par :

Private LI As Integer 'déclare la variable LI

Private Sub combobox1_change() 'au changement dans la ComboBox1
LI = IIf(LI = 0, Me.ComboBox1.ListIndex + 11, LI) 'définit la ligne LI
ComboBox1 = Format(ComboBox1.Value, "dd/mm/yy") 'formate la ComboBox1
End Sub

Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim COL As Integer 'déclare la variable COL (COLonne)

Set O = Worksheets("BD") 'définit l'onglet O
COL = O.Rows(9).Find(Me.ComboBox2.Value, , xlValues, xlWhole).Column 'définit la colonne COL (recherche le valeur exacte de la ComboBox1 dans la ligne 9 de l'onglet O)
O.Cells(LI, COL).Value = Me.TextBox1.Value 'renvoie dans la cellule ligne LI colonne COL de l'onglet O la valeur de la TextBox1
Unload Me 'vide et ferme l'UserForm en cours
End Sub

Merci ThauThème ! Cela fonctionne bien.