Codage des caractères par Excel

[EDP]

Bonjour.

Comment Excel code-t-il par exemple :
- un "A" de couleur noire?
- le même "A" de couleur bleue?

Je cherche à extraire des caractères avec une couleur dans un champ.
Il n'y a pas souvent dans les champs que je souhaite traiter de point séparant le texte avec caractères de couleur noire de celui avec caractères de couleur bleue.

Si les caractères ont des codes différents (ASCII + quelque chose identifiant un format, en l'occurrence la couleur, ...), ceux correspondant à des caractères de couleur bleue par exemple étant identifiables par une fourchette de codes, il suffirait de chercher dans le champ où est positionné le caractère avec l'un de ces codes ?

Merci pour votre aide.

Daniel.

 

[ninbihan]

Re : Codage des caractères par Excel

Bonjour le forum, EDP

Je ne comprends pas bien ce que tu cherches, mais l'on peut récupérer le code de la couleur de police. Ainsi pour un A , code 65 couleur de police 1
et pour un A, code 65 et couleur de police 41
la propriété VBA renvoyant le code couleur est :
range("A1" par exemple).font.colorindex

Bonne aprés midi,

Ninbihan

 

[Robert]

Re : Codage des caractères par Excel

Bonjour Daniel, bonjour le forum,

En pièce jointe une macro commentée qui pourrait peut-être t'aider.

Édition :

Bonjour Ninbihan on s'est croisés

 

[EDP]

Re : Codage des caractères par Excel

Voici ce que je cherche à obtenir, d'où mon idée d'identifier dans le champ le 1er caractère ayant un code couleur bleue par exemple, de déterminer sa position dans le champ sachant que je pourrais alors l'extraire ainsi que tous les caractères situés à sa droite.

J'ai dans un champ A1 un texte dont une première partie à gauche est en caractères de couleur noire, et l'autre partie de droite en caractères de couleur bleue.
Exemple : Ich bin müde. Je suis fatigué.
J'aimerais pouvoir extraire du champ le texte en bleu pour le mettre dans le champ immédiatement à droit, soit B1.
Il y a rarement un point entre les textes allemand et français; la couleur permet de distinguer les deux langues.

Merci.

 

[Robert]

Re : Codage des caractères par Excel

Bonjour le fil, bonjour le forum,

Essaie cette nouvelle macro :

Sub Macro1()
Dim x As Integer 'déclare la variable x
With Range("A1") 'prend en compte la cellule A1
    For x = 1 To Len(.Value) 'boucle sur tous les caractères de A1
        'condition : si le caractère a la couleur bleu (couleur à adapter)
        If .Characters(x, 1).Font.ColorIndex = 5 Then
            MsgBox x 'message affichant la position de ce "A" rouge
            Exit Sub 'sort de la procédure
        End If 'fin de la condition
    Next x 'prochain caractère de la boucle
End With 'fin de la prise en compte de la cellule A1
End Sub

 

[EDP]

Re : Codage des caractères par Excel

Robert, merci.