Je soutiens Excel Downloads
Connexion
S'inscrire
Effectuez une recherche sur Excel Downloads...
Effectuez une recherche sur Excel Downloads...
Rechercher dans les titres uniquement
Par:
FORUMS
Nouveaux messages
Rechercher dans les forums
TÉLÉCHARGEMENTS
POUR LES PROFESSIONNELS
Gestion commerciale
Gestion de projets
Gestion du personnel
Tableaux de bord
Comptabilité
Immobilier
Bourse
POUR LES PARTICULIERS
Budgets et comptes
Plannings et calendriers
UTILITAIRES
LEÇONS ET TUTORIAUX
Fonctions Excel
Vba
RESSOURCES PEDAGOGIQUES
Rechercher une ressource
ACTUALITÉS
TUTOS
EXCEL
FORMULES ET FONCTIONS
VBA
POWER QUERY
POWER PIVOT
POWER BI
AUTRES APPLICATIONS
Recherche de tutos vidéos
Connexion
S'inscrire
Quoi de neuf
Effectuez une recherche sur Excel Downloads...
Effectuez une recherche sur Excel Downloads...
Rechercher dans les titres uniquement
Par:
Nouveaux messages
Rechercher dans les forums
Menu
Connexion
S'inscrire
Installer l'application
Installer
FORUMS
Questions
Forum Excel
Mise en forme conditionnelle en VBA
JavaScript est désactivé. Pour une meilleure expérience, veuillez activer JavaScript dans votre navigateur avant de continuer.
Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement.
Vous devez le mettre à jour ou utiliser un
navigateur alternatif
.
Répondre à la discussion
Message
<blockquote data-quote="sylvanu" data-source="post: 20397189" data-attributes="member: 223341"><p>Bonsoir Nsapg,</p><p>Vous pouvez essayer ceci :</p><p>[CODE=vb]Sub VérificationsDonnées()</p><p>Application.ScreenUpdating = False</p><p>DL = Range("C65500").End(xlUp).Row</p><p>For L = 2 To DL</p><p> If Cells(L, "C") <> "Fichier BMP" And Cells(L, "C") <> "Fichier JPG" And _</p><p> Cells(L, "C") <> "Fichier JPEG" And Cells(L, "C") <> "Fichier PNG" Then</p><p> With Cells(L, "C").Font</p><p> .Color = -16776961</p><p> .TintAndShade = 0</p><p> End With</p><p> End If</p><p>Next L</p><p>End Sub</p><p>[/CODE]</p></blockquote><p></p>
[QUOTE="sylvanu, post: 20397189, member: 223341"] Bonsoir Nsapg, Vous pouvez essayer ceci : [CODE=vb]Sub VérificationsDonnées() Application.ScreenUpdating = False DL = Range("C65500").End(xlUp).Row For L = 2 To DL If Cells(L, "C") <> "Fichier BMP" And Cells(L, "C") <> "Fichier JPG" And _ Cells(L, "C") <> "Fichier JPEG" And Cells(L, "C") <> "Fichier PNG" Then With Cells(L, "C").Font .Color = -16776961 .TintAndShade = 0 End With End If Next L End Sub [/CODE] [/QUOTE]
Insérer les messages sélectionnés…
Vérification
Répondre
FORUMS
Questions
Forum Excel
Mise en forme conditionnelle en VBA
Texte copié dans le presse-papier
