Changement de taille de police d'une feuille excel, contourner la confirmation p

Question

Bonjour,
Je souhaiterai changer la taillede la police d'une feuille excel, celle ci est a 10 par d&#233;faut je souhaiterai la mettre &#224; 8 sauriez vous comment proc&#233;der? Il s'agit enfait d'un graphique crois&#233; dynamique ou l'echelle n'apparait pas en entier avec la police 10 donc je souhaiterai la passer &#224; 8.
De plus je dispose d'un script qui effaceune feuille excel ( sheets("name").delete ) qui fonctionne bien mais qui fait apparaitre une confirmation : Etes vous sur de vouloir supprimer la feuille toto, oui ou non? Y a t-il un moyen de la contourner et que ce soit totalement transparent pour l'utilisateur (j'efface une dizaine de feuilles et c relou de cliquer pr confirmer).
Merci d'avance!

Cacoole

jrbleboss · Answer

en fait sur excel c'est simple et tu aurais pu faire une macro pour voir comment il fesait.



Range("A1:C2").Select ' s&#233;lection

    With Selection.Font

        .Name = "Arial"

        .Size = 8

         .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

    End With



Mais au fait tu programme sous excel ou tu pilote excel depuis vb ???

JRB

cacoole · Answer

Merci pour ton code, et bien en fait je fait une macro excel qui traite des donn&#233;es ACCESS. La macro est faite sous VB.
Il me reste encore le souci de la confirmation pour la suppression des feuilles, si tu asune id&#233;e?
Encore merci.

Cacoole

jrbleboss · Answer

Comment ca la confirmation pour la suppression ???

Tu veux demander a l'utilisateur si il veut bien supprimer la feuille ????

C'est ca ???

JRB

jrbleboss · Answer

Ta suppression de feuille c'est sous excel donc je sais pas si la
fonction est reconnue mais sinon tu fais un sendkey (simulations d(une
touche). C'est aps tr&#232;s orthodoxe mais bon ....

JRB

cacoole · Answer

Oui je peux faire un sendkey en effet sendkey de la touche entr&#233;e, ca appuiera sur le oui c sur c vrai aussi que c pas tres orthodoxe...
tu peux me donner le code exact avecla touche entree stp?
Merci pour ton aide

Cacoole

valtrase · Answer

Salut, 
Pour la question d'effacement avant ton sheets(".....").Delete tu mets
Application.DisplayAlert.= Fasle
Sheet .......
Application.DisplayAlert = True

et ceci te change la taille pour les cellules A1...... A50
[A1:A50].Font.Size = 8

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

jrbleboss · Answer

Merci pour moi aussi je me coucherais moins b&#234;te !!!

JRB

Changement de taille de police d'une feuille excel, contourner la confirmation p

7 réponses

Discussions similaires