[Résolu] Macro valeur italique à supprimer

Misange

XLDnaute Barbatruc

• 30 Août 2012

• #2

Re : Macro valeur italique à supprimer

Bonjour

tu peux parfaitement le faire avec le rechercher remplacer :
rechercher : *
option/format/italique
remplacer : (laisser vide)

 

Vote positif 0 Vote négatif

A

audreyer

Guest

• 30 Août 2012

• #3

Re : Macro valeur italique à supprimer

Bonjour Misange,

Merci pour ta réponse, mais mon pb est que je souhaite intégrer cette modif dans une macro afin que tout soit automatisé.
Le lecteur final du tableau n'ayant qu'à cliquer sur un bouton pour avoir ses infos...
Tu aurais une idée?
Merci

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 30 Août 2012

• #4

Re : Macro valeur italique à supprimer

Bonjour, audreyer.

Avez-vous pensé à utiliser l'enregistreur de macro ?

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 30 Août 2012

• #5

Re : Macro valeur italique à supprimer

comme dit Patrick :

Code:

Sub test()
Range("maplage").Replace What:="*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=False
End Sub

 

Vote positif 0 Vote négatif

A

audreyer

Guest

• 30 Août 2012

• #6

Re : Macro valeur italique à supprimer

Bonjour Victor21,

J'ai essayé, mais la macro ne fonctionne pas non plus...
Elle recherche mais ne modifie rien.

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 30 Août 2012

• #7

Re : Macro valeur italique à supprimer

Tu as essayé celle que je t'ai indiquée ? (il faut avoir nommé la plage à tester...)

 

Vote positif 0 Vote négatif

A

audreyer

Guest

• 30 Août 2012

• #8

Re : Macro valeur italique à supprimer

Re,

Je viens d'essayer la macro...
j'ai dû faire une mauvaise manip sur what="*" parce que toutes mes données sont effacées.
je recherche...
Merci en tous cas

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 30 Août 2012

• #9

Re : Macro valeur italique à supprimer

Refais un essai dans un classeur neuf en créant une petite plage de test.

 

Vote positif 0 Vote négatif

A

audreyer

Guest

• 30 Août 2012

• #10

Re : Macro valeur italique à supprimer

Je suis désolée mais cela ne fonctionne pas et je ne trouve pas pourquoi...
Les données en italiques sont des dates, ça pourrait venir de là tu penses?

 

Vote positif 0 Vote négatif

A

audreyer

Guest

• 30 Août 2012

• #11

Re : Macro valeur italique à supprimer

Mille Mercis à vous 2!
ca marche super et rapide!

Bonne soirée
Audrey

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 30 Août 2012

• #12

Re : Macro valeur italique à supprimer

teste avec ce fichier, les dates ne sont pas un pb.

 

Pièces jointes

• test1.xlsm

  12.4 KB · Affichages: 51
• test1.xlsm

  12.4 KB · Affichages: 44
• test1.xlsm

  12.4 KB · Affichages: 50

Vote positif 0 Vote négatif

A

audreyer

Guest

• 30 Août 2012

• #13

Re : Macro valeur italique à supprimer

Merci Misange!
Maintenant j'essaye de noter [Résolu]...

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 30 Août 2012

• #14

Re : Macro valeur italique à supprimer

Re,

Essayez celui-ci :

VB:

 Sub Macro2()

    Application.Goto Reference:="maplage"
    With Application.FindFormat.Font
        .FontStyle = "Italique"
        .Subscript = False
    End With
    Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=False
End Sub

 

Vote positif 0 Vote négatif

A

audreyer

Guest

• 30 Août 2012

• #15

Re : Macro valeur italique à supprimer

Merci Patrick,
Je la copie aussi😉

 

Vote positif 0 Vote négatif