Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Effacer les cellules dont le texte est noir

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Boby71C
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Boby71C

XLDnaute Impliqué
Bonsoir à tous

Auriez vous une solution pour effacer les cellules dont les caractères sont en écriture noir et garder les textes ou lettres en rouge dans la zone S4 à Z150 par code VBA ?
Merci pour votre aide.
@+
 
Trier par date Trier par votes
Re : Effacer les cellules dont le texte est noir

Bonjour à tous,

Peux-tu essayer avec :

Code: 
Sub Efface()
    For Each Cel In Range("S4:Z150")
        If Cel.Font.ColorIndex = 1 Then Cel.ClearContents
    Next
End Sub

A+ à tous
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Résolu(e)
XL 2019 Sur une feuille protégée effacer les cellules déverrouillées par macro
Réponses
6
Affichages
190
Nain porte quoi
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
426
DAVID-44-
I
  • Question Question
Microsoft 365 Remplir les cellules vides
Réponses
2
Affichages
181
Ines99
I
  • Résolu(e)
Microsoft 365 Changer Couleur de Texte dans cellule
Réponses
7
Affichages
557
Electron24
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
331
patricko-13
P
Q
  • Question Question
XL 2019 vba pour effacer résultat cellules de plusieurs fichiers a partir d'un fichier distant
Réponses
6
Affichages
392
Phil69970
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
655
sylvanu
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
560
Yogean
Y
M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
421
mamarus1
M
M
  • Question Question
Microsoft 365 Macro pour changer le format de nombre à l'ouverture d'un CSV
Réponses
4
Affichages
307
oguruma
S
  • Question Question
Microsoft 365 Protéger des cellules de la feuille en permettant d'agrandir les colonnes
Réponses
6
Affichages
307
Sissou71
S
V
  • Question Question
XL 2021 Décalé les cellules
2 3
Réponses
30
Affichages
854
vgendron
A
  • Question Question
Microsoft 365 Vérifier si un texte existe dans une cellule contenant une liste
Réponses
9
Affichages
595
arzac
A
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
663
Chaton77
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
521
TooFatBoy
P
  • Question Question
Autres Worksheet before close
Réponses
10
Affichages
423
Rheeem
R
W
  • Résolu(e)
XL 2019 Signaler les chevauchements complets ou partiels de plages horaires
Réponses
7
Affichages
383
Webperegrino
W
E
  • Résolu(e)
XL 2016 Verrouiller page avec accès "filtre" + "mise en page personnalisée"
Réponses
9
Affichages
468
Phil69970
E
  • Question Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
668
Phil69970
  • Question Question
Microsoft 365 Compter le nombre de cellule mise en couleur avec MFC
2
Réponses
19
Affichages
1 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…