Excel Référance

Résolu/Fermé
Razaii Messages postés 85 Date d'inscription samedi 4 avril 2009 Statut Membre Dernière intervention 5 septembre 2017 - 1 déc. 2010 à 13:38
madeliocustom Messages postés 41 Date d'inscription mardi 11 mai 2010 Statut Membre Dernière intervention 23 avril 2012 - 4 févr. 2011 à 13:31
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




A voir également:

3 réponses

madeliocustom Messages postés 41 Date d'inscription mardi 11 mai 2010 Statut Membre Dernière intervention 23 avril 2012 13
4 févr. 2011 à 13:31
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
3
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...
1
Razaii Messages postés 85 Date d'inscription samedi 4 avril 2009 Statut Membre Dernière intervention 5 septembre 2017 13
1 déc. 2010 à 15:29
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
0
Non, pas dans une même cellule. Essaie de comprendre que les propriétés (gras, italique, police, taille, etc) concerne l'objet cellule. Aucun moyen de dissocier.

La seule façon que je vois (à la bourrin) c'est trois cellules et celle de droite en gras.
0
Razaii Messages postés 85 Date d'inscription samedi 4 avril 2009 Statut Membre Dernière intervention 5 septembre 2017 13
1 déc. 2010 à 23:51
Sinon y'a les macros j'ai vu, mais au lieu de mettre les 3 chiffres en gras, elle les remplace également ...

Merci quand même, je ferai les cellules une par une ma fois :)

Cordialement.
0