Module Mise en forme cellule ?

**IronHeavy** · 10/10/2017, 09h33

Bonjour à tous!

Je souhaite qu'à l'export de mes données (Issues de Text- List- et ComboBoxes) les cellules destinataires s'adaptent à la quantité de données à afficher.

Pour des raisons de mise en page, il ne faudrait pas que les colonnes soient modifiées, mais seulement la hauteur des lignes (renvoi à la ligne également je pense)...

Mes différentes recherches et tests ne sont pour le moment pas concluants!

J'ai expérimenté diverses techniques basées sur le modèle:

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

Code :

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

1
2
3
Range("A9:P1000").Select 
 Selection.Rows.AutoFit 
End Sub

Mais plusieurs soucis:

- certaines lignes demeurent en format d'origine, malgré le fait que certaines de leur cellules soient remplies de texte,

- certaines lignes sont exagérément agrandies alors que le contenu de leurs cellules tient en une seule ligne!

- la gestion du "Renvoyer à la ligne automatiquement" est devenue complètement hasardeuse...

Auriez vous des pistes à me suggérer? Existerait il un module de gestion efficace du type "efface toute mise en forme puis applique celle ci"?

**MolikDLuffy** · 10/10/2017, 17h35

Bonjour IronHeavy,

Il faut peut-être remettre l'ensemble des cellules en standard afin de faire par la suite un AutoFit...

Code :

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

1
2
3
 
Sheets("feuil1").Range("A9:P1000").NumberFormat = "General"
Sheets("feuil1")Range("A9:P1000").Formula = position

Je n'ai jamais fait le test. Dit moi si ça marche ou pas.

**IronHeavy** · 11/10/2017, 11h19

Bonjour MolikDLuffy,

Après plusieurs essais, j'ai placé

Code :

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

1
2
3
4
5
 
With Sheets("PLANACTION")
   .Rows("9:65536").Delete
   .Rows("9:65536").NumberFormat = "General"
   .Rows("9:65536").Formula = Position

en entète de fonction.

Cela fonctionne, mais j'ai dorénavant mon tri que se retrouve "cul par dessus tête"!

à savoir: 65536 lignes vides puis mes données classés (mise en forme fonctionnelle, c'est déjà ça!)... je ne comprends pas où le bât blesse!

Si je désactive :

Code :

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

.Rows("9:65536").Formula = Position

Mon tri se retrouve à nouveau juste sous la ligne d'entête... mais le format des cellules saute!

**MolikDLuffy** · 11/10/2017, 12h02

Bonjour IronHeavy,

Il me faudrait ton fichier car je ne vois pas dutout la chose...

Sinon j'ai bien rigolé sur ton expression

cul par dessus tête

car c'est la première fois que je lis ça

Pour revenir à ton sujet, si ta base est issue d'une extraction, je sais qu'en général lors de l'extraction (même en format excel), elle n'est pas fiable pour les formats des cellules.

Moi ce que je fais, je copie tout et colle en texte sur un autre classeur.

**IronHeavy** · 11/10/2017, 12h12

Ci dessous mon code complet, peut être l'erreur se situerait dans une sous fonction?

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Private Sub CHierarchisation_Click()
 
 With Sheets("PLANACTION")
    .Rows("9:65536").EntireRow.Delete
    .Rows("9:65536").NumberFormat = "General"
    .Rows("9:65536").Formula = Position
 
   For Each Sh In Sheets
     Select Case Sh.Name
       Case "ADMINISTRATIF", "COLLECTEDECHETS", "DDD", "ESPACESVERTS", "GYPSE", "HAUTEPRESSION", "HOSPITALIER", "HÔTELLERIE", "INDUSTRIE", "INTERHAUTEUR", "LOGISTIQUE", "MECANISE", "NETTOYAGE", "SANITAIRES", "TUNNEL", "VITRERIE"
       For lg = 9 To Sh.Range("A" & Rows.Count).End(xlUp).Row
           LgS = .UsedRange.Rows.Count + 1
           .Cells(LgS, 1) = Sh.Cells(lg, 18)
           .Cells(LgS, 2) = Sh.Cells(lg, 6)
           .Cells(LgS, 3) = Sh.Cells(lg, 5)
           .Cells(LgS, 4) = CInt(Sh.Cells(lg, 11))
           .Cells(LgS, 5) = CInt(Sh.Cells(lg, 12))
           .Cells(LgS, 6) = CSng(Sh.Cells(lg, 14))
           .Cells(LgS, 7) = CInt(Sh.Cells(lg, 17))
           .Cells(LgS, 8) = Sh.Cells(lg, 19)
           .Cells(LgS, 9) = Sh.Cells(lg, 20)
           .Cells(LgS, 10) = Sh.Cells(lg, 21)
           .Cells(LgS, 11) = CSng(Sh.Cells(lg, 22))
           .Cells(LgS, 12) = CInt(Sh.Cells(lg, 23))
           .Cells(LgS, 13) = Sh.Cells(lg, 24)
           .Cells(LgS, 14) = Sh.Cells(lg, 25)
           .Cells(LgS, 15) = Sh.Cells(lg, 26)
           .Cells(LgS, 16) = Sh.Cells(lg, 27)
       Next
 
       Case Else
 
     End Select
   Next
 
 Rows("9:65536").Select
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("G9") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
 
        With Worksheets("PLANACTION").Sort
        .SetRange Range("A9:P1000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
 
            End With
 
 End With
 
  With Worksheets("PLANACTION")
    With Range("A:P")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .MergeCells = False
        .Rows.AutoFit
     End With
   End With
 '       .HorizontalAlignment = xlGeneral
 '       .VerticalAlignment = xlCenter
 '       .WrapText = True
 '       .Orientation = 0
 '       .AddIndent = False
 '       .IndentLevel = 0
 '       .ShrinkToFit = False
 '       .ReadingOrder = xlContext
 '       .MergeCells = False
 
 
Sheets("PLANACTION").Activate
Unload FIDENTIFICATION
Unload FSECTORISATION
Unload FMAÎTRISE
Unload FPLANACTION
 End Sub

**MolikDLuffy** · 11/10/2017, 12h28

Je ne vois pas la déclaration de la Variante pour Sh

**IronHeavy** · 11/10/2017, 14h15

Code :

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

Dim Sh As Variant

ajouté... sans évolution relativement au fonctionnement et/ou non-fonctionnement de mon document ... :-(

**MolikDLuffy** · 11/10/2017, 14h23

Pour ma part,

Code :

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

For lg = 9 To Sh.Range("A" & Rows.Count).End(xlUp).Row

C'est plutôt :

Code :

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

1
2
3
4
5
For lg = Sh.Range("A" & Rows.Count).End(xlUp).Row to 2 'POUR DE HAUT EN BAS JUSQU'A LA LIGNE 2
 
'SINON C'EST
 
For lg = 9 To Sh.Range("A" & Rows.Count).End(xlDown).Row  'POUR DE BAS EN HAUT A PARTIR DE LA LIGNE 2

Pourrais-tu me dire sur quelle ligne la macro ne marche pas en faisant une lecture pas-à-pas?

**MolikDLuffy** · 11/10/2017, 14h30

Code :

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

1
2
3
For Each Sh In Sheets
     Select Case Sh.Name
       Case "ADMINISTRATIF", "COLLECTEDECHETS", "DDD", "ESPACESVERTS", "GYPSE", "HAUTEPRESSION", "HOSPITALIER", "HÔTELLERIE", "INDUSTRIE", "INTERHAUTEUR", "LOGISTIQUE", "MECANISE", "NETTOYAGE", "SANITAIRES", "TUNNEL", "VITRERIE"

Essaye plutôt :

Code :

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

1
2
3
4
5
6
 
set adm = Worksheets("ADMINISTRATIF")
set coll = Worksheets("COLLECTEDECHETS")
set ....
 
For Each Sh In Array (adm,coll,...)

**IronHeavy** · 11/10/2017, 14h43

Code :

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

For lg = 9 To Sh.Range("A" & Rows.Count).End(xlDown).Row

donne un temps de chargement infini... "Excel a cessé de répondre"

Code :

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

For lg = Sh.Range("A" & Rows.Count).End(xlUp).Row to 9

me donne des erreurs à

Code :

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

1
2
3
4
5
6
 .Cells(LgS, 4) = CInt(Sh.Cells(lg, 11))
           .Cells(LgS, 5) = CInt(Sh.Cells(lg, 12))
           .Cells(LgS, 6) = CSng(Sh.Cells(lg, 14))
           .Cells(LgS, 7) = CInt(Sh.Cells(lg, 17))
           .Cells(LgS, 11) = CSng(Sh.Cells(lg, 22))
           .Cells(LgS, 12) = CInt(Sh.Cells(lg, 23))

et, au final, ne me copie que 9 lignes et me les place à la 65536ème ligne!

**MolikDLuffy** · 11/10/2017, 14h46

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
 LgS = .UsedRange.Rows.Count + 1
           .Cells(LgS, 1) = Sh.Cells(lg, 18)
           .Cells(LgS, 2) = Sh.Cells(lg, 6)
           .Cells(LgS, 3) = Sh.Cells(lg, 5)
           .Cells(LgS, 4) = CInt(Sh.Cells(lg, 11))
           .Cells(LgS, 5) = CInt(Sh.Cells(lg, 12))
           .Cells(LgS, 6) = CSng(Sh.Cells(lg, 14))
           .Cells(LgS, 7) = CInt(Sh.Cells(lg, 17))
           .Cells(LgS, 8) = Sh.Cells(lg, 19)
           .Cells(LgS, 9) = Sh.Cells(lg, 20)
           .Cells(LgS, 10) = Sh.Cells(lg, 21)
           .Cells(LgS, 11) = CSng(Sh.Cells(lg, 22))
           .Cells(LgS, 12) = CInt(Sh.Cells(lg, 23))
           .Cells(LgS, 13) = Sh.Cells(lg, 24)
           .Cells(LgS, 14) = Sh.Cells(lg, 25)
           .Cells(LgS, 15) = Sh.Cells(lg, 26)
           .Cells(LgS, 16) = Sh.Cells(lg, 27)

Pourrais-tu m'expliquer avec des phrases ce que tu veux faire avec cette partie du code?

**MolikDLuffy** · 11/10/2017, 14h53

Code :

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

For lg = 9 To Sh.Range("A" & Rows.Count).End(xlDown).Row

Tu devrais rajouter en dessous :

Code :

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

1
2
3
4
 
If cells(lg;1)="" then Exit For 
Else
.....

Cela permet de quitter la boucle si la cellule "Ax" est vide.

**IronHeavy** · 11/10/2017, 14h57

Je peux essayer tout au moins!

Code :

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

LgS = .UsedRange.Rows.Count + 1

"après une ligne déjà utilisée, démarrer une nouvelle ligne"

permet d'insérer toutes les lignes de différentes pages les unes en dessous des autres, et ce dès la base de l'entête en ligne 9.

Code :

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

.Cells(LgS, 1) = Sh.Cells(lg, 18)

"le contenu de la cellule en colonne 1 est égal au contenu de la cellule en colonne 18 de la page en cours"

et ainsi de suite pour les colonnes 1 à 18 de la page "PLANACTION" qui est une synthèse des 16 pages "ACTIVITES"

**IronHeavy** · 11/10/2017, 15h02

Tes conseils sont intéressants, mais je ne bloque pas sur cette phase du code! mes infos sont sélectionnées sur 16 pages, rassemblées sur 1 seule et classées selon 1 critère que j'ai choisi.

Ma problématique initiale était la mise en forme des lignes en fonction de la quantité de données contenues dans ses cellules. Tu m'as aidé à régler ce détail, mais en contreparties je me retrouve avec mon résultat propulsé en 65000 ème ligne!

retoucher à chaque partie de mon code me semble risqué, sachant qu'il était fonctionnel et stable jusque là!

**MolikDLuffy** · 11/10/2017, 15h02

Code :

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

1
2
3
4
5
6
 .Cells(LgS, 4) = CInt(Sh.Cells(lg, 11))
           .Cells(LgS, 5) = CInt(Sh.Cells(lg, 12))
           .Cells(LgS, 6) = CSng(Sh.Cells(lg, 14))
           .Cells(LgS, 7) = CInt(Sh.Cells(lg, 17))
           .Cells(LgS, 11) = CSng(Sh.Cells(lg, 22))
           .Cells(LgS, 12) = CInt(Sh.Cells(lg, 23))

Je pense que Cint, Csng ne doivent pas être présents... Essaye de les enlever.

**IronHeavy** · 11/10/2017, 15h11

Pourrais tu m'éclairer à quoi sert:

Code :

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

.Formula = Position

?

j'ai déjà testé ! C'est en supprimant les arguments Cint, Csng que je parviens à boucler le code seulement... mais après excel "boucle " à l'infini!

**MolikDLuffy** · 11/10/2017, 16h40

Je t'avouais que je ne sais pas non plus... J'avais récupéré ça d'un autre problème de forum qui avait le même problème que toi.

Je pensais que ça permettait de remettre en position standard les formules des cellules...

Peut-être mieux vaut-il pas mieux de supprimer cette partie...

**MolikDLuffy** · 11/10/2017, 16h43

Je pense que j'ai sous estimé ce problème et sans le fichier de base, je n'arrive pas à le résoudre.

J'essaye de m'autoformer sur VBA en essayant de résoudre des problèmes sur Développez donc je suis novice en la matière.

Actuellement, je n'ai pas encore le niveau pour résoudre un code vba sans le fichier.

Mais je ne dis pas que je te laisse tomber

**IronHeavy** · 11/10/2017, 17h01

je travaille à une version allégée pour pouvoir mettre mon fichier en ligne et te permettre de le bidouiller à ton aise!

**IronHeavy** · 11/10/2017, 17h31

Ci joint!

lancer l'USF FPLANACTION directement depuis VBA... puis cliquer sur le bouton HIERARCHISATION jaune et rouge pour lancer la macro!

quelques lignes sont désactivées pour simuler là où j'en étais ce matin...

Merci du coup de main:versionlight2 - EVALUATION DES RISQUES .xlsm

Module Mise en forme cellule ?

Macros et VBA Excel

Discussions similaires

Partager

Partager