Excel RéféranceRésolu/Fermé

Question

Bonjour, 

Je cherche à faire une chose spécial avec EXCEL^^.

Je m'explique,

J'ai une colonne qui s'apelle référance.

Ex :

030 20 832 M
030 20 965 M
030 20 696 M
030 90 123 M

Ce que je veut obtenir, c'est quand j'écris dans la colonne Automatiquement les 3 dernier CHIFFRES se mettent en GRAS.

Ex : 

030 20 832 M
030 20 965 M
030 20 696 M
030 90 123 M


merci de votre aide la plus rapide possible :) 
Je vous souhaite une bonne journée



Configuration: Windows XP / Internet Explorer 7.0

madeliocustom · Accepted Answer

Bonjour,

ci-dessous une macro exemple qui met 4 lignes dans une cellules et la 2eme et la 4eme en gras.

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 04/02/2011 par SILCA
'

'
    ActiveCell.FormulaR1C1 = "'ggggg" & Chr(10) & "fffff" & Chr(10) & "jjjjj"
    With ActiveCell.Characters(Start:=1, Length:=17).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("C18").Select
    ActiveCell.FormulaR1C1 = "'ggggg" & Chr(10) & "fffff" & Chr(10) & "jjjjj" & Chr(10) & "jkjkjkjkj"
    With ActiveCell.Characters(Start:=1, Length:=6).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=7, Length:=5).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=12, Length:=7).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=19, Length:=9).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("G22:G23").Select
    Range("G23").Activate
End Sub




A+
Madelio

Maxime · Answer

Je crois que la mise en forme conditionnelle travaille sur base de cellule. 

La MFC s'applique à tout l'objet. 

Donc, pas de solution sauf à stocker dans 3 champs différents ce qui est lourdingue.

Et sans vouloir te froisser : REFERENCE et pas REFERANCE...

Razaii · Answer

Erf, et tu n'as pas idée pour qu'en forme conditionelle je puise mettre =droite(a1;a20 .... ) pour le dire que les 3 derniers cartères apparaîssent en gras ?


Merci pour la faute O-o, je n'avais même pas vu, j'ai eu chaud :D

Excel Référance

3 réponses

Newsletters