Excel Référance

Résolu
Razaii Messages postés 85 Date d'inscription   Statut Membre Dernière intervention   -  
madeliocustom Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 3
madeliocustom Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   13
 
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
Réponse 2 / 3
Maxime
 
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
Réponse 3 / 3
Razaii Messages postés 85 Date d'inscription   Statut Membre Dernière intervention   13
 
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
Maxime
 
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   Statut Membre Dernière intervention   13
 
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