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

[pgz]

Bonsoir.

Si la feuille à modifier s'appelle "Resultat" et si tes données commencent en colonne L, tu peux essayer

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
Sub subMerge()
Dim oRng As Excel.Range
Dim iNbLign As Integer
Dim j As Integer
 
Set oRng = ThisWorkbook.Worksheets("Resultat").Range("L1").CurrentRegion
iNbLign = oRng.Rows.Count
 
For j = 1 To 11
    Set oRng = ThisWorkbook.Worksheets("Resultat").Range("A1").Offset(0, j - 1)
    oRng.Value = "Info " & j
    Set oRng = oRng.Resize(iNbLign)
    oRng.Merge
    oRng.VerticalAlignment = xlCenter
    oRng.HorizontalAlignment = xlCenter
Next j
 
Set oRng = Nothing
 
End Sub

Cordialement,

PGZ

[gipn14]

Salut pgz

merci pour le code,
je ne l'ai pas encore testé, mais que fait -il ?
- il fusionne les celulles de la colonne 1 à 11 c'est ca ?
- que signifie le "info" ?


cordialement

[Deuzz]

Bonjour

- que signifie le "info" ?

C'est ce que tu as toi-même inscrit dans les cases fusionnées

[gipn14]

ah non, enfaite, à la place de ce mot ya des données : des chiffres. j'ai ecris info pour aller plus vite enfaite. ^^

[Deuzz]

ah non, enfaite, à la place de ce mot ya des données

J'imagine bien... Mais tu ne vas tout de même pas reprocher à pgz d'avoir précisément répondu à ta requête...

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

[pgz]

Bonjour à tous

Salut pgz

merci pour le code,
je ne l'ai pas encore testé, mais que fait -il ?
- il fusionne les celulles de la colonne 1 à 11 c'est ca ?
- que signifie le "info" ?


cordialement

Comme dit Deuzz, que je remercie chaleureusement , ce code fusionne comme tu l'as demandé. Et à la place d' "Info i" tu mets ce que tu as à mettre.
As-tu testé maintenant ?

Cdlt,,
PGZ

[gipn14]

re,

je viens d'essayer le code, il marche à merveille, merci,

j'ai plus qu'à le modifier pour changer les données à la place de "info"

merci beaucoup