Discussion :

[Marocaine2012]

J'ai généré un document excel en utilisant l'API POI et le langage Java.
et comme il est clair dans l'image ci-dessous, la première colonne "D'Ordre" contient plusieurs cellules de même valeur.



Alors j'aimerais fusionner toutes les cellules ayant la même valeur pour devenir comme dans l'image dessous



j'ai essayé quelques lignes de code mais ça ne donne rien

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
			     for (i=3; i<= (sheet1.getPhysicalNumberOfRows()) ; i++) {
 
 
			    	 Cell cell = sheet1.getRow(i).getCell(0);
			    if (sheet1.getRow(i).getCell(0).toString().equals( sheet1.getRow(i+1).getCell(0).toString()))
			    {
			    	System.out.println(sheet1.getRow(i).getCell(0).toString());
			    	System.out.println(sheet1.getRow(i+1).getCell(0).toString());
 
			    	  CellRangeAddress cellRangeAddress = new CellRangeAddress(i,i+1,0,0);
					   sheet1.addMergedRegion(cellRangeAddress);
 
			    }
 
 
			     }
			    }
			     }

Avec ce code j'arrive à ce résultat




toute suggestion sera bien appréciée

[Kimy_Ire]

Bonjour Marocaine2012,

Voici un code qui permet de merger les cellules d'une colonne A qui sont identiques.

N'hésite pas à revenir vers moi !

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
Sub merge_cell()
Dim oRng As Range
Dim k As Integer, j As Integer
 
With Worksheets("Feuil2")
    Set oRng = .Range("A1")
 
    j = 1
    Do While .Cells(j, 1) <> ""
        k = 0
        Do While oRng.Offset(k + 1, 0) = oRng.Offset(k, 0)
            k = k + 1
        Loop
        Application.DisplayAlerts = False
        .Range(oRng, oRng.Offset(k, 0)).Merge
        Application.DisplayAlerts = True
        j = j + k + 1
        Set oRng = .Cells(j, 1)
    Loop
 
End With
 
End Sub

Il y a surement plus simple, mais je n'ai pas trouvé.

Cordialement,
Kimy

[Menhir]

Tu peux aussi passer par un tableau croisé dynamique qui fera ça tout seul.

[Marocaine2012]

Merci pour vos réponses,

@ Kimy_Ire ce code est en VB alors je travaille en Java, mais quand même j’essaierai de le convertir
@Menhir pourrais tu me donner plus d'explication

[Marocaine2012]

Bonjour Kimy_Ire,

J'ai essayé d'exécuter le code que vous m'avez décrit là dessus, mais je ça ne change rien, les cellules ne sont toujours pas fusionnées

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 while(!(sheet1.getRow(m).getCell(0).toString()).equals("")) 
					  {
						  int k =0;
 
						  while(sheet1.getRow(k+1).getCell(0).toString().equals( sheet1.getRow(k).getCell(0).toString()))
						  {
							  k = k + 1;
						  }
 
						  CellRangeAddress cellRangeAddress = new CellRangeAddress(k,k+1,0,0);
						   sheet1.addMergedRegion(cellRangeAddress);
						   m = m+k+1;
						   System.out.println(sheet1.getRow(m).getCell(0).toString()); 
					  }

[Kimy_Ire]

Marocaine2012,

Sans le vouloir, le code que je t'ai fourni vient de me servir dans un de mes projets.
Je peux t'assurer qu'il fonctionne très bien.
Il merge les cellules identiques de la colonne A.

Java, je connais moyen... Ici, c'est le forum Excel (et pas VBA, en plus).

Afin de répondre à ton besoin, je te propose de poster un commentaire au bon endroit.

Cordialement,
Kimy

[Menhir]

@Menhir pourrais tu me donner plus d'explication

http://silkyroad.developpez.com/excel/tcd/

[Marocaine2012]

Merci Menhir pour ce tuto,
Mais moi je veux passer par la voix de la programmation, car ça rentre dans une application web

[Menhir]

La création de TDC peut être codée en VBA, comme presque tout ce qui peut être réalisé manuellement.

[Kimy_Ire]

La création de TDC peut être codée en VBA, comme presque tout ce qui peut être réalisé manuellement.

Bonjour Menhir,

Quel élément réalisé manuellement sur Excel ne peut être codé en VB ?

Cordialement,
Kimy