Ajustement auto de la hauteur d'une ligne en VBA

[invite240ac937]

Bonjour,

Je suis tout à fait novice dans le langage VBA, mais je suis déjà parvenu en partie à mon but.
Dans un tableau Excel, je cherche à faire en sorte que la hauteur de chaque ligne s'adapte automatiquement au contenu de la cellule sélectionnée (le contenu étant suceptible de varier).
Pour cela, j'ai réussi à bidouiller le code ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Not Intersect(Target, Target.Worksheet.Range("F6")) Is Nothing Then setHeights
  
    Dim nextTarget As Range

    Set nextTarget = Range(Selection.Address)
          
    If Target.Row = ("21") Then
        Target.Rows.Select
        Target.Rows.AutoFit
        nextTarget.Select
    End If
            
    If Target.Row = ("22") Then
        Target.Rows.Select
        Target.Rows.AutoFit
        nextTarget.Select
    End If
            
    If Target.Row = ("23") Then
        Target.Rows.Select
        Target.Rows.AutoFit
        nextTarget.Select
    End If
            
    If Target.Row = ("24") Then
        Target.Rows.Select
        Target.Rows.AutoFit
        nextTarget.Select
    End If

'et ainsi de suite jusqu'à la dernière ligne de mon tableau (25 lignes pourl'instant)
End Sub

C'est assez redondant, mais cela fonctionne comme je le souhaite.
Auriez-vous une solution qui permette d'appliquer cette opération sur toute la plage de cellules et non pas par cellules individuelles ?
Mes quelques tentatives n'ont rien donné jusqu'à présent.

Par avance merci pour votre aide,
-----

[invite948b37db]

Bonjour
Je ne crois pas qu'il soit nécessaire d'opérer ligne par ligne. Je ne crois pas non plus qu'il soit nécessaire de sélectionner préalablement la ligne. Tu pourrais modifier toutes les lignes en une seule fois :

Rows("1:25").AutoFit 'modifier les lignes 1 à 25

Je n'ai pas Excel sous la main donc pas testé cette instruction
Si tu tiens à travailler ligne par ligne, tu peux le faire dans une boucle FOR :

For compteur = 1 to 25
   Rows(compteur).AutoFit
next compteur

Pour le voir travailler, va dans la fenêtre de code VBA et appuie autant de fois sur F8 que de lignes à modifier. C'est le mode pas à pas