Date automatique sur 2 lignes

Bonsoir,

J'ai des cellules en-têtes de colonnes qui ont des dates automatiques mais elles sont trop larges.

J'ai tenté de les réduire par format de cellule, alignement, renvoyer à la ligne automatiquement, mais ça ne marche pas.

J'ai essayé également alt/enter, mais pareil.

Pouvez-vous m'aider? Je vous joins un fichier exemple.

Merci, Bonne soirée

Bonsoir,

J'ai ouvert votre fichier et je ne vois pas en quoi vos dates sont trop larges.

si je réduis les colonnes, les dates s'écrivent sur 2 lignes.

Pourriez-vous préciser le problème ?

Je ne connais pas la destination de votre tableau mais n'auriez-vous pas intérêt à supprimer les colonnes de dates telles qu'elles sont organisées et utiliser une colonne date dans laquelle vous pourrez encoder en regard des différentes lignes les dates souhaitées.

A l'aide du filtre vous pourrez aisément retrouver les infos correspondant à une ou plusieurs dates.

Bàv

Bonsoir

Avec une macro

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("W1:IV1")) Is Nothing Then
If IsDate(Target) Then Target = Format(Target, "ddd") & Chr(10) & Format(Target, "dd/mm")
End If
End Sub

Amicalement

Nad

Bonjour

Un essai

Bonsoir à tous,

autre proposition.

eric

Bonsoir à tous,

Merci pour vos réponses, c'est sympa. La largeur des colonnes à 40 pixels est parfaite.

Les propositions d'eriiic et de bonzai64 fonctionnent très bien lorsque je fais cliquer/glisser les cellules, les dates s'incrémentent automatiquement. Par contre ta macro Nad, n'incrémente pas les jours lorsque je fais cliquer/glisser.

Bonne soirée, bonne reprise au boulot demain.