en vba inscrire texte dans une cellule

[pascal21]

bonjour je cherche le moyen en VBA d'inscrire en colonne C un texte si une certaine valeur est présente en colonne I
les explications dans le fichier joint
je saurais le faire si une seule ligne était concernée mais je suis perdu dès lors que ça concerne une quarantaine de lignes
en colonne C j'ai une liste donc je ne pense pas que je puisse le faire en formule
merci

 

[Dranreb]

Bonjour.
Comme ça peut être :

Sub Bonus90SM()
Dim Cel As Range
Set Cel = Feuil1.[A1].End(xlDown)
If Not IsEmpty(Cel.Offset(, 7).Value) And Date > Cel.Value + 90 Then
   Cel.Offset(1).Resize(, 7) = Array(Date, , "Bonus période sans malus", , , , 1)
   End If
End Sub

 

[pascal21]

bonjour Dranreb
le code repère bien une date de plus de 90 jours en colonne A mais il faut que cette date soit liée avec un malus en fait et uniquement
il s'agit de recompenser quelqu'un qui n'aurait pas de malus de plus de 90 jours
je ne sais pas où commencer pour modifier la partie du code
je suis un peu rouillé en vba
merci

 

[pascal21]

bon bah! j'ai modifié

If Not IsEmpty(Cel.Offset(, 7).Value
par
If Not IsEmpty(Cel.Offset(, 6).Value

et ça fonctionne mais je ne comprends pas pourquoi
7 est bien la colonne G
alors que je souhaitais avoir un test sur la col H

 

[Dranreb]

Cel est en colonne A soit 1. + 7 c'est la colonne 8 soit H. Ça devrait marcher tel que je l'avais écrit.
Peut être la H n'est-elle pas toujours vide quand qu'elle le parait ? Contiendrait-elle un texte vide ?