[Excel]Mise en forme cellules Résolu

Question

Bonjour chers ccmistes.

Je me tourne vers vous car j'ai un problème que je n'arrive pas à régler sur un fichier excel que je dois réaliser pour l'un des clients de mon entreprise. Ce n'est peyut-être qu'un détail mais il lui parait important et je sèche complètement dessus.

Explication du problème : Dans mon modèle de facture, j'ai une colonne avec un pourcentage. Mais, le client trouve le chiffre du pourcentage trop gros et souhaiterait le réduire, sans pour autant réduire la taille des autres caractères. Si je sais parfaitement le faire à la main, je n'arrive pas à automatiser ceci. De plus, le fait que j'utilise du vba pour remplir la facture me complique sans nul doute encore plus la tâche.

J'ai bien essayé de regarder au niveau des mises en forme conditionnelles, mais je n'y ai pas trouvé mon bonheur non plus. J'espère que vous saurez m'aider.

Cordialement,

Kitty-Cat

ppmax · Answer

si tu sais le faire à la main, tu sais le faire par macro, il ne faut pas oublier l'enregistreur de macro qui sauve tout ce que tu fais à la main !

Kitty-cat · Answer

Donc en gros, faut que j'm'amuse à remplir toute ma page avec des 100% (par exemple), puis de lancer l'enregistreur de macro avant de changer la taille des pourcentages? :o

Renji 72 · Answer

bonjours les gars excusez moi de vous déranger pouriez vous me dire quel adware pourait s associer avec spy sweeper svp.merci

Kitty-cat · Answer

C'est pas le bon forum pour ça, et en plus j'en sais rien.

Sinon ppmax, je vais faire ça, et je reviens te dire.

Renji 72 · Answer

écouté je suis nouveau (je viens tout juste de m inscrire) je sais pas trés bien coment fonctionne ce site donne moi juste une réponse svp pour que je puisse protégé mon ordi vous seriez sympa

Renji 72 · Answer

désolé de vous avoir dérangé slt

Kitty-cat · Answer

Bon bah, ca foire v_v

Par rapport à ce que la macro m'a sorti, j'ai adapté à mon code en utilisant ceci : 

 totSheet.Cells(lDebut, totSheet.Range("r.txttotch2").Characters(Len(dTot_Pourcentage(i, 0) & "%") - 1, Len(dTot_Pourcentage(i, 0) & "%"))).Font.Size = 8
            
Et le déboggueur VBA me sort "Type Incompatible". J'ai bien pensé que c'est parce que je faisais l'opération sur ma variable et non pas ma cellule, mais quand je pointe ma cellule, le problème reste le même : Un type incompatible.

Si tu as une idée l'ami, je suis preneur.

ppmax · Answer

en gros tu veux rapetisser le caractère % ?

Kitty-cat · Answer

Ouaip, c'est exactement ça

ppmax · Answer

voilà, j'ai fait ça rapidos,
j'ai utilisé l'activeCell pour simplifier le code


    Dim txt As String
    Dim indicePourcent As Integer
    txt = ActiveCell.Value
    For Compteur = 1 To Len(txt)
      If Mid(txt, Compteur, 1) = "%" Then
        indicePourcent = Compteur
      End If
    Next
    ActiveCell.Characters(indicePourcent, 1).Font.Size = 8


Ca réduit le caractère % dans la cellule active.

Kitty-cat · Answer

Merki ^^

[Excel]Mise en forme cellules

11 réponses

Discussions similaires

Newsletters