Effacer cellule selon date
Bonjour
A chaque jour sa question
Voici ma question d'aujourd'hui
Je voulais que les cellules AE et AF s'affacent automatiquement si la date en AF est supérieur à la date du jour :
Sub Effacer()
'
' Effacer Macro
'
DateAeffacer = Cells(1, 9).Value
Derligne = Range("A2").End(xlDown).Row
For Lig = Derligne To 2 Step -1
If DateAeffacer < Cells(Lig, 1).Value Then
Range("AE" & Lig & ":AF" & Lig).Select
Selection.Delete Shift:=xlUp
End If
Next Lig
End Sub
Or j'ai l'erreur la methode delete en classe range à échoué sur Selection.Delete Shift:=xlUp
Quel est voter avis
Bonjour Theyoshi,
Plusieurs questions se posent:
- Veux-tu supprimer les cellules ou juste effacer leur contenu?
- Ton tableau ne contient que 2 colonnes, AE et AF?
- La cellule I1 contient la date du jour?
If DateAeffacer < Cells(Lig, 1).Value Thenpermet de véirifer la valeur en colonne A or tu veux qu'il vérifie la colonne AF?
Bonjour
- Veux-tu supprimer les cellules ou juste effacer leur contenu?
Je voudrais effacer le contenu des cellule.
- Ton tableau ne contient que 2 colonnes, AE et AF?
Non, il y a jusqu'à AV
- La cellule I1 contient la date du jour?
Non, en cellule A2
Et pour finir, y a une erreur
Ok donc si je résume tu as un tableau de A à AV.
Quand une valeur dans une ligne de la colonne AF est > à la date du jour tu veux effacer les cellules AE et AF de la ligne correspondante.
Ta colonne A est utilisée pour le calcul de ta dernière ligne donc elle est remplie pour chaque ligne du tableau.
C'est bien ça?
La ligne 1 contient juste la date en B1
A contient le nom,
B le prénom
C l'ensemble...
A partir de la ligne 3, les colonnes AD contiennent le type d'abonnement rempli par liste et AE la date de péremption de cet abonnement.
Du coup d'après ces infos
à tester:
Sub Effacer()
'
' Effacer Macro
'
Derligne = Range("A2").End(xlDown).Row
For Lig = 2 To Derligne
If Date < Cells(Lig, 32).Value Then
Range("AE" & Lig & ":AF" & Lig).ClearContents
End If
Next Lig
End Subj'ai modifié pour que la macro efface après la date de péremption. Par contre, elle efface aussi le titre en ligne 2, je l'ai aussi modifié. je te remercie pour ton aide