Ne pas traiter les lignes si rien en colonne O

[ascal44]

Bonsoir ,
j'ai un code travaillant sur des champs défini par des noms ( men , mens , mensu) de la ligne 6 à 65000

Si je n'ai pas de données en colonne O il ne faudrait pas traiter ces lignes .

Private Sub CmdMoins_Click()
Dim c As Range
For Each c In Range("mensu")
c.Value = DateAdd("m", -1, c.Value)
Next c

For Each c In Range("mens")
c.Value = DateAdd("m", -1, c.Value)
Next c

For Each c In Range("men")
c.Value = DateAdd("m", -1, c.Value)
Next c
end sub

 

[Pierrot93]

Re : Ne pas traiter les lignes si rien en colonne O

Bonsoir,

peut être ainsi, si j'ai bien compris :

Dim c As Range
For Each c In Range("mensu")
If Not IsEmpty(Cells(c.Row, "O").Value) Then c.Value = DateAdd("m", -1, c.Value)
Next c

bonne soirée
@+

 

[ascal44]

Re : Ne pas traiter les lignes si rien en colonne O

Merci à vous 2 ,
j'ai opté pour la solution de Pierrot93 qui fonctionne bien.