Ajustement hauteur de cellule avec fonction CONCATENER

[Bichkek]

Bonjour à tous!

Je vous présente mon problème, je cherche à ajuster la taille d'une celulle en fonction du texte qui y est placé par la fonction CONCATENER.

La cellule n'est pas fusionnée, elle est déjà paramétrée en "alignement automatique".

L'objectif est que la cellule G9 de la feuil2 s'ajuste suivant le nombre de destinataires de la lettre.

La case M5 de la feuil2 permettant de modifier le nombre de destinataires.

Pouvez-vous m'aider?

Merci par avance!

 

[phlaurent55]

Re : Ajustement hauteur de cellule avec fonction CONCATENER

Bonjour Bichkek,

avec ce code (feuille 2)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M5")) Is Nothing Then
    Rows("9:9").EntireRow.AutoFit
End If
End Sub

à+
Philippe

 

[Bichkek]

Re : Ajustement hauteur de cellule avec fonction CONCATENER

Vraiment génial!

Toutefois, pourrais-tu me détailler comment as-tu procédé car il va falloir que je repoduise ta solution dans plusieurs classeurs.

D'avance merci pour ton aide!

 

[phlaurent55]

Re : Ajustement hauteur de cellule avec fonction CONCATENER

Re,

voici les commentaires dans le code
(le commentaire concerne la ligne qui précède celui-ci)

Private Sub Worksheet_Change(ByVal Target As Range)
' lorsqu'un changement s'effectue sur la feuille
If Not Intersect(Target, Range("M5")) Is Nothing Then
' teste si le changement concerne la cellule M5
    Rows("9:9").EntireRow.AutoFit
' étirement automatique de la ligne 9
End If
' fin du test
End Sub
' fin de la procédure

à+
Philippe

 

[Bichkek]

Re : Ajustement hauteur de cellule avec fonction CONCATENER

Sincèrement merci!