en vba inscrire texte dans une cellule

Dranreb

XLDnaute Barbatruc

• 25 Décembre 2016

• #2

Bonjour.
Comme ça peut être :

VB:

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

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 25 Décembre 2016

• #3

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

 

Dernière édition: 25 Décembre 2016

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 25 Décembre 2016

• #4

bon bah! j'ai modifié

Code:

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Décembre 2016

• #5

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 ?

 

Vote positif 0 Vote négatif