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

chaelie2015 · 7 Juillet 2024

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 · 7 Juillet 2024

Bonjour @chaelie2015

Je te propose ce fichier

Merci de ton retour

patricktoulon · 7 Juillet 2024

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

VB:

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 · 7 Juillet 2024

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 · 7 Juillet 2024

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 · 7 Juillet 2024

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 · 7 Juillet 2024

@chaelie2015

chaelie2015 à dit:
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 · 10 Juillet 2024

Re

@chaelie2015

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

chaelie2015 à dit:
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

chaelie2015 à dit:
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 ......

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

chaelie2015

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Discussions similaires