XL 2013 ajustement automatique du texte dans une cellule fusionnée

[chaelie2015]

Bonjour Forum
Je cherche un code VBA qui fait l'ajustement automatique du texte dans une cellule fusionnée (B15 à V15) lors de la saisie
Merci

 

[Phil69970]

Bonjour @chaelie2015

Je te propose ce fichier

Merci de ton retour

 

[patricktoulon]

bonjour à tout les deux
@Phil69970 on peut faire plus précis
sachant que columnwidth c'est la dimension en nombre de caractères
exemple su c'est 1 la cellule contiendra 1 caractère +la marge automatique d'excel soit 0.25
(0.25 encore une fois le chiffre magique d'excel que l'on retrouve partout d"ans les calculs de même que 0.125 )
et pas la peine de unmerge et re merge

Sub Ajustement2()
    'Ajuste la colonne à un seul caractères -le margin auto (gauche et droite)du texte
    [b15].ColumnWidth = 1 - (0.125 * 2)
    'parti de là la B15 fait un caractères de large
    lg = [b15].ColumnWidth
    'reste plus qu'a le multiplier par le len du texte et le diviser par le columncount de B15:V15
    lg = (Len([b15].Text) * lg) / [B15:V15].Columns.Count
     [b15].MergeArea.ColumnWidth = lg
End Sub

tout simplement et là on est ric et rac

 

[Phil69970]

Bonjour Patrick

Patrick ton code ne renvoie pas toute la zone fusionnée si tu modifies la zone fusionnée en B15:E15 par exemple
Bien sur j'ai modifié ton code et mon code en conséquence.==> voir vidéo

J'ai raté quelque chose ?

 

[chaelie2015]

Bonjour Phil69970 et patricktoulon
Veuillez excuser le retard de ma réponse. Je reviens à vos propositions, pourriez-vous s'il vous plaît modifier uniquement la hauteur des cellules (en fonction du contenu) sans modifier leur largeur ?
Merci par avance

 

[patricktoulon]

re
@Phil69970
oui en effet le calcul du margin est très compliqué
ci joint un fichier de test
@chaellie2015 pour ça tu met la propriété .WrapText à True tout simplement

 

[Phil69970]

@chaelie2015

Veuillez excuser le retard de ma réponse. Je reviens à vos propositions, pourriez-vous s'il vous plaît modifier uniquement la hauteur des cellules (en fonction du contenu) sans modifier leur largeur ?
Merci par avance

Fournis un fichier de ce que tu veux faire

 

[Phil69970]

Re

@chaelie2015

Il y a un truc qui ne colles pas dans ta demande

Je cherche un code VBA qui fait l'ajustement automatique du texte dans une cellule fusionnée (B15 à V15) lors de la saisie

Et ici tu veux

pourriez-vous s'il vous plaît modifier uniquement la hauteur des cellules (en fonction du contenu) sans modifier leur largeur ?

Il me semble que les celles B15:V15 sont sur une seule ligne donc la hauteur est toujours la même que les cellules B15:V15 soient fusionnées ou non !!!

Sinon la réponse semble avoir été donné par Patrick ou par moi

Bonne lecture ......