Discussion :

[macat]

Bonjour le forum,

Je voulais savoir s’il existe quelque part une liste des codes des formats de cellule possibles avec peut être ses exemples.

Sinon pour aujourd’hui, je n’arrive pas à faire que la colonne A31 à A44 applique le format « renvoyer à la ligne automatiquement ». J’ai cherché sur le net en général et trouvé WrapText = True ,mais rien ne se passe dans ce sens. Est-ce que c’est bien écrit. En essayant avec nouvelle macro je n’ai pas pu avoir de résultat aussi.

Code :

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

1
2
3
4
5
6
Sheets(sht).Columns("A").ColumnWidth = 55
Sheets(sht).Columns("B").ColumnWidth = 9
Sheets(sht).Range("A31:A44").WrapText = True
Sheets(sht).Range("B30").Value = "Nb heures"
Sheets(sht).Range("C30").Value = "Du"
Sheets(sht).Range("D30").Value = "Au"

Merci à vous.

[aalex_38]

Je viens de tester sur une plage et le code fonctionne.


un exemple :

Code :

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

Range("B4:D6").WrapText = True

si tu le fais manuellement (pourquoi pas en utilisant l'enregistreur de macro); ça fonctionne ?

[macat]

Voila la macro complète, j’ai remarqué que le renvoi à la ligne ne s’effectue que sur la plage de cellules de A1 à A28. Mais il ne se fait pas sur la plage demandée (A32:A44).
Les cellules de A28 à A44 sont remplies avec des données arrivant par macro d’une autre feuille. Je ne pense pas que cela gène le renvoi à la ligne pour (A32:A44).

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
Public Sub MiseEnForm(ByVal sht As String)
 
Sheets(sht).Columns("A").ColumnWidth = 55
Sheets(sht).Columns("B").ColumnWidth = 9
Sheets(sht).Columns("C:D").ColumnWidth = 10
Sheets(sht).Range("A32:A44").WrapText = True
Sheets(sht).Range("A30").Value = "Formation"
Sheets(sht).Range("B30").Value = "Nb heures"
Sheets(sht).Range("C30").Value = "Du"
Sheets(sht).Range("D30").Value = "Au"
Sheets(sht).Range("A10:A11").Font.Bold = True
Sheets(sht).Range("A30:D30").HorizontalAlignment = xlCenter
Sheets(sht).Range("A30:D30").VerticalAlignment = xlCenter
Sheets(sht).Range("A30:D30").Interior.ColorIndex = 8
Sheets(sht).Range("B45:C45").Interior.ColorIndex = 8
Sheets(sht).Range("C2").Value = DateTime.Now()
Sheets(sht).Range("C2").NumberFormat = "dd/mm/yy;@"
Sheets(sht).Range("B45").Value = "Total"
Sheets(sht).Range("C45").Value = "=SUM(B31:B44)"
End Sub

Merci

[aalex_38]

Ton texte est bien plus long que la colonne, parce que tu augmentes la colonne a 55 ?

[david_atx]

si ca ne marche pas cela peut etre du tout simplement à ton import de données qui retransforme peut etre le format de ta cellule ?

pour éviter cela fait un pastespecial xlpastevalues si jamais tu fais un copier coller

[macat]

Même avec une colonne à 55, des fois ce n'est pas assez, raison pour laquelle je voulais que mes cellules s'adaptent.
Mes cellules sont importées par macro et le format n'est pas changé en arrivant.
Donc je veux bien essayer d'ajouter à ma macro concernée une formule qui contrecarrerait cela, si quelqu'un a une idée, moi je n'ai rien trouvé.
Bonne soirée.

[macat]

Bonjour,

En fait je me suis trompée, les feuilles créées reprennent exactement le format de la feuille de base. Merci pour m'avoir mis la "puce à l'oreille".

Donc cela fonctionne correctement, il suffisait que je formate mes cellules de la base pour avoir le même résultat à l'arrivée.

Bonne continuation à tous.