Cadrer à gauche un texte sur plusieurs celulles avec autofit

**pijaku** · 22/10/2018, 20h57

Salut,
Ce que chris te fait remarquer c'est que tu as eu 2 réponses intéressantes à ton problème (messages 4 de chris et 5 de unparia) et que tu n'y a pas répondu...
Pas cool.
Mais c'est aussi un reproche que l'on peut faire au système d'alerte du forum qui n'envoie pas systématiquement un mail à chaque réponse. De ce fait, on en rate.
Conseil donc : relis tout ton sujet et essaye chacune des solutions. Ta réponse y est depuis longtemps.
A++

**retraite83** · 23/10/2018, 13h56

Bonjour

oui, comme je l'ai dis précédemment je teste toutes les solutions qui m'ont été proposées.

**pijaku** · 23/10/2018, 14h21

Bonjour,

Je viens seulement de comprendre ta question.
Tu veux que ton texte, sur une ligne, auto-ajustée en hauteur, soit réparti sur 4 colonnes (par exemple).

Il suffit donc de :

Aligner ton texte : Centrer sur plusieurs colonnes (HorizontalAlignment = xlCenterAcrossSelection),
Renvoyer à la ligne automatiquement (WrapText = True),
Régler la hauteur de ta ligne (Autofit),
Fusionner tes cellules (Merge),
Aligner ton texte à gauche (HorizontalAlignment = xlLeft).

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Imprime()
Dim maPlage As Range
   Set maPlage = Range("A5:D5")
   With maPlage
      .HorizontalAlignment = xlCenterAcrossSelection
      .WrapText = True
      Rows(.Row).AutoFit
      .Merge
      .HorizontalAlignment = xlLeft
   End With
End Sub

**retraite83** · 23/10/2018, 16h13

Bonjour

oui tout à fait ça :

Code :

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

1
2
3
4
5
6
7
8
9
Dim autofit As Range
   Set autofit = Range("C" & actRow)
   With autofit
      .HorizontalAlignment = xlCenterAcrossSelection
      .WrapText = True
      Rows(.Row).AutoFit
      .Merge
      .HorizontalAlignment = xlLeft
   End With

cela marche très bien en cadrant à gauche et en conservant l'autofit, dans mes 2 lignes suivantes la première est bien résolue, je tente maintenant d'inclure la seconde ligne pour générer un espace dans la ligne (mise en page aérée pour une édition)

Code :

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

1
2
Worksheets("F&B").Rows(actRow).AutoFit
Worksheets("F&B").Rows(actRow).RowHeight = 5 + Worksheets("F&B").Rows(actRow).RowHeight

Je pense que cela se palce juste avant le .merge mais pour l'instant je ne trouve pas la syntaxe

**pijaku** · 23/10/2018, 16h31

Pourquoi pas ajouter une ligne avant et après :

Code :

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

1
2
3
4
5
6
7
8
9
   Set autof = Range("C" & actRow & ":F" & actRow)
   With autof
      .HorizontalAlignment = xlCenterAcrossSelection
      .Cells(1).Value = vbCrLf & .Cells(1).Value & vbCrLf 'ICI
      .WrapText = True
      Rows(.Row).autofit
      .Merge
      .HorizontalAlignment = xlLeft
   End With

**Theze** · 23/10/2018, 16h39

Bonjour,

Code :

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

1
2
3
4
5
6
 
With Worksheets("F&B").Rows(actRow)
    .AutoFit
    .RowHeight = .RowHeight + 5
    .VerticalAlignment = xlCenter
End With

integré au code de pijaku :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Imprime()
 
    Dim maPlage As Range
 
    Set maPlage = Range("A5:D5")
 
    With maPlage
 
        .HorizontalAlignment = xlCenterAcrossSelection
        .WrapText = True
        Rows(.Row).AutoFit
        .Merge
        .HorizontalAlignment = xlLeft
        Rows(.Row).RowHeight = Rows(.Row).RowHeight + 5
        .VerticalAlignment = xlCenter
 
    End With
 
End Sub

**retraite83** · 23/10/2018, 16h39

oui j'ai pensé à cette solution, le problème c'est que cela décale toutes mes mises pages, je préférerai la solution qui ressemble à

Code :

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

Rows(actRow).RowHeight = 5 + Worksheets("F&B").Rows(actRow).RowHeight

comme cela je n'augmente pas le nb de lignes

**pijaku** · 23/10/2018, 16h42

Alors intègre la solution de Theze ci-dessus.

**retraite83** · 23/10/2018, 16h49

Rebonjour,

un peu plus loin j'ai la même séquence qui se termine par le message d’erreur :

La méthode autofit de la classe Ranga a échoué

sur la ligne Rows(.Row).AutoFit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Set autow = Sheets("Imprimable").Range("H79")
    With autow
        .HorizontalAlignment = xlCenterAcrossSelection
        .WrapText = True
        Rows(.Row).AutoFit
        .Merge
        .HorizontalAlignment = xlLeft
        Rows(.Row).RowHeight = Rows(.Row).RowHeight + 8
        .VerticalAlignment = xlCenter
    End With

Précision : le format de la cellule H79 est : "centré sur plusieurs colonnes"

**pijaku** · 23/10/2018, 20h00

Tu centres sur plusieurs colonnes la cellule H79?
C'est une blague?

**retraite83** · 23/10/2018, 20h10

J'ai le même pb avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
Set autow = Sheets("Imprimable").Range("H79:AK79")
    With autow
        .HorizontalAlignment = xlCenterAcrossSelection
        .WrapText = True
        Rows(.Row).AutoFit
        .Merge
        .HorizontalAlignment = xlLeft
        Rows(.Row).RowHeight = Rows(.Row).RowHeight + 8
        .VerticalAlignment = xlCenter
    End With

les cellules H79 à AK79 sont définies en format "centré sur plusieurs colonnes"

Je viens de changer le format des cellules en mettant cadré à gauche, cela ne change rien, la feuille active n'est pas "Imprimable" lorsque la macro est déclenchée, peut être une piste ?

**pijaku** · 23/10/2018, 20h15

Quand tu nous diras ce que tu veux clairement ET que tu nous feras de vrais copié collé de ton code en entier (de Sub à End Sub) ET que tu decriras mieux le contenu (et formats) de tes cellules, tu auras certainement beaucoup plus de réponses pertinentes...
Ça évitera également les sujets à rallonge.

Dans l'attente je te souhaites une bonne soirée.
A++

**retraite83** · 23/10/2018, 20h23

Le code en entier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, actRow As Integer, imprimFB As Integer, autof As Range, autow As Range
 
actRow = Target.Row
imprimFB = 79    ' première ligne F&B dans imprimable
 
Application.ScreenUpdating = False
 
Set autof = Range("C" & actRow)
    With autof
        .HorizontalAlignment = xlCenterAcrossSelection
        .WrapText = True
        Rows(.Row).AutoFit
        .Merge
        .HorizontalAlignment = xlLeft
        Rows(.Row).RowHeight = Rows(.Row).RowHeight + 6
        .VerticalAlignment = xlCenter
    End With
 
i = imprimFB + actRow - 5                 ' Ligne correspondante dans Imprimable
Set autow = Sheets("Imprimable").Range("H" & i & ":AK" & i)
    With autow
        .HorizontalAlignment = xlCenterAcrossSelection
        .WrapText = True
        Rows(.Row).AutoFit
        .Merge
        .HorizontalAlignment = xlLeft
        Rows(.Row).RowHeight = Rows(.Row).RowHeight + 8
        .VerticalAlignment = xlCenter
    End With
 
 
'Worksheets("Imprimable").Rows(i).AutoFit
'Worksheets("Imprimable").Rows(i).RowHeight = 8 + Worksheets("Imprimable").Rows(i).RowHeight
 
Application.ScreenUpdating = True
 
End Sub

je veux cadrer les textes à gauche avec autofit en hauteur des lignes suivant la longueur des textes, la première séquence marche très bien , pas la seconde feuille "Imprimable" :

erreur 1004, la Méthode de la classe Range a échoué

Les cellules sont toutes définies en format : "centré sur plusieurs colonnes"

**pijaku** · 23/10/2018, 20h31

Bon.
Quand tu utilises un bloc With/End With, les objets qui se rapportent à l'objet référencé doivent avoir un point devant.
Dans ton cas, la ligne Rows(machin).Autofit se rapporte, non pas à ta feuille imprimable, mais à la feuille active...
Donc il te faut préciser la feuille concernée :

Code :

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

Sheets("imprimable").Rows(machon).Autofit

Je n'ai pas testé.

Cadrer à gauche un texte sur plusieurs celulles avec autofit [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager