Diviser une cellule Excel sur base de la police
RésoluAM -
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.
- Diviser une cellule Excel sur base de la police
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Comment calculer la moyenne sur excel - Guide
4 réponses
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.
Bonjour.
Est-ce possible ? à ma connaissance, non.
Mais on arrive à faire tellement de choses avec VBA !
Bonjour
Mon ami Raymond que je salue bien au passage a raison, c'est possible en VBA :
https://www.cjoint.com/c/LImohVIdB1u
Cdlmnt
Via
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
