Discussion :

[raphl]

Bonjour à tous,

dans un fichier excel avec de nombreuses lignes, j'ai dans mes cellules:

formule 1 & "+" & formule 2, après calcul cela m'indique par exemple: 1+10.

je souhaiterai mettre le nombre 10 en rouge par exemple tout en laissant le 1 en noir par exemple grâce au VBA.

Est ce possible?

Merci pour votre aide

[MarcelG]

Bonjour Raphl,

Tout d'abord, sois le bienvenu sur ce Forum!

Tu peux adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub ESSAI()
Dim c As Range
 
For Each c In Range("A1:A10")
        With c
                'Pour n'obtenir que des valeurs
                .Value = .Value
                'Position du signe +
                lim = WorksheetFunction.Find("+", c)
                'Définition de la couleur choisie à partir de cette position
                .Characters(Start:=lim + 1, Length:=Len(c) - lim + 1).Font.ColorIndex = 3
        End With
Next c
End Sub

[raphl]

pourquoi il ne peut pas lire la proprièté de worksheetfunction?

[MarcelG]

As-tu adapté l'adressage des cellules?

[raphl]

par adressage tu entends onglet/classeur/cellule?

en fait j'ai plus l'habitude de programmer du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
for j= 1 to 50
for i= 1 to 50
 
cells(i,j).value=cells(i,j).value
 
Next
Next

Alors je sais pas si j'ai fait les bonnes choses?

en tout cas merci pour ton aide

[MarcelG]

Tout dépend.

Chaque proposition doit ensuite être adaptée par l'expéditeur du post.

Ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:A10")

signifie le balayage des cellules A1 à A10. A toi d'adapter.

Si tu travailles sur plusieurs feuilles et que tu veux spécifier la feuille, tu écriras

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("mafeuille").Range("A1:A10")

Et si plusieurs classeurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("monclasseur.xls").Sheets("mafeuille").Range("A1:A10")

Encore une fois, c'est à toi de voir.

[raphl]

merci beaucoup à toi ca marche nikel

bravo!!

Néanmoins est ce possible de mettre deux couleur sans mettre la cellule en type valeur, en laissant la formule à l'intérieur?


merci

[MarcelG]

Difficilement, du moins à mon - humble - niveau.

Cependant tu peux générer une formule puis en figer le retour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub ESSAI()
Dim c As Range
 
For Each c In Range("A1:A10")
        With c
                '1er temps Formulation
                .FormulaR1C1 = 'ta formule 
                '2ème temps retour en valeur de cellule
                .Value = .Value
                'Position du signe +
                lim = WorksheetFunction.Find("+", c)
                'Définition de la couleur choisie à partir de cette position
                .Characters(Start:=lim + 1, Length:=Len(c) - lim + 1).Font.ColorIndex = 3
        End With
Next c
End Sub

Mais tu peux aussi utiliser les fonctions VBA en les affectant directement à tes valeurs de cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'1er temps et 2ème temps simultanés
.Value = CStr(.offset(0,3)) & "+" & CStr(.Offset(0,4))

A adapter, bien entendu.