Fusionner lignes Fermé

Question

Bonjour, 
dans une page Excel j'ai des lignes avec dans chaque cellule une lettre.
Apres sélection de toutes les cellules, j'aimerais que toutes les lignes soient fusionnées.
Par exemple la ligne A1 a K1 soit fusionnée dans A1 puis A2 a K2 dans A2 puis A3 a k3 dans A3 ect... ect... En bref, toutes les cellules en même temps avec si possible en Macro.Merci    



Configuration: Windows 7 / Chrome 37.0.2062.124

ccm81 · Answer

Bonjour

un exemple

Public Sub Koncatene()
Dim plage As Range, li As Long, co As Long, nbco As Long, nbli As Long, s As String
Set plage = Selection
With Selection
  nbli = plage.Rows.Count
  nbco = plage.Columns.Count
  For li = 1 To nbli
    s = ""
    For co = 1 To nbco
      s = s & plage.Cells(li, co)
    Next co
    plage.Cells(li, 1) = s
  Next li
End With
End Sub

Cdlmnt

Mytå · Answer

Salut le Forum

Et la demande d'hier on fait quoi avec ?

https://forums.commentcamarche.net/forum/affich-30901159-fusionner

Mytå

Raymond PENTIER · Answer

Fusionner quoi ? Des lignes ou des cellules ?
Fusionner pourquoi ? Tu sais que seul le contenu de la première cellule est conservé ?

Fusionner lignes

3 réponses

Discussions similaires