fusion de cellule en vba Résolu/Fermé

Question

Bonjour, 
J'aimerais fusionner une plage de cellule pour qu'il ne restre qu'une cellule pour cela j'utilise le code suivant qui ne fait pas totalement ce que je désire:

Application.DisplayAlerts = False
colonneDépart = 1
For i = numligne To numligne + 3
Feuil5.Cells(i, 1) = Feuil5.Cells(i, 2) & Feuil5.Cells(i, colonneDépart + 1)
Feuil5.Cells(i, colonneDépart).Resize(1, 2).Merge
Next

J'ai donc une plage de 4lignes et 2 colonnes aprés exuction du code j'ai donc 4lignes et une colonne ce que j'aimerais ce que j'aimerais c'est que tous ce fusionne pour qu'il ne reste qu'une seule cellule mais je ne sais pas comment m'y prendre.
Merci d'avance, 
Bon aprés midi!  



Configuration: Windows XP

dobo69 · Answer

bonjour,
parce qu'il faut que tu fusionnes aussi les lignes non ?
essaie avec ca  :

Dim texte As String
texte = ""
Application.DisplayAlerts = False
colonneDépart = 1
For j = colonneDépart To 2
    For i = numligne To numligne + 3
    texte = texte & Feuil2.Cells(i, j)
    Next i
Next j
Feuil5.Range(Cells(numligne, colonneDépart), Cells(i - 1, j - 1)).Merge
Feuil5.Cells(numligne, colonneDépart) = texte
End Sub

(récupère d'abord tous les textes des cellules dans 'texte' puis les fusionnent puis colle 'texte' dans la "nouvelle" cellule.. )

michel_m · Answer

Bonjour

petite démo à adapter à ton pb

cellules A1: B4 avec des données
retourne en A10 les textes concaténés 4 lignes, 1 colonne

Sub fusionner()
 Dim tablo(1 To 4)
 Dim cptr As Byte
 For cptr = 1 To 4
 tablo(cptr) = Cells(cptr, 1) & " " & Cells(cptr, 2)
 Next
 Cells(10, 1) = Join(tablo, vbLf)
End Sub

http://www.cijoint.fr/cjlink.php?file=cj201006/cijTC0Pqz8.xls

Fusion de cellule en vba

2 réponses

Discussions similaires