[XL-2003] formule de MFC inopérante [Résolu]

[midge]

bonjour
J'ai le souci suivant : sur une feuille j'ai une colonne composée de matricules et des noms prénoms qui y sont attachés. L'objectif est avec une MFC de "zapper" les matricules + espaces et ne garder que les noms et prénoms.
Exemple : AA14334 - DUPONT CHARLES
Lorsque je sélectionne la colonne et applique la formule suivante, rien ne se passe, une idée du problème ? Merci pour vos retours.
la formule est :

Code :

=DROITE("E:E";NBCAR("E:E") - 10)

[Runsh63]

Bonjour midge,

En partant de l'hypothèse où ta première cellule à traiter se trouve en A1, alors ta formule est parfaite :

Code :

=DROITE(A1;NBCAR(A1)-10)

Duplique sur la longueur de ta colonne et le tour est joué

[Daniel.C]

Bonjour,
Je n'ai pas compris si tu veux faire une MFC et sinon, pourquoi. Mets sur la première ligne :

Code :

=DROITE("E1";NBCAR("E1") - 10)

et recopie vers le bas

[midge]

Bonjour,
Merci à vous deux pour vos retours
@Runsh63 : je teste et je reviens si nécessaire thanks
@Daniel.C : de AA14334 - DUPONT CHARLES je veux arriver à
DUPONT CHARLES colorié en jaune
Où ai-je mal compris ta question ? A force de réfléchir dans tous les
sens quelquefois les questions les plus simples ne font pas "tilt"
merci en tous les cas

[Daniel.C]

Tu peux y arriver en changeant la police du matricule pour le rendre invisible. Qu'est-ce que tu veux mettre en jaune, la police ou le fond de cellule ?
Ou est-ce que tu veux supprimer le matricule ?
Pour mettre la police du matricule en blanc :

Code :

1
2
3
4
5
6
7
8
Sub test1()
Dim c As Range
With Sheets("Feuil2")
    For Each c In .Range(.[E1], .Cells(.Rows.Count, 5).End(xlUp))
        c.Characters(1, InStr(1, c.Value, "-")).Font.Color = vbWhite
    Next c
End With
End Sub

[midge]

Bonjour Daniel C

C'est la police en jaune et le matricule supprimé.
Derrière j'aimerai faire des tris voire regrouper certains noms pour les déplacer et autres manips ... si le matricule est invisible (et donc non supprimé en réel) est-ce que cela sera gênant pour ce que j'envisage ?
En tous les cas il ne me serait pas venu à l'esprit de rendre une police invisible ... je teste dès que j'ai accès au fichier (au boulot) !
Merci

[Daniel.C]

Pour avoir le matricule supprimé et le texte en jaune :

Code :

1
2
3
4
5
6
7
8
9
Sub test2()
Dim c As Range
With Sheets("Feuil2")
For Each c In .Range(.[E1], .Cells(.Rows.Count, 5).End(xlUp))
    c.Value = Mid(c.Value, InStr(1, c.Value, "-") + 2, 9 ^ 9)
    c.Font.Color = vbYellow
Next c
End With
End Sub

Sinon pour garder le matricule (police blanche et le reste du texte en jaune :

Code :

1
2
3
4
5
6
7
8
9
Sub test1()
Dim c As Range
With Sheets("Feuil2")
For Each c In .Range(.[E1], .Cells(.Rows.Count, 5).End(xlUp))
    c.Font.Color = vbYellow
    c.Characters(1, InStr(1, c.Value, "-")).Font.Color = vbWhite
Next c
End With
End Sub

Si le matricule est toujours présent dans la cellule, tu peux te servir du contenu de celle-ci comme tu l'entends; la valeur de la cellule est inchangée.

[midge]

Bonjour à tous
Et plus particulièrement à Daniel C. ... ta solution par macro (matricule supprimé et texte en jaune) fonctionne très bien ! Merci
La police du matricule en blanc marche impec également
Il me reste à comprendre ces macros ..
En revanche, malgré une relecture du tuto sur les MFC, il ne se passe désespérement rien pour ma formule, ou alors j'ai un big problème de neurones ... je ne sais pas si je peux joindre un fichier exemple ?

[78chris]

Bonjour

Une formule de MFC : renvoie vrai ou faux et si vrai applique une couleur ou autre mise en forme.

Là, ta formule (à corriger) renvoie le contenu de la cellule sans les 10 premiers caractères : c'est ni vrai ni faux... donc il ne se passe rien.

Tu peux aussi ajouter une colonne contenant seulement la partie nom-prenom par formule ou découper avec données Convertir...

[Daniel.C]

Ta formule pose plusieurs problèmes. Il ne faut pas mettre les références de cellule entre guillemets. Ensuite, une mise en forme conditionnelle s'applique uniquement sur la valeur de la cellule, pas sur une partie d'entre elle. La formule :

Code :

DROITE(E1;NBCAR(E1) - 10)

renvoie la partie droite de la cellule alors qu'une formule destinée au format conditionnel doit renvoyer VRAI ou FAUX (ou, ce qui est équivalent, 1 ou 0). Dis-moi ce que tu ne comprends pas dans le code, je te le commenterai.

[midge]

Bonjour

@ 78chris : merci pour tes explications, je n'y étais pas du tout, j'essaierai la colonne supplémentaire ...

@ Daniel C. : je ne sais pas pourquoi j'étais parti sur une partie de la cellule mais a posteriori cela semble évident ...
la ligne que je ne saisis pas du tout c'est la suivante

Code :

c.Value = Mid(c.Value, InStr(1, c.Value, "-") + 2, 9 ^ 9)

je n'ai pas encore eu l'occasion de consulter l'aide sur "Mid", ce qui me semble curieux c'est le "9^9" ... merci pour ton aide

[Daniel.C]

@ midge :

Mid est l’équivalent anglais de STXT. 9^9 ou 9 puissance 9 est utilisé pour une très grande valeur (plus de 387 millions). Je l'utilise ici pour remplacer la longueur inconnue d'un string. Instr renvoie la position du tiret dans la cellule. En conclusion, la formule revoie la sous-chaîne située après le tiret.

[midge]

merci pour les infos