Discussion :

[gipn14]

Bonjour,
je solocite votre aide car je ne trouve pas de solution à mon problème sur le net.

voici une photo ci-dessous pour mieux cerner le probleme.


à partir d'un usf, j'insère des données de test sur ma feuille en photo, (des résultats) je peux avoir de 1 à X lignes de résultat. lorsque cette insertion est terminée, je voudrais insérer dans les colonnes de A à K des infos sur le test et que l'info soit dans une cellule fusionné qui aille du premier résultat au dernier comme sur la photo ci-dessous


c'est à dire que si j'ai 10 résultats, je dois avoir les cellules qui vont en fusion jusqu'à la 10eme lignes. cependant, je n'arrive pas à trouver la solution à ce problème.

voici mon code qui insère les donnée dans la feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton2_Click()
' verifier que les box sont renseignes
If ComboBox2.Value = "" Or ComboBox3.Value = "" Or ComboBox4.Value = "" Or ComboBox5.Value = "" Or ComboBox6.Value = "" Or ComboBox7.Value = "" Then
 MsgBox (" vous avez oublies des données")
 
 Else
' insert les resultats dans la feuille resultat temps
Worksheets("resultat temp").Rows("1:1").Insert
        Worksheets("resultat temp").Cells(1, 12) = Val(ComboBox2.Value)
        Worksheets("resultat temp").Cells(1, 13) = Val(ComboBox4.Value)
        Worksheets("resultat temp").Cells(1, 14) = Val(ComboBox6.Value)
        Worksheets("resultat temp").Cells(1, 15) = Val(ComboBox3.Value)
        Worksheets("resultat temp").Cells(1, 16) = Val(ComboBox5.Value)
        Worksheets("resultat temp").Cells(1, 17) = (Val(ComboBox4.Value) + Val(ComboBox6.Value) + Val(ComboBox3.Value) + Val(ComboBox5.Value)) / 4
        Worksheets("resultat temp").Cells(1, 18) = ComboBox7.Value
 
 
        ComboBox2.Value = ""  ' vide les box
        ComboBox3.Value = ""
        ComboBox4.Value = ""
        ComboBox5.Value = ""
        ComboBox6.Value = ""
        ComboBox7.Value = ""

je précise que c'est une feuille temp qui permet d'affiche dans une listbox les données que on insert. et quand tout est correct ces resultats doivent aller dans une autre feuille pour rejoindre d'autres résultats de test.


Cordialement
Gipn