Re: Différentes police dans une même cellule
#11
Débutant XLPages

Inscription: 20/02/2018
De Suisse

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 09-04-2018 10h04

En faite moi j'aimerais les couleurs dans la zone de texte sur le graphique. Je t'ai mis en annexe le graphique avec mes annotations.

 

Si tu veux dans mon vrai fichier la cellule AD15 = AD153 car j'ai d'autres indicateurs avant celui-ci. C'est cette cellule où j'ai la formule qui est injecté dans zone de texte au dessus du graphique (que je souhaite en couleur)...

 

Voilà voilà je pense que c'est plus clair comme ça...

 

Merci d'avance pour ta solution

 

Bonne journée à tous

Pièce jointe:
xlsm Suivi étapes assemblage_Eric_01.xlsm   [ Taille: 55.20 Ko - Téléchargements: 480 ]
Hors Ligne
Rapport   Haut 

Re: Différentes police dans une même cellule
#12
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 09-04-2018 14h57

Bonjour à toutes et tous
Bonjour François

 

C'est bien ce qu'il me semblait. Essaie ce code :

Sub lance()
Dim tablo

' dechet bleu
' rempl vert
' sav rouge
' solde jaune
' violet total

If IsError(Range("AD1")) Then val_cel = True: Range("AD15").Value = "": Exit Sub
tablo = Split(Range("AD1").Value, ":")
tablo_01 = Split(Mid(Range("AD1"), Len(tablo(0)) + 3), "       ")
t0 = tablo_01(0)    ' rempl
tablo_02 = Split(tablo_01(1), "  ")
t1 = tablo_02(0)    ' dechet
t2 = tablo_02(1)    ' soldes
tablo_03 = Split(tablo_01(2), "  ")
t3 = tablo_03(0)    ' sav
t4 = tablo_03(1)    ' total

val_cel = True

ActiveSheet.Shapes("Rectangle 17").Select   ' il serait bon de donner un nom à cette forme
Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 10
With Selection
    .Characters.Text = Range("AD1").Value   ' cellule où est située la formule : AD15, AD153, ..... à toi d'adapter
    .Characters.Font.ColorIndex = 0 ' titre
    .Characters(Start:=Len(tablo(0)), Length:=Len(t0) + 3).Font.ColorIndex = 50  ' rempl
    .Characters(Start:=Len(tablo(0)) + Len(t0) + 10, Length:=Len(t1)).Font.ColorIndex = 41 ' dechet
    .Characters(Start:=Len(tablo(0)) + Len(t0) + 10 + Len(t1) + 2, Length:=Len(t2)).Font.ColorIndex = 44 ' soldes
    .Characters(Start:=Len(tablo(0)) + Len(t0) + 10 + Len(t1) + 2 + Len(t2) + 7, Length:=Len(t3)).Font.ColorIndex = 3 ' sav
    .Characters(Start:=Len(tablo(0)) + Len(t0) + 10 + Len(t1) + 2 + Len(t2) + 7 + Len(t3) + 2, Length:=Len(t4)).Font.ColorIndex = 7 ' total
End With

val_cel = False
Range("N10").Select
End Sub

 

 

Dis nous

Eric

Hors Ligne
Rapport   Haut 

Re: Différentes police dans une même cellule
#13
Débutant XLPages

Inscription: 20/02/2018
De Suisse

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 12-04-2018 13h40

Salut Eric,

 

J'ai testé ton code et cela marche nickel. Cependant j'ai un problème lorsque je copie le code dans mon classeur avec mes autres données, celui-ci me mets une erreur 9 l'indice n'appartient pas à la sélection.

 

Après moulte recherche sur le Web je n'ai pas trouvé comment modifier ton code pour effacer cette erreur ! Je pense qu'il y a un problème avec les différentes feuilles qui n'étaient pas présentes dans mon premier exemple.

 

Je t'ai mis en annexe le fichier où je vais vraiment l'utiliser

j'ai juste vidé les autres onglets de leur informations mais je l'ai laissé la structure telle quelle.

 

Peux-tu m'expliquer où se situe et l'erreur et comment la réparer?

 

Merci d'avance et bonne journée

Pièce jointe:
xlsm Suivi étapes assemblagetest.xlsm   [ Taille: 71.18 Ko - Téléchargements: 411 ]
Hors Ligne
Rapport   Haut 

Re: Différentes police dans une même cellule
#14
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 12-04-2018 18h13

Bonsoir

 

L'erreur vient de ce que tu as modifié la formule. Tu as supprimé des "  " et autres "&"

 

En plus tu as supprimé ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If val_cel = True Then val_cel = False: Exit Sub
lance
Application.ScreenUpdating = True
End Sub

sans ce code cela ne peut pas fonctionner.

 

Est ce la dernière formule qui est dans ton fichier ? si oui, j'adapterai sur ton fichier.

 

A te lire

Eric

Hors Ligne
Rapport   Haut 

Re: Différentes police dans une même cellule
#15
Débutant XLPages

Inscription: 20/02/2018
De Suisse

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 13-04-2018 08h33

Salut Eric,

 

Effectivement après toute mes modifications et tentatives cette partie du code a disparu...

 

Concernant les "" il me semble que j'avais scrupuleseument coller le code en modifiant seulement les AD1 en AD153

 

J'ai réessayer :

J'ai mis le premier code (private sub) transmis dans la 1ère partie, puis ton deuxième code pour avoir les couleurs sur le rectangle mais toujours cette même erreur n°9...

 

J'ai mis le fichier en annexe et oui la formule est bien celle de la cellule AD153

 

Je pense que là ça devrait être réglé.

Pièce jointe:
xlsm Suivi étapes assemblagetest.xlsm   [ Taille: 74.28 Ko - Téléchargements: 485 ]
Hors Ligne
Rapport   Haut 

Re: Différentes police dans une même cellule
#16
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 17-04-2018 21h17

Bonsoir

 

Ci-joint ton dernier fichier qui fonctionne. A tester quand même ....

 

A+

 

Eric

Pièce jointe:
xlsm Suivi étapes assemblagetest_modif_F_01.xlsm   [ Taille: 73.47 Ko - Téléchargements: 407 ]
Hors Ligne
Rapport   Haut 

Re: Différentes police dans une même cellule
#17
Débutant XLPages

Inscription: 20/02/2018
De Suisse

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 19-04-2018 09h24

Salut Eric,

 

Je te remercie pour le temps passé sur mon problème...

 

J'ai regardé mais cela ne fonctionne pas ! J'ai toujours mon problème de  : Erreur d'exécution '9' : L'indice n'appartient pas à la sélection...

 

J'ai essayé de regarder les options d'Excel et celles-ci sont semblable donc je ne comprends pas où se situe l'erreur. 

Le code est le même, les emplacements de cellules aussi, les options pareils...

 

J'abandonne.... Dommage car cela rendait pas mal les couleurs sur le graphique...

 

J'ai remis à tout hasard les deux fichiers mais je ne vois pas où pourrais se situer le problème...

 

Bonne journée et encore merci chef !!!

Pièce jointe:
xlsm Suivi étapes assemblagetest.xlsm   [ Taille: 74.67 Ko - Téléchargements: 388 ]
xlsm Suivi étapes assemblagetest_modif_F_01.xlsm   [ Taille: 74.93 Ko - Téléchargements: 389 ]
Hors Ligne
Rapport   Haut 

Re: Différentes police dans une même cellule
#18
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 19-04-2018 10h55

Re

 

Je ne dois pas comprendre le mode de ton fichier.

 

Le test que je fais est la modification de la liste en cellule "O149". Est ce le bon test ? sinon dis moi ce que je dois faire.

 

Eric

Hors Ligne
Rapport   Haut 

Re: Différentes police dans une même cellule
#19
Débutant XLPages

Inscription: 20/02/2018
De Suisse

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 23-04-2018 09h03

Salut,

 

ma réponse dans le fichier word qui est zippé....

 

Tiens moi au courant lorsque tu abandonneras ;)

 

Bonne journée

Pièce jointe:
xlsm Suivi étapes assemblagetest.xlsm   [ Taille: 76.06 Ko - Téléchargements: 471 ]
zip image.zip   [ Taille: 27.94 Ko - Téléchargements: 385 ]
Hors Ligne
Rapport   Haut 

Re: Différentes police dans une même cellule
#20
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 23-04-2018 17h45

Bonjour tout le monde

 

Quelles sont les manipulations que tu exécutes sur ce fichier ? Perso je change les choix dans la liste qui se situe en "O149", ce qui modifie les résultats de la cellule "AD153".

 

J'ai repris ton fichier et je le joins : "Suivi étapes assemblagetest_03_Eric.xlsm". Il fonctionne chez moi.

- Teste le avant de modifier quoique ce soit.

- Si tu dois corriger la formule en "AD153", STP modifie UNIQUEMENT les références (adresses) des cellules et non le nombre d'espaces.

- Ne mets pas de formule dans la forme "rectangle 17" du type "=AD153".

 

A+

Eric

Pièce jointe:
xlsm Suivi étapes assemblagetest_03_Eric.xlsm   [ Taille: 78.08 Ko - Téléchargements: 426 ]
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes