Bonjour à toutes et tous,
Voici ce pourquoi je fais appel à votre aide :
J'ai un formulaire qui me permet de renseigner une base de données :
- sur une feuille base j'enregistre les données d'identité
- sur une feuille tests j'enregistre les résultats de tests multiples (plusieurs lignes pour une même identité)
Je souhaite pouvoir récupérer dans le formulaire les données déjà présentes sur la feuille test lorsque j'utilise le formulaire pour afficher les données d'une personne, ces données doivent apparaître dans des TextBox sur un multipage (3 séries de tests = 3 onglets du multipage, et 5 TextBox sur chaque onglet pour les valeurs du test à renseigner (ou déjà existante). Ainsi je pourrais "reprendre" la saisie commencée mais non terminée pour une identité donnée, au final, en enregistrant il faudrait que seules les nouvelles données (celles qui n'étaient pas présentes dans le classeur sur la feuille tests soient enregistrées).
J'ai essayé de créer une boucle afin de tester si dans une ligne de la colonne A sur la feuille tests on trouvait la référence et dans l'affirmative de reporter les valeurs en colonne pour cette ligne dans les textbox du formulaire mais mon code n'est pas efficace.
Je vous met en pièce-jointe le fichier qui réalise les enregistrements des données que je voudrais pouvoir modifier.
Merci beaucoup pour votre aide.
Voici ce pourquoi je fais appel à votre aide :
J'ai un formulaire qui me permet de renseigner une base de données :
- sur une feuille base j'enregistre les données d'identité
- sur une feuille tests j'enregistre les résultats de tests multiples (plusieurs lignes pour une même identité)
Je souhaite pouvoir récupérer dans le formulaire les données déjà présentes sur la feuille test lorsque j'utilise le formulaire pour afficher les données d'une personne, ces données doivent apparaître dans des TextBox sur un multipage (3 séries de tests = 3 onglets du multipage, et 5 TextBox sur chaque onglet pour les valeurs du test à renseigner (ou déjà existante). Ainsi je pourrais "reprendre" la saisie commencée mais non terminée pour une identité donnée, au final, en enregistrant il faudrait que seules les nouvelles données (celles qui n'étaient pas présentes dans le classeur sur la feuille tests soient enregistrées).
J'ai essayé de créer une boucle afin de tester si dans une ligne de la colonne A sur la feuille tests on trouvait la référence et dans l'affirmative de reporter les valeurs en colonne pour cette ligne dans les textbox du formulaire mais mon code n'est pas efficace.
Code:
With Sheets("tests")
For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row
If .Cells(i, 1) = TextBox1 Then
If .Range("C" & i).Value = Frame1.Caption Then
If .Range("E" & i).Value = Label15.Caption Then
End If
End If
End If
If .Cells(ModifLigne, 1) = TextBox1 Then
If .Range("C" & Mi).Value = Frame1.Caption Then
If .Range("E" & i).Value = Label16.Caption Then
TextBox6 = .Range("F" & ModifLigne).Value
End If
If .Range("E" & i).Value = Label17.Caption Then
TextBox7 = .Range("F" & i).Value
End If
If .Range("E" & i).Value = Label18.Caption Then
TextBox8 = .Range("F" & i).Value
End If
If .Range("E" & i).Value = Label19.Caption Then
TextBox9 = .Range("F" & i).Value
End If
End If
End If
Next
End With
Je vous met en pièce-jointe le fichier qui réalise les enregistrements des données que je voudrais pouvoir modifier.
Merci beaucoup pour votre aide.
Pièces jointes
Dernière édition: