Présentation en VBA

Version imprimable

04/06/2007, 11h55
Tiresia

Présentation en VBA

Bonjour à tous, alors voila, je suis en stage et on m'a demandé de faire un script pour mettre en forme un tableau. Je précise, je fais des requêtes SQL dont j'exporte les résultats dans une feuille Excel, ce qu'il me faudrait, c'est un script qui permettrait de quadriller le tableau où il y a des données uniquement bien entendu, d'ajuster la taille des colonnes et des lignes à la taille des données, de faire en sorte que le tableau tienne sur une page (en largeur parceque les tableaux font souvent plusieurs pages), ce qui fait qu'au final, l'utilisateur aurait juste à exporter le résultat dans Excel et à appuyer sur Imprimer sans se poser de questions...

Si vous avez des pistes de départ ou bien encore mieux une idée précise de comment procéder, je suis preneur. Merci d'avance :)
04/06/2007, 12h15
Invité

Bonjour

Fais la manipulation avec l'enregistreur de macro (Outils/Macro/Nouvelle Macro), cela va te créer un module (Alt+F11) pour le visualiser.

Tu n'as plus qu'à éplucher le code VBA.

Starec

Bonjour et Merci :)

Alors, voila ce que ça me donne quand je quadrille une case comme je veux
Code:

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 Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With
maintenant, ce que je voudrais savoir, c'est comment faire pour qu'il m'applique ça sur toutes les cases ou il y a des données... et aussi savoir si c'est possible d'avoir un classeur Excel par défaut dans lequel s'executera le quadrillage automatique et tout le reste dés que j'exporte les données de ma BDD vers le classeur... Je ne connais pas grand chose à la syntaxe en VBA, mais je suppose que le parcours d'un tableau doit toujours être dans le style du C genre

Citation:

while(contenu>0)
{
quadriller;
colonne+1;
ligne+1;
}

quelqun peut me dire vaguement comment ça se traduit en VBA ?

Merci d'avance :)

Citation:

Envoyé par Tiresia

Bonjour et Merci :)

Alors, voila ce que ça me donne quand je quadrille une case comme je veux

Code:

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
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

maintenant, ce que je voudrais savoir, c'est comment faire pour qu'il m'applique ça sur toutes les cases ou il y a des données... et aussi savoir si c'est possible d'avoir un classeur Excel par défaut dans lequel s'executera le quadrillage automatique et tout le reste dés que j'exporte les données de ma BDD vers le classeur... Je ne connais pas grand chose à la syntaxe en VBA, mais je suppose que le parcours d'un tableau doit toujours être dans le style du C genre

quelqun peut me dire vaguement comment ça se traduit en VBA ?

Merci d'avance :)

bonjour à tous

Code:

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
dim cel as range
for each cel in sheets.cells
if cel.value > "" then 
  cel.Borders(xlDiagonalUp).LineStyle = xlNone
    With cel.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With cel.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With cel.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With cel.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With cel.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With cel.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
next

mais cela risque d'etre tres long, il faut limité la selection

Code:

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
dim cel as range
for each cel in Range("A1:F50") ' Traite la plage definie
if cel.value > "" then 
  cel.Borders(xlDiagonalUp).LineStyle = xlNone
    With cel.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With cel.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With cel.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With cel.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With cel.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With cel.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
next

bonne journée

04/06/2007, 12h55
Tiresia

Merci bien, petit sushi, il me met lors de l'execution :

"Erreur d'execution 1004, impossible de définir la propriété LineStyle de la classe Border" :cry:

Citation:

Envoyé par Tiresia

Merci bien, petit sushi, il me met lors de l'execution :

"Erreur d'execution 1004, impossible de définir la propriété LineStyle de la classe Border" :cry:

re:

oui je viens de le voir, la procedure traite cellule par cellule donc les deux bloc
Code:

1 2 3 4 5 6 7 8 9 10 With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With
n'ont pas lieu d'etre etant donné que dans une cellule il ne paut pas y avoir de lignes medianes horisontales ou verticales

04/06/2007, 13h17
Tiresia

Merci, déja la ça marche bien, alors maintenant je me pose la question suivante :

Est ce que c'est possible de faire en sorte que cette Macro soit présente dans un classeur par défaut dans lequel j'irais exporter les Résultats de mes requêtes SQL et qu'elle soit executée automatiquement quand j'ouvre le classeur, ce qui fait que je n'aurais plus rien à faire en présentation à la main, il me suffira d'enregistrer ensuite le classeur avec les résultats sous un autre nom que le classeur par defaut pour pouvoir l'utiliser autant de fois que je veux...j'espere être assez clair, merci d'avance :)
04/06/2007, 13h54
wilfried_42

re:

c'est deja plus compliqué, il va falloir structurer les manips.
C'est possible, mais l'ouveture du fichier doit se faire pas la macro elle meme, ainsi que la sauvegarde.

un fichier exemple(sans renseignements indiscrets) me semble necessaire maintenant.

salutations
04/06/2007, 13h55
Tiresia

Plus simplement, est ce que ce ne serait pas possible d'enregistrer cette Macro dans un fichier excel et ensuite, après avoir exporté mes résultats dans un autre fichier, d'utiliser la Macro dans la feuille d'origine sans avoir à l'ouvrir...mh...je crois que le plus simple va rester encore d'enregistrer la macro au format texte et de la copier dans les fichiers concernés... je me trompe ?
04/06/2007, 14h01
Tiresia

Un fichier exemple, oh ce n'est pas bien compliqué, je suis dans une boite de logistique et je fais par exemple un listing des emplacements palettes existants avec une colonne n° de Rack, une colonne étage, une colonne profondeur, une colonne bâtiment, une colonne etat... et ça va me sortir un tableau à 38 000 lignes et le nombre de colonnes sera fonction du nombre de renseignements que je souhaite avoir. Ce résultat, je peux l'enregistrer au format Excel, par exemple "Emplacements.xls" mais je ne peux pas exporter uniquement les resultats vers la feuille Excel ou il y a ma macro sinon j'ecrase tout :s Voila si ce n'est pas clair, n'hesitez pas et merci de votre aide :)
04/06/2007, 14h32
wilfried_42

re:

comme je dis c'est faisable sans maipulation supplementaire, mais le 1er classeur doit tout piloté

voici un exemple :

bonne soirée
04/06/2007, 14h39
Tiresia

Merci du coup de main, finalement, on m'a dit que les utilisateurs feraient un copier coller des resultats dans la feuille ou il y a le script :roll: alors le problème ne se pose plus, me reste plus qu'à faire un bouton pour executer le script.

Bonne fin de journée :D