Remplir plusieurs tableaux avec un userform Résolu/Fermé

Question

Bonjour, Je me tourne une nouvelle fois vers vous pour accroître une nouvelle fois mes connaissances...

J'aimerai réussir à remplir plusieurs tableaux à partir du formulaire que je suis entrain de créer.

J'explique en bref et je joint un brouillon pour essayer d'être le plus clair possible.. mais j'avoue que cela n'est pas toujours évident ^^

Je dois calculer des productivités et pour ce faire j'aimerai que lorsque des employés remplissent le userform, les tableaux de la feuille "data" se complétent en fonction de leurs numéros de personnel(ma textbox1). C'est à dire qu'excel "switch" de tableau à chaque fois qu'il voit un numéro différent. Voilà ce dont je me sert pour remplir le premier tableau mais je bloque sur la manière de pouvoir compléter les autres sans passer par énormément de "if". 

Private Sub valider_Click()

Dim dlt As Integer

If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Then
MsgBox ("Il manque des informations!")
GoTo 1
End If


If MsgBox("Ajouter les données?", vbYesNo, "Confirmation") = vbYes Then
dlt = Sheets("data").Range("B29").End(xlUp).Row + 1
Sheets("data").Cells(5, 2) = TextBox1
Sheets("data").Cells(dlt, 2) = Now()
Sheets("data").Cells(dlt, 3).NumberFormat = "hh:mm"
Sheets("data").Cells(dlt, 3) = Now()
Sheets("data").Cells(dlt, 4) = TextBox1
Sheets("data").Cells(dlt, 5) = TextBox2
Sheets("data").Cells(dlt, 6) = TextBox3
End If

    Unload Me
    Useform1.Show
1
End Sub

Je ne suis pas un grand habitué de vba mais j'y travaille ^^


Merci à vous

https://mon-partage.fr/f/Y9Y6AA0b/



Configuration: Windows / Chrome 64.0.3282.140

gbinforme · Answer

Bonjour, 

Tu peux changer de tableau en mettant l'adresse dans ta liste employés.

Cependant je ne pense pas que tes tableaux soient une bonne solution car ils vont te compliquer la vie sans utilité. Je pense que tu devrais tout mettre dans le même tableau et si tu veux te créer la visualisation d'un employé, ce sera très simple sur une autre feuille par exemple avec une simple filtre élaboré avec une ligne de code.

 Enfin c'est toi qui décide car je ne connais pas ton cahier des charges.

julia Namor · Answer

Bonsoir
Voila le fichier modifié selon ta demande 
c'est vrai que l'on pourrait faire plus intuitif avec un seul tableau et un filtre élaboré.
Mais faudra peut être repenser ton projet.

https://www.cjoint.com/c/HBmvMbyAL3D
bien cordialement

julia Namor · Answer

,,,
peux tu envoyer un tableau "fait main" qui montre ce que tu veux. On y verrait un peu plus clair
pour l’édition des codes.

julia Namor · Answer

Bonsoir
 J'ai modifié le fichier .
Attention: la ligne jaune est cruciale
https://www.cjoint.com/c/HBovosNALWE
bien cordialement

julia Namor · Answer

Bonjour
Voila le code modifié 

Private Sub Chercher_Click()If TextBox1 = "" Then    MsgBox "Veuillez entrer un numéro de course!", vbInformation + vbOKOnly, "Numéro de course invalide"    GoTo 1End IfIf WorksheetFunction.CountIf(Sheets("Données").Range("b:b"), Me.TextBox1.Value) = 0 Then    MsgBox "Le numéro de course n'existe pas!", vbInformation + vbOKOnly, "Numéro de course invalide"    TextBox1 = ""    GoTo 1Else    Me.TextBox2 = Application.WorksheetFunction.VLookup((TextBox1), Sheets("Données").Range("B2:G360"), 2, 0)    Me.TextBox2.Value = CDate(Me.TextBox2.Value)    Me.TextBox3 = Application.WorksheetFunction.VLookup((TextBox1), Sheets("Données").Range("B2:G360"), 3, 0)    Me.TextBox3.Value = Format(Me.TextBox3, "hh:mm")    Me.TextBox4 = Application.WorksheetFunction.VLookup((TextBox1), Sheets("Données").Range("B2:G360"), 4, 0)    Me.TextBox5 = Application.WorksheetFunction.VLookup((TextBox1), Sheets("Données").Range("B2:G360"), 6, 0)    Me.TextBox6 = Application.WorksheetFunction.VLookup((TextBox1), Sheets("Données").Range("B2:G360"), 5, 0)End If1End Sub