Mettre un retour chario dans celulle

Bonjour a vous tous et excellente année ,

Je suis tombé sur ce sujet lien joint ci-dessous

https://forum.excel-pratique.com/forum/probleme-calendrier-119437

Dans la feuille mensuel les cellules il y a un retour chariot cela est ok le texte est sur plusieurs lignes

sur la feuille hebdomadaire il n'y a pas ce retour chariot, pas trop expert en vba je souhaiterai qu'il y ai un,

en attendant passé une bonne journée et WE

FERDINAND

bonjour Frendinand,

lancez ceci une fois pour modifier la propriétés de la plage (Enlever la protection avant + réinstaller après)

Sub Chariot()
     Sheets("Hebdomadaire").Range("B9:H100").WrapText = True     'modifier la plage si nécessaire
End Sub

Bonjour,

Et si dans la cellule cocernée tu faisais ceci :

click droit, Format de cellule, controle de texte, renvoyer à la lgne automatiquement

est ce que cela te conviendraitt ?

Merci à vous deux

J'ai trouvé en tâtonnant avec le code de BsAlv

Ferdinand

For lig = 2 To .Range("A2").End(xlDown).Row
                If jour = .Cells(lig, 3) And (.Cells(lig, 2) Like (Range("E2").Value & "*")) Then
                    Cells(ligne, colonne) = IIf(Range("E2") = "", .Cells(lig, 2) & " : ", "") & .Cells(lig, 1)
                    Cells(ligne, colonne).Interior.Color = .Cells(lig, 1).Interior.Color

             ' j'ai rajouter ceux ci et cela fonctionne comme je désire  merci
      Cells.WrapText = True  

                    Cells(ligne, 1) = "#" & ligne - 8
                    ligne = ligne + 1