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

Inscription: 20/02/2018
De Suisse

Messages: 13

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

Alors j'ouvre ton fichier

 

Je fais actualiser et je touche un peu le TCD et tout va bien...

 

J'ouvre mon fichier

 

-Je colle ton code (je fait "play" et là j'ai de nouveau l'erreur 9 blablabla)

-J'essaye d'actualiser j'ai de nouveau l'erreur 9 blablabla

-J'enlève la formule dans le rectangle (je n'ai pas de couleurs)

-J'actualise j'ai de nouveau l'erreur 9 blablabla

-Je touche mon TCD.. et là tous plante...

 

Dernière chance.. Je copie colle la formule en AD153 de ton fichier dans le mien et la miracle ça marche.... 

:):):):):):):):):)

 

Il avait des "   " dans la formule de mon fichier (je pense que tu les as supprimé).... Sur cette base je vais pouvoir avancer....

 

Merci beaucoup pour ta patience et tout le reste....

 

Bonne journée à toi...

 

François

 

 

 

Hors Ligne
Rapport   Haut 

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

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

Messages: 111

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 24-04 09h42

Bonjour à toutes et tous
Bonjour François

 

Voilà une très bonne nouvelle.

 

Bonne journée
Eric

Hors Ligne
Rapport   Haut 

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

Inscription: 20/02/2018
De Suisse

Messages: 13

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 24-04 13h55

Maintenant que tout fonctionne je vais essayer de mettre ça sur mon vrai fichier...

 

Je veux utiliser ton code (en modifiant la cellule AD153 où il y a le calcul) pour avoir des couleurs sur mes autres tableau...

 

J'ai collé deux fois le code mais celui panique à cause du Sub Worksheet_Change(ByVal Target As Range)

qui revient plusieurs fois...

 

Je vais essayer de magouiller quelques chose pour éviter tous cela...

Hors Ligne
Rapport   Haut 

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

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

Messages: 111

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 24-04 18h59

Re

 

Attention magouiller n'est peut-être pas la bonne solution wink, il faut être rigoureux.

 

Si tu gardes les mêmes couleurs, je pense que tu peux n'avoir qu'une procédure en adaptant avec des variables.

 

Si tu as un problème, n'hésite pas

 

A+

 

Eric

 

 

Hors Ligne
Rapport   Haut 

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

Inscription: 20/02/2018
De Suisse

Messages: 13

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 25-04 10h11

Salut,

 

Alors j'ai magouillé mes formules pour que celles-ci correspondent à l'infrastructure que tu m'avais fait sur le premier code. Je l'ai ensuite adapté pour mes autres tableaux et ça marche nickel...

J'ai aussi passé chez un pote informaticien qui m'a expliqué deux trois trucs et m'a montré l'élément ESSENTIEL si veux comprendre où est ton erreur : la fenêtre VARIABLE LOCAL !

L'infrastructure (espace etc) et la rigueur sont effectivement primordial dans ces tableaux

 

Maintenant tous est OK... Merci de ton dévouement ;)

 

Bonne journée à tous...

 

PS: voici mon code si cela peut intéresser quelqu'un....

 

 

Option Explicit

Public val_cel As Boolean

 

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

 

Sub lance()
Dim tablo
Dim tablo_01
Dim tablo_02
Dim tablo_03

 

Dim t0 As String, t1 As String, t2 As String, t3 As String, t4 As String

 

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

 

'Coût NC par semaine

 

If IsError(Range("AD153")) Then val_cel = True: Range("AD153").Value = "": Exit Sub
tablo = Split(Range("AD153").Value, ":")
tablo_01 = Split(Mid(Range("AD153"), 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   ' rectangle où se situera les couleurs
Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 10
With Selection
    .Characters.Text = Range("AD153").Value   ' cellule où est située la formule
    .Characters.Font.ColorIndex = 0 ' titre
    .Characters(Start:=Len(tablo(0)), Length:=Len(t0) + 3).Font.ColorIndex = 10  ' 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

 

'Nbr de composant par semaine

 

If IsError(Range("AD106")) Then val_cel = True: Range("AD106").Value = "": Exit Sub
tablo = Split(Range("AD106").Value, ":")
tablo_01 = Split(Mid(Range("AD106"), 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 13").Select   ' rectangle où se situera les couleurs
Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 10
With Selection
    .Characters.Text = Range("AD106").Value   ' cellule où est située la formule
    .Characters.Font.ColorIndex = 0 ' titre
    .Characters(Start:=Len(tablo(0)), Length:=Len(t0) + 3).Font.ColorIndex = 10  ' 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

 

'Pourcentage de remplacement

 

If IsError(Range("AD99")) Then val_cel = True: Range("AD99").Value = "": Exit Sub
tablo = Split(Range("AD99").Value, ":")
tablo_01 = Split(Mid(Range("AD99"), Len(tablo(0)) + 3), "       ")
t0 = tablo_01(0)    ' rempl
tablo_02 = Split(tablo_01(1), "  ")
t1 = tablo_02(0)    ' dechet
t2 = tablo_02(1)    ' total

 

val_cel = True

 

ActiveSheet.Shapes("Rectangle 8").Select   ' rectangle où se situera les couleurs
Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 10
With Selection
    .Characters.Text = Range("AD99").Value   ' cellule où est située la formule
    .Characters.Font.ColorIndex = 0 ' titre
    .Characters(Start:=Len(tablo(0)), Length:=Len(t0) + 3).Font.ColorIndex = 10  ' 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 = 7 ' total


End With

 

val_cel = False

 

Range("N10").Select
End Sub

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