[Excel] - [VB] - Delete Cellules italique

[Fermé]
Signaler
-
Messages postés
16523
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
28 septembre 2021
-
Bonjour,

J'ai crée une macro qui me permet de supprimer dans des milliers de données d'un classeur uniquement les cellules où l'information est en Italic.

With Sheets("données")
        
    Calculate
    col_mad = .Range("C2").Value
    col_zr = .Range("D2").Value
    col_fin = .Range("E2").Value
    first_col_date = .Range("F2").Value
        
        For i = col_mad + 1 To col_zr - 1
        
            .Cells(4, i).Value = "colonne_vide" & i
        Next
        
        For i = 5 To ligne
        For j = first_col_date To col_mad
    
            cell_color = .Cells(i, j).Font.ColorIndex
            If cell_color = 4 Then
            .Cells(i, j).Value = ""
            End If
    
        Next j
        Next i
        
    End With



Cela fonctionne très bien, mais c'est lent car beaucoup de données.
Quelqu'un aurait il une meilleur façon de faire et surtout ultra rapide, en comprenant les petits paramètres de ma WITH.



En vous remerciant par avance,


3 réponses

Messages postés
10146
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
13 octobre 2021
2 227
bonjour
essayer en début de procedure
Application .ScreenUpdating = false
bonne suite
Bien sur, je vous passe le fait que j'ai bien :

Application.Cursor = xlWait
Application.ScreenUpdating = False
Application.Calculation = xlManual


Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
Application.Cursor = xlDefault
Messages postés
16523
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
28 septembre 2021
3 228
bonjour,

en italique ou de couleur verte ?

je comprend pas comment tu détermines ta zone de recherche ...
ligne, c'est quoi?
pourquoi 4 colonnes ?
Merci d'^tre précis dans ta demande. on a que ce que tu as écris pour essayer de t'aider....

regarde du coté de la fonction FIND dans l'aide; de plus il a un exemple pour checher dans une zone déterminée
dans ce cas application cursor et application.calculation sont inutiles

Si tu as XL>=2007 , il ya peut-etre une solution rapide: insérer tableau et filtrer sur couleur, italiques je ne sais pas)
Michel