XL 2016 Copier une cellule sur une plage flottante

[airsage]

Bonjour,

Dans le fichier ci joint j'ai une liste avec plusieurs titres et du texte sur 1 ou plusieurs lignes pour chaque titre.
la source est mon extraction et la cible c'est ce que je cherche à obtenir

Je voudrais que le titre n'apparaisse plus en haut du texte mais autant de fois qu'il y a de lignes de texte pour chacun de ces titres.

J'ai cherché sur le forum mais rien ne correspond a ce que je cherche à obtenir.

merci pour votre aide.

 

[DoubleZero]

Bonjour, airsage, le Forum,

Une suggestion en pièce jointe.

A bientôt

 

[job75]

Bonjour airsage, bonjour chère ânesse,

Une solution très rapide même sur un très grand tableau :

Sub Traiter()
'se lance par Ctrl+T
Dim tablo, i&, n&, titre$
With [A2].CurrentRegion 'à adapter
  tablo = .Resize(, 3)
  For i = 1 To UBound(tablo)
    If InStr(tablo(i, 1), "-") Then
      n = n + 1
      tablo(n, 1) = tablo(i, 1)
      tablo(n, 3) = titre
    Else
      titre = tablo(i, 1)
    End If
  Next
  If n = .Rows.Count Then Exit Sub 'aucun effet après la 1ère exécution
  If n Then
    .Cells(1).Resize(n) = tablo
    .Cells(1, 3).Resize(n) = Application.Index(tablo, , 3)
  End If
  .Cells(n + 1, 1).Resize(.Rows.Count - n).Delete xlUp
  With Me.UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub

Fichier joint.

J'ai testé sur un tableau de 56 000 lignes, la macro s'exécute chez moi en 0,6 seconde.

A+

 

[airsage]

Bonjour,

Merci à Ce lien n'existe plus et job75 pour votre réponse rapide. Les 2 méthodes fonctionnent.

@+