Discussion :

[Baldo32]

Bonjour,

J'ai un problème de renvoie à la ligne, ça ne marche pas malgré des

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.WarpText = True

Est ce que quelqu'un à déjà eu ce genre de problème ?
A mon avis ça sert pas à grand chose que je vous donne tout le code parce qu'il est très très long et très mal développé, vous ne comprendrez rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
While Sheets(3).Range("A" & j) <> ""
        If Sheets(3).Range("B" & j) = i And Sheets(3).Range("I" & j) = 1 Then
            Sheets(4).Rows(x).WrapText = True
            Sheets(4).Range("B" & x, "G" & x).MergeCells = True
            Sheets(4).Range("B" & x).WrapText = True ' c'est ici que ça marche pas 
            Sheets(4).Range("B" & x) = Sheets(3).Range("C" & j)
...

Vous pouvez voir que warptext y est 2 fois parce que j'ai essayé plusieurs techniques

Une idée ?

d'avance merci

[remy36]

Bonjour,

Si j'ai bien compris, ça ne fonctionne pas car ta cellule est fusionnée

Regarde les explications sur : https://msdn.microsoft.com/fr-fr/lib.../ff821514.aspx

[Baldo32]

Merci bcp de la reponse

Si j'ai bien compris, ça ne fonctionne pas car ta cellule est fusionnée

Oui elles sont fusionnés.
Alors j'ai pas trop compris les explications du lien puisqu'ils n'abordent pas la question des cellules fusionnés. Mais donc ça ne marche pas avec des cellules fusionnés ? Même si elles sont fusionnés en ligne et pas en colonnes ?

[remy36]

Si, mais je pense que tu dois faire le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.WrapText = True

sur "la plage" de tes cellules fusionnée,
comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets(4).Range("B" & x, "G" & x).MergeCells = True
Sheets(4).Range("B" & x, "G" & x).WrapText = True

[Baldo32]

Merci,
Malheureusement ça ne marche pas non plus. Y'a t'il une autre solution que compter les caractères et définir une hauteur en fonction ?