Remplir des cellules vides

Bonjour a toutes et tous,

En compilant des données par le biais d'un TCD que je recopie en valeur afin de pouvoir lui associé des formules, j'aimerais savoir comment faire pour recopier le texte vers le bas car après le TCD le même texte n'apparait plus (mode compilé).

Exemple :

mon texte n°1 se trouve en A1 et je voudrais le même en dessous jusqu'à ce que le texte change.

A1 LES JARDINS DE ROUVROY

A2 (idem A1)

A3 (idem A1)

A4 LES JARDINS DES MONTS D'OR SARL

A5 LES JARDINS DU LEGUER

A6 (idem A5)

A7 (idem A5)

LES SERRES DE GALLY

Merci de votre aide car je n'en peux plus de recopier ces cellules à chaque fois....

Bonjour,

Tu peux changer les options de ton TCD pour répéter les étiquettes.

Sinon, une macro à tester :

Sub EtendreTxt()

Dim MonTxt As String, Lig As Long, LigMax As Long

With Sheets("MaFeuille") '<-- nom à adapter
   LigMax = .Range("A" & .Rows.Count).End(xlUp).Row 'Dernière ligne non vide
   For Lig = 1 To LigMax 'Boucle sur les lignes
      If Not IsEmpty(.Range("A" & Lig)) Then MonTxt = .Range("A" & Lig) Else .Range("A" & Lig) = MonTxt
   Next Lig
End With

End Sub

Pedro,

Ah oui en effet c'est tout simple.

Merci de ton aide.

Bruno75 a écrit :

Pedro,

Ah oui en effet c'est tout simple.

Merci de ton aide.

Pas de soucis, pense à valider le sujet !