XL 2019 VBA automatiser hauteur de lignes

[sofmat]

Bonjour, J'ai un fichier "facture" en relation avec un fichier "reference". Sur la designation des produits, je souhaiterai aligner automatiquement la hauteur de ligne (certaines références ont une désignation de 3 lignes, d'autres de 2, ...). Est-ce que quelqu'un pourrait m'aider. Merci d'avance. Bon dimanche

J'ai inséré ce code VBA sur l'onglet "facture" mais cela ne fonctionne pas.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim cell As Range
Dim rowHeight As Double

' Vérifie si la modification concerne la plage b17:e24
Set rng = Intersect(Target, Me.Range("b17:e24"))

' Si un changement se produit dans la plage b17:e24, ajuster la hauteur des lignes
If Not rng Is Nothing Then
Application.EnableEvents = False ' Désactive temporairement les événements pour éviter les boucles infinies
For Each cell In rng
' Réinitialise d'abord la hauteur de la ligne
cell.EntireRow.rowHeight = 15 ' Hauteur standard (ajustez si nécessaire)

' Ajuste ensuite la hauteur de la ligne en fonction du contenu de la cellule
cell.EntireRow.AutoFit

If cell.MergeCells Then
cell.EntireRow.rowHeight = 30 ' Définir une hauteur suffisante pour la ligne fusionnée
End If
Next cell
Application.EnableEvents = True ' Réactive les événements une fois le code exécuté
End If
End Sub

 

[Phil69970]

Bonjour @sofmat

Je pense que tu prends le problème à l’envers et je te propose ces 2 fichiers modifiés.

Merci de ton retour

 

[sofmat]

Bonjour, Merci pour votre réponse. En fait je souhaiterai que tout le descriptif s'affiche. Donc dans certains cas, comme pour l'exemple de J1, il faut que les 6 lignes s'affichent.

 

[Phil69970]

@sofmat

Perso :

J'ai un fichier "facture"

Dans une facture tout cela est inutile et ne correspond pas à l'attente des clients.
Regarde sur tes factures quand tu fais des achats.
Mais après c'est toi qui vois mais sans moi.

Bonne chance

 

[sofmat]

Je n'ai pas le choix, il faut que je détaille exactement le produit... Merci quand même ! Mais cela est possible d'après vous d'augmenter automatiquement la hauteur des lignes ? Merci

 

[sousou]

Bonjour si tu mets des RC dans ta désignation de la feuille référence (ce que tu fait pour j1 mais pas pour p2) tu peux essayer ceci
en modifiant ta formule de la feuille facture en remplatcant article par désignation


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim cell As Range
Dim rowHeight As Double

' Vérifie si la modification concerne la plage b17:e24
Set rng = Intersect(Target, Me.Range("b17:e24"))

' Si un changement se produit dans la plage b17:e24, ajuster la hauteur des lignes

l = nligne(Target)
End Sub


Function nligne(cel As Range)
For n = 1 To Len(cel.Value)
If Mid(cel, n, 1) = Chr(10) Then
compte = compte + 1
End If
Next
cel.rowHeight = compte * 12 + 15
End Function

 

[Phil69970]

Bonjour à tous

@sofmat

Je te propose ce fichier

Merci de ton retour

 

[sofmat]

Bonjour à tous

@sofmat

Je te propose ce fichier

Merci de ton retour

Merci beaucoup ! Cela fonctionne. Je vous souhaite de joyeuses fêtes !