Fusion de cellule en fonction du nombre d'insertion.

Version imprimable

2 pièce(s) jointe(s)

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.
Pièce jointe 162603

à 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
Pièce jointe 162604

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:

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

Bonsoir.

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

Code:

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

30/11/2014, 13h12
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
30/11/2014, 13h26
Deuzz

Bonjour

Citation:

Envoyé par gipn14

- que signifie le "info" ?

C'est ce que tu as toi-même inscrit dans les cases fusionnées ;)
30/11/2014, 14h29
gipn14

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

Citation:

Envoyé par gipn14

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...:mrgreen:

Citation:

Envoyé par gipn14

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
Pièce jointe 162604
30/11/2014, 14h51
pgz

Bonjour à tous

Citation:

Envoyé par 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

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
30/11/2014, 15h03
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