Diviser une cellule Excel sur base de la police

Résolu
AM -  
 AM - 13 sept. 2022 à 10:11

Bonjour,

Je cherche à diviser une colonne de cellules sur base de la police :  dans mes cellules j'ai des mots en italique et des mots en police normal. Je cherche à diviser ces cellules en 2 avec d'un côté les mots italique et d'un autre les mots en normal, afin de ne conserver que les mots en italique au final. Est-ce possible ? Les éléments séparateurs proposés ne tiennent pas compte de la police. C'est en général des espaces ou points-virgules, etc. 

A voir également:

4 réponses

Arthur-92
 

Bonjour,
J'en arrive à regretter le bon vieux temps de Visicalc et de Multiplan, que les moins de 80 ans ne peuvent pas connaître, on pouvait choisir n'importe quelle couleur, pourvu que ce soit le noir.
Lorsqu'on devait tracer un cadre, on utilisait pour les traits horizontaux le signe moins (-) ou le signe égal (=), pour les angles le signe plus (+) et pour les traits verticaux le point d'exclamation (!)...
Cordialement.

1
Raymond PENTIER Messages postés 58950 Date d'inscription   Statut Contributeur Dernière intervention   17 322
 

Bonjour.

Est-ce possible ? à ma connaissance, non.

Mais on arrive à faire tellement de choses avec VBA !


0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 742
 

Bonjour

Mon ami Raymond que je salue bien au age a raison, c'est possible en VBA  :

https://www.ct.com/c/LImohVIdB1u

Cdlmnt

Via


0
AM
 

Bonsoir,

Merci de vos retours. Est-ce possible de poster la formule dans un message de réponse ? Je ne suis pas sur mon ordi personnel, et les restrictions de la société m'empêche de télécharger toutes PJ...


Cdlt

0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 742 > AM
 

Re

Ce n'est pas une formule mais une macro en VBA créant une fonction personnalisée

Faire ALt+F11 pour ouvrir l'éditeur VBA -  Aller dans Insertion - Module -Copier et coller la macro ci-dessous dans la feuille blanche et fermer l'éditeur VBA

La fonction s'utilise ensuite selon la syntaxe =ital(cellule avec la chaîne de caractères à traiter) et renvoie les mots de la chaîne qui sont en italique

Function ital(plage As Range)
For n = 1 To Len(plage.Value)
If plage.Characters(n, 1).Font.Italic = True Then retour = retour & Mid(plage, n, 1)
If Mid(plage, n, 1) = " " Then retour = retour & " "
Next
ital = retour
End Function
0
AM
 

Bonjour,

Merci beaucoup. Cela fonctionne très bien, c'est parfait ! Vos explications étaient bien utiles...

Cordialement

0