[Résolu] Macro valeur italique à supprimer

[audreyer]

Bonjour à tous,

Novice sur VBA, j'ai besoin de votre aide...
J'ai une feuille de données avec 2000 lignes et 300 colonnes.
Certaines valeurs sont en italiques et je souhaiterais qu'elles soient supprimées avant de les retraiter.

J'ai bien trouvé une macro sur le forum, mais le traitement prend 11 minutes...
J'ai également essayer la fonction remplacer à partir de la mise en forme, mais la macro ne l'accepte pas...
Auriez-vous une solution pour gagner en rapidité?

D'avance merci pour votre aide.

 

[Misange]

Re : Macro valeur italique à supprimer

Bonjour

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

 

[audreyer]

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

 

[Victor21]

Re : Macro valeur italique à supprimer

Bonjour, audreyer.

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

 

[Misange]

Re : Macro valeur italique à supprimer

comme dit Patrick :

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

 

[audreyer]

Re : Macro valeur italique à supprimer

Bonjour Victor21,

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

 

[Misange]

Re : Macro valeur italique à supprimer

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

 

[audreyer]

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

 

[Misange]

Re : Macro valeur italique à supprimer

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

 

[audreyer]

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?

 

[audreyer]

Re : Macro valeur italique à supprimer

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

Bonne soirée
Audrey

 

[Misange]

Re : Macro valeur italique à supprimer

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

 

[audreyer]

Re : Macro valeur italique à supprimer

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

 

[Victor21]

Re : Macro valeur italique à supprimer

Re,

Essayez celui-ci :

 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

 

[audreyer]

Re : Macro valeur italique à supprimer

Merci Patrick,
Je la copie aussi