Macro Archive

[Jappa_adis]

Bonsoir,

SVP pouvez-vous m’aider en urgence ?

Je cherche une macro qui permet de :

Pour tous les fiche existantes (les Fiches peuvent aller jusqu’à 30 fiches) :

Si dans tous les tableaux des mois existants, la date dans la cellule Ki (For i = 4 To 102) : Si Ki correspond à la date d’aujourd’hui (la date de mon pc le jour où j’ouvre ce fichier) dans ce cas on enlève la formule de K (i+1)

Exemple :

Aujourdhui c’est le 29/09/2016. D

ans notre cas et dans chaque Fiche existante c’est la cellule B32 qui est égale à 29/09/2016.

Donc on exécutant le macro : C32 qui est actuellement égale à la formule suivante : =SI(B32=AUJOURDHUI();$O$1;" ")

sera égale à C32 (sans formule) donc à : Received

Merci d’avance

 

[Hieu]

Salut,

Tu peux essayer ça :

Sub lmk()
For Each s In Sheets
For Each c In s.Range("b2:m102")
    If c = Date Then c.Offset(0, 1) = "Received"
Next c
Next s
End Sub

++