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

[VBA] Effacer contenu de cellules selon condition

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion DoublePoney
  • 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
D

DoublePoney

Guest
Bonjour à toutes et à tous,

Je suis tout nouveau sur ce forum et j'aurais besoin de vos lumières pour m'aider à résoudre un problème concernant une macro Excel que je n'arrive pas du tout à faire.

Le problème est le suivant :

J'ai un fichier contenant 5 colonnes avec dans les trois colonnes B, C et D des dates. En ce qui concerne les lignes, ce n'est pas fixe, chaque jour s'ajouteront d'autres lignes.
Je voudrais que le contenu des cellules dont les dates sont supérieures à 15 jours (à partir de la date courante) soit effacé.

Exemple, aujourd'hui nous sommes le 25 Avril, toutes les cellules contenant des dates antérieures au 10 Avril doivent être effacées.

Est-ce possible ?

Je vous remercie par avance.

Cordialement
 

Pièces jointes

Trier par date Trier par votes
Re : [VBA] Effacer contenu de cellules selon condition

Bonjour DoublePoney et bienvenu sur le forum

Une proposition avec ce que j'ai compris:
VB: 
Sub test()
Dim i&, j&
With Sheets("Feuil1")
    For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
        For j = 2 To 4
            If CDate(.Cells(i, j).Value) < Date - 15 Then .Cells(i, j).ClearContents
        Next j
    Next i
End With
End Sub

Cordialement
 
Vote positif 0 Vote négatif
Re : [VBA] Effacer contenu de cellules selon condition

Re-Bonjour 🙂

Tu as bien compris le problème, c'est exactement ce qu'il me fallait, merci à toi !

Je passe en résolu si je trouve le bouton ^^

Encore merci, bonne fin de journée 😉
 
Vote positif 0 Vote négatif
Re : [VBA] Effacer contenu de cellules selon condition

Re
Puisque tu sembles avoir aimé 😀
La même en beaucoup plus rapide sur un grand nombre de lignes:
VB: 
Sub test_2()
Dim i&, j&, T As Variant, Plg As Range

With Sheets("Feuil1")
    Set Plg = .Range(.Cells(2, 2), .Cells(.Rows.Count, 1).End(3)(1, 3))
End With

T = Plg
For i = LBound(T, 1) To UBound(T, 1)
    For j = LBound(T, 2) To UBound(T, 2)
        If CDate(T(i, j)) < Date - 15 Then T(i, j) = ""
    Next j
Next i
Plg = T

End Sub

Cordialement
 
Dernière édition:
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Question Question
XL 2019 Verrouiller des cellules avant la date du jour
Réponses
12
Affichages
551
TooFatBoy
P
  • Résolu(e)
XL 2021 masquage de ligne selon condition
2
Réponses
17
Affichages
665
sylvanu
H
  • Question Question
XL 2019 masquer des colonne sous condition d'une cellule en vba
Réponses
5
Affichages
222
sylvanu
W
  • Résolu(e)
XL 2019 Colorer la partie d'entêtes d'un pavé de cellules selon clic-doit sur une cellule interne
Réponses
5
Affichages
514
Nicolas JACQUIN
C
  • Question Question
Microsoft 365 Actualisation de TCD
Réponses
12
Affichages
255
Dan
D
  • Question Question
XL 2021 calculer nombre de cellules contant 1 dans colonnes non contigües
Réponses
13
Affichages
326
laurent950
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
357
olivier Clech
O
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
141
Nico Gre
N
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
587
Olihoes
O
K
  • Question Question
XL 2010 copier le contenu de plusieurs feuilles sur une seule
Réponses
3
Affichages
358
sylvanu
A
  • Résolu(e)
XL 2016 Colorer cellules suivant condition saisie texte en VBA
Réponses
5
Affichages
535
Al1_44
A
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
486
TooFatBoy
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
616
spike29
S
M
  • Question Question
XL 2021 Repositionnement de cellules à partir de valeurs nominales.
Réponses
2
Affichages
214
job75
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
458
sylvanu
C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
331
job75
B
  • Résolu(e)
Microsoft 365 Problème dans formule VBA
Réponses
7
Affichages
547
BOILEAU
B
T
  • Résolu(e)
XL 2013 Harmoniser valeur de cellules selon 2 variables
Réponses
4
Affichages
402
Thomas75
T
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
559
fanch55
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…