Cibler col E les fomats dates erronés et en col K et L formats monétaires erronés

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 !

Christian0258

XLDnaute Accro
Bonjour à tout le forum,

Je souhaiterais votre aide afin d'écrire une macro pour lister les cellules dans lesquelles les formats dates (col E) et les formats monétaires (col K et L) on été mal tapés...

Merci pour votre aide si, précieuse.

Bien à vous,
Christian
 
Re : Cibler col E les fomats dates erronés et en col K et L formats monétaires erron

Bonjour, Christian0258, le Forum,

Un essai pour les dates :

Code:
Option Explicit
Sub Dates_erronées_colorer()
    Dim c As Range
    For Each c In Range("e:e").SpecialCells(xlCellTypeConstants)
        If Not IsDate(c) Then c.Interior.ColorIndex = 38
    Next
End Sub

... et les formats monétaires (col K et L) on été mal tapés...

😕

Merci de bien vouloir fournir un fichier exemple.

A bientôt 🙂
 
Re : Cibler col E les fomats dates erronés et en col K et L formats monétaires erron

Re, le forum, DoubleZero,

Merci, DoubleZero, pour ton aide.
Joindre un fichier, difficile très lourd et données privées...

Question sur ta macro ; en fait c'est à partir de la ligne 2 qu'il faut traiter...peux-tu me dire pour modifier...

Bien à toi.
Merci.
Christian
 
Dernière édition:
Re : Cibler col E les fomats dates erronés et en col K et L formats monétaires erron

Re-bonjour,

... en fait c'est à partir de la ligne 2 qu'il faut traiter...

Ci-après, une nouvelle version... non fiable 😱 (exemple : une valeur comme 001/07/2016 n'est pas colorée 🙁).

Code:
Option Explicit
Sub Dates_erronées_colorer_v2()
    Dim c As Range
    Columns(5).Interior.ColorIndex = xlNone
    For Each c In Range("e2:e" & Cells(Rows.Count, 5).End(xlUp).Row).SpecialCells(xlCellTypeConstants)
        If Not IsDate(c) Then c.Interior.ColorIndex = 38
    Next
End Sub

A bientôt 🙂
 
Re : Cibler col E les fomats dates erronés et en col K et L formats monétaires erron

Bonjour, Christian0258.

[...]Je souhaiterais votre aide afin d'écrire une macro pour lister les cellules dans lesquelles les formats dates (col E) et les formats monétaires (col K et L) on été mal tapés...[...]
Comment procédez-vous pour taper un format ?


[...]Joindre un fichier, difficile très lourd et données privées...[...]
Est-ce plus difficile pour vous de créer un court extrait représentatif sans données confidentielles, ou pour nous de deviner comment il est organisé ?
 
Re : Cibler col E les fomats dates erronés et en col K et L formats monétaires erron

Re, le forum, Doublezero, Victor21?

Merci à vous pour votre aide.
Merci, Doublezero, pour ta nouvelle version.
Tu as raison, Victor21, pour le fichier exemple manquant, et je m'en excuse.

voir fichier joint.

Bien amicalement,
Christian
 

Pièces jointes

Re : Cibler col E les fomats dates erronés et en col K et L formats monétaires erron

Bonjour 🙂

Et, en pompant sans vergogne sur OO, au risque de prendre un coup de sabot, pour la colonne K :
VB:
Sub Montants_erronées_colorer_v2()
    Dim c As Range
    Columns(11).Interior.ColorIndex = xlNone
    For Each c In Range("k2:k" & Cells(Rows.Count, 11).End(xlUp).Row).SpecialCells(xlCellTypeConstants)
        If Not IsNumeric(c) Then c.Interior.ColorIndex = 38
    Next
End Sub
 
- 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

Réponses
7
Affichages
634
Réponses
9
Affichages
1 K
Retour