comment supprimer le contenu d'un cellule automatiquement en fonction d'une autre?

[superbog]

bonjour

j'ai de nombreuses feuilles et dans toutes se trouve la même configuration
en colonne AH un nombre en €, en colonne AI une date
je voudrais qu'automatiquement, le nombre de la colonne AH soit supprimé lorsque la date de la colonne AI est antérieure à aujourd'hui

comment faire cela?

merci

 

[Dranreb]

Re : comment supprimer le contenu d'un cellule automatiquement en fonction d'une autr

Bonjour.
Quelque chose comme ça :

Dim Cel As Range
For Each Cel In Feui1.Columns("AI")
   If Cel.Value < Date Then Cel.Offset(,-1).ClearContents
   Next Cel

Cordialement.

 

[superbog]

Re : comment supprimer le contenu d'un cellule automatiquement en fonction d'une autr

je vais essayer mais est il possible d'avoir cela en automatique? dès que la date arrive

 

[superbog]

Re : comment supprimer le contenu d'un cellule automatiquement en fonction d'une autr

j'ai du faire une erreur, ca ne fonctionne pas

Sub chq()
Dim Cel As Range
Dim sh As Worksheet

For Each sh In Worksheets
           If IsNumeric(sh.Name) Then

For Each Cel In sh.Columns("AI")
   If Cel.Value < Date Then Cel.Offset(, -1).ClearContents
   Next Cel
End If
Next sh


End Sub

 

[Dranreb]

Re : comment supprimer le contenu d'un cellule automatiquement en fonction d'une autr

Joignez le classeur. Là je ne vois pas ce qui ne va pas.
À +

 

[superbog]

Re : comment supprimer le contenu d'un cellule automatiquement en fonction d'une autr

le classeur est trop lourd pour être joint (50Mo)
quand je lance la macro, une fenêtre s'ouvre avec la mention

erreur d'exécution "13"
incompatibilité de type

 

[Dranreb]

Re : comment supprimer le contenu d'un cellule automatiquement en fonction d'une autr

Peut être faudrait il écrire plus précisément sh.Columns("AI") pour ne pas inclure toute la colonne, dont la 1ère cellule ne contiendrait rien qui puisse être comparé à une date. Je ne sais pas moi, je ne peux pas voir sans avoir sous les yeux un classeur témoin avec très peu de feuilles et de lignes renseignées, mais qui reproduise le problème !

 

[superbog]

Re : comment supprimer le contenu d'un cellule automatiquement en fonction d'une autr

voilà un fichier exemple

 

[Dranreb]

Re : comment supprimer le contenu d'un cellule automatiquement en fonction d'une autr

Essayez comme ça :

For Each Cel In sh.Range("AI22:AI" & sh.Cells(sh.Rows.Count, "AH").End(xlUp).Row)
   If Cel.Value < Date Then Cel.Offset(, -1).ClearContents
   Next Cel

À +

 

[superbog]

Re : comment supprimer le contenu d'un cellule automatiquement en fonction d'une autr

merci je vais tester