MEFC caractère Italique

James007

XLDnaute Barbatruc

• 19 Février 2009

• #2

Re : MEFC caractère Italique

Bonjour,

Comme toujours avec Excel ... la réponse est oui ...
Avec une simple UDF ...

A +

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 19 Février 2009

• #3

Re : MEFC caractère Italique

...du genre ...

Code:

Function IsItalic(rng As Range)
    If rng.Font.Italic Then
        IsItalic = True
    Else
        IsItalic = False
    End If
End Function

a +

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 19 Février 2009

• #4

Re : MEFC caractère Italique

Opus! James007, moi j'arrive pas à le faire marcher correctement!!!😕

C@thy

 

Pièces jointes

• italic.xls

  20 KB · Affichages: 55

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 19 Février 2009

• #5

Re : MEFC caractère Italique

James007, je pense que je n'ai pas utilisé correctement ton idée...

P. S. excuse mon ignorance, c'est quoi UDF, à part un ancien parti politique?

C@thy

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 19 Février 2009

• #6

Re : MEFC caractère Italique

Bonjour le fil,

@Cathy tout d'abord un grand Salut😀
Il faut que tu appuies sur la touche F9 car les changements de format ne sont pas calculés automatiquement.

En recaculant, ça marche.

rajoute la ligne: Application.Volatile
Juste après la déclaration de la fonction

Code:

Fonction IsItalic(rng as range)
Application.Volatile
 
'....
End Function

tu seras sûre que la fonction sera recalculée à chaque calcule de la feuille

A+

 

Dernière modification par un modérateur: 19 Février 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 19 Février 2009

• #7

Re : MEFC caractère Italique

Bonjour

Pour Cathy
UDF= User Defined Function

ou fonction VBA personnalisée en français.

A+

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 19 Février 2009

• #8

Re : MEFC caractère Italique

Bonjour

je me permets juste d'intervenir non seulement pour faire une bise à Cathy
mais aussi pour préciser que la fonction renverra Vrai que si la cellule est en italique

Alors que je lis

filiph79 à dit:

si elles ne contienneent pas de caractères en italique.

Cliquez pour agrandir...

Ce qui laisse supposer que une cellule peut avoir des caractères italiques et des non italiques. Et dans ce cas là la formule renverra faux alors qu'il y en a en italique
Dons je pense qu'il faudrait faire une boucle sur tous les caractères

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 19 Février 2009

• #9

Re : MEFC caractère Italique

Re le Fil,

Un grand salut à l'ami Pascal😀

avec lequel je suis tout à fait d'accord, j'avais pas bien lu.

La function serait donc quelque chose comme ceci:

Code:

Function IsItalic(rng As Range)
    Dim i As Integer
    Application.Volatile
    If rng.Cells.Count > 1 Then Exit Function
    For i = 1 To Len(rng.Text)
        IsItalic = rng.Characters(i, 1).Font.Italic
        If IsItalic Then Exit For
    Next i
End Function

Mais attention au temps de traitement sur les cellules ayant un grand nombre de caratères.

A+

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 19 Février 2009

• #10

Re : MEFC caractère Italique

RE

Juste pour saluer Gé

Hasco à dit:

Re le Fil,

Un grand salut à l'ami Pascal😀

avec lequel je suis tout à fait d'accord, j'avais pas bien lu.

Cliquez pour agrandir...

j'eusse préféré

Hasco à dit:

Re le Fil,

Un grand salut à l'ami Pascal😀

je plussoie, j'avais pas bien lu.

Cliquez pour agrandir...

😀 😀 😀 😀

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 19 Février 2009

• #11

Re : MEFC caractère Italique

re,

Je me tords de plussoyer

J'en suis toujours à me demander si on en fait un verbe transitif ou intransitif?

Je plussoie à ce que dis Pascal
Ou
Je plussoie ce que dis Pascal

??? Là est la question😀😀😀

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 19 Février 2009

• #12

Re : MEFC caractère Italique

Bonour tous


Pour Pascal et Hasco 😉
Le Conjugueur - Conjugaison et synonyme du verbe plussoyer

A+

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 19 Février 2009

• #13

Re : MEFC caractère Italique

Merci Hasco, ça marche mieux en réactualisant, c'est vrai!...

Merci Pascal pour la bise (smack) et pour le plussoiement, j'avais pas bien lu non plus... t'es pas modo pour rien!...🙂

Pourquoi dire UDF alors qu'on peut dire fonction personnalisée? (ça je comprends!)...
ben en fait, ça fait plus chic, ça en jette... merci vbarumble de me sortir de mon ignorance... maintenant je dirai : j'ai écrit une UDF... 😎

Bibises à tous

C@thy

 

Vote positif 0 Vote négatif

F

filiph79

XLDnaute Occasionnel

• 20 Février 2009

• #14

Re : MEFC caractère Italique

Merci a tous pour ces leçons d'excel et de con jugaison.

effectivement la question était "caractères pas en italique".

j'ai en fait utilisée la solution de james007 et ensuite adaptè la formule dans la mise ne forme conditionnelle en faisant:

=isitalic(A1)=faux

Merci a vous tous

 

Vote positif 0 Vote négatif