Copier une cellule dans plusieurs cellule de m^me classeur

Question

Bonjour tous le monde , j'ai un fichier excel d'une forme identique comme vous allez visualiser dans mon fichier , j'aimerais copier le mot (Baume les dames ) dans la cellule B4 (je copie pas - Rang 3) et je le colle dans la colonne D vide . sachant que le nombre de ligne peut être modifié et que dans la cellule B4 le mot change aussi . Pouvez vous m'apporter cette aide car je sais qu'il faut passer par une boucle mais je n'arrive pas de tout...

Raja · Accepted Answer

Bonjour, Salut Jean-Eric,

Puisque tu insistes par Vba, voici le code qui peut te le faire. Adpate-le si besoin est et dis-nous le résultat :

Sub TexteACopier()
    Range("D9:D" & Range("C" & Application.Rows.Count).End(xlUp).Row) = Trim(Left(Range("B4"), WorksheetFunction.Search("-", Range("B4")) - 1))
End Sub

Jean-Eric · Answer

Cette formule ne suffirait-elle pas? A copier/coller en D9 puis recopier vers le bas. =STXT($B$4;1;TROUVE("-";$B$4)-1)...