Reglage du rowheight impossible pour moi

bonsoir a tous

dans le classeur test que je vais joindre, j'essaie de mettre un commentaire sur plusieurs lignes dans la cellule A fusionné avec B

je sais que les fusions ne sont pas facile a gérer mais il me manque juste que le .rowheight puisse ajuster la hauteur de la cellule A en fonction de ce quelle reçois par l'appuie sur le bouton valider

.RowHeight = 38

j'ai mis la ligne comme cela mais elle reste toujours sur 38

la fonction Tranche est bien car elle sera pas a mettre sur 2 lignes dans la cellule

pour le commentaire il faut choisir l'option commentaire pour remplir le textbox en minuscule pour faire un essai, mais je peux avoir un commentaire sur 3 voir plus de lignes dans la cellules

Merci de votre compréhension

Pascal

Bonsoir,

les cellules fusionnées c'est vraiment chercher des misères dès lors que l'on veut automatiser.

une solution alambiquée mais acceptable pour des largeurs des colonnes A et B telles que tu les as données.

Sub test()
a = Range("A3")
Range("a3") = ""
Range("A3:B3").UnMerge
Range("B3") = a
Range("B3").EntireRow.AutoFit
Range("A3:B3").Merge
End Sub

bonjour hs2o4

merci de ta réponse, je sais comme je l'ai dit que c'est cherché des soucis mais c'est juste pour une clarté sur la feuille car je n'ai pas réussi a le faire dans une colonne et je trouvais que c'était pas mal

bon dois-je mettre ton code en remplacement de ce que j'ai mis ou en supplément par un appel

Pascal

bonsoir a tous

juste un petit up

Pascal

Bonsoir,

j'avais pas vu que tu posais une question. désolé. ce code se voulait être un exemple pour montrer comment faire avec le cas que tu as donné.

Tu mets le code où tu en as besoin en adaptant les A3 et B3 là où c'est nécessaire.

edit : formulation

bonsoir H2so4

il n'y a pas a etre désolé

j'ai essayer comme ceci et le commentaire ne dépasse pas la colonne A sans régler sa hauteur

 
           a = .Range("A3")
.Range("a3") = ""
.Range("B3") = a

'Range("A3:B3").Merge
      Lg_Origine = .Columns(1).ColumnWidth
      LargeurCol = .Columns(1).ColumnWidth + .Columns(2).ColumnWidth '
      .Columns(2).ColumnWidth = LargeurCol
      With Sheets("Commande").Range("A" & L + i, "B" & L + i)
      .Font.Size = 14
       .Font.Name = "arial"
       .Font.Bold = False
       .Range("A3:B3").UnMerge
         '.MergeCells = False
         .Range("B3").EntireRow.AutoFit
         '.EntireRow.AutoFit 'mettre la ligne en ajustement auto de la hauteur
         'MaHauteur = .RowHeight 'voir quelle est la hauteur de la ligne une fois cet autofit fait
         .Range("A3:B3").UnMerge
         '.MergeCells = True 'refusionner
         .WrapText = True 'retour du texte à la ligne
        .VerticalAlignment = xlCenter
         '.RowHeight = IIf(MaHauteur > 19, MaHauteur, 19) 'si la hauteur une fois autofit fait est inferieur à 15 je laisse 15 en minimum sinon hauteur de l'autofit (perso c'est la hauteur mini que je voulais
         .RowHeight = 38 '.Columns(B).ColumnWidth = Lg_Origine
      End With

Pascal

edit

j'ai essayer comme ceci et c'est parfait

    a = .Range("A" & L + i)
    .Range("A" & L + i) = ""
    .Range("A" & L + i, "B" & L + i).UnMerge
    .Range("B" & L + i) = a
    .Range("A" & L + i, "B" & L + i).WrapText = True
    .Range("A" & L + i, "B" & L + i).EntireRow.AutoFit
    .Range("A" & L + i, "B" & L + i).Merge
    With Sheets("Commande").Range("A" & L + i, "B" & L + i)
      .Font.Size = 14
      .Font.Name = "arial"
       .Font.Bold = False
       .VerticalAlignment = xlCenter
       End With

Merci beaucoup

Pascal