Textes et fusion de cellules

Bonjour à tous,

J'ai un tableau de plus de 1000 lignes dont la première cellule A a des cellules fusionnées.

Je souhaiterais défusionner les cellules et copier le texte de la cellule fusionnée dans les cellules vides.

L'exemple ci-dessus montre ce que j'ai manuellement modifier dans TEXTE 1, je voudrais faire pareil pour TEXTE 2 et toutes les 1000 lignes.

Pouvez-vous m'aider svp ?

Merci encore

Bonjour Sinistrus,

Imaginons que vos TEXTE sont sur la colonne A et vos libellés sur la colonne B

-Sélectionner la colonne A

-Dans l'onglet "Acceuil" cliquer sur "Fusionner et centrer" pour défusionner l'ensemble des cases de la colonne A.

-Sélectionner à nouveau la colonne A

-Appuyer sur F5 puis sur "Cellules" puis "Cellules vides" et faire "OK"

-taper "=A4" puis Ctrl + Enter

-Sélectionner à nouveau la colonne A

-Faites un copier coller en valeur de celle-ci

A votre disposition,

Popov

Bonjour Sinistrus

Pour défusionner la colonne A , une petite macro

Sub Test()
Call UnmergeCol("nom de feuille", 19, 1)  'pour défusionner la colonne A (1) d'un tableau commençant à la ligne 19
' Attention nom de feuille à adapter
End Sub

Sub UnmergeCol(sSheetName As String, iFirstRow As Long, iCol As Long)
Dim irow
Dim val
Dim lastRow
Dim sh As Worksheet
Set sh = sheets(sSheetName)

lastRow = sh.Cells(sh.Rows.Count, icol+1).End(xlUp).Row

For irow = iFirstRow To lastRow
  If sh.Cells(irow, icol).MergeCells Then
    sh.Cells(irow, icol).UnMerge
    val = sh.Cells(irow, icol)
    irow = irow + 1
    While Cells(irow, icol) = "" And irow <= lastRow
      sh.Cells(irow, icol) = val
      irow = irow + 1
    Wend
End If
Next
End Sub

Merci à tous les deux pour votre aide, le problème a été résolu