ajouter une condition vb

[kaid]

Bonjour voici mon fichier

j'aimerai ajouter une autre condition :
si colonne "date accord "= date alors colonne "situation" = accord
j'ai mis mon code dans worcksheet et module 1
merci

 

[kaid]

j'ai mis ce code ??? ca ne donne pas "accord"

Sub Actualiser()
Dim derlig As Long, i As Long
With Sheets("bd")
derlig = .UsedRange.Rows.Count

For i = 3 To derlig
If .Cells(i, 1).Offset(, 8) > 1 Then
.Cells(i, 1).Offset(, 9) = "accord"

If .Cells(i, 1) <> "" And .Cells(i, 2) <> "" And .Cells(i, 3) <> "" And .Cells(i, 4) <> "" And .Cells(i, 6) <> "" Then
.Cells(i, 1).Offset(, 6).FormulaR1C1 = "=today()"
.Cells(i, 1).Offset(, 7) = .Cells(i, 1).Offset(, 6) - .Cells(i, 1).Offset(, 5)

Else
Cells(i, 1).Offset(, 6) = ""
Cells(i, 1).Offset(, 7) = ""
Cells(i, 1).Offset(, 9) = ""

End If
End If
Next i
End With
End Sub

 

[natorp]

Bjr kaid

soit :

Sub Actualiser()
Dim derlig As Long, i As Long
With Sheets("bd")
derlig = .UsedRange.Rows.Count

For i = 3 To derlig
If .Cells(i, 1).Offset(, 7) > 1 Then
.Cells(i, 1).Offset(, 8) = "accord"

If .Cells(i, 1) <> "" And .Cells(i, 2) <> "" And .Cells(i, 3) <> "" And .Cells(i, 4) <> "" And .Cells(i, 6) <> "" Then
.Cells(i, 1).Offset(, 6).FormulaR1C1 = "=today()"
.Cells(i, 1).Offset(, 7) = .Cells(i, 1).Offset(, 6) - .Cells(i, 1).Offset(, 5)

Else
Cells(i, 1).Offset(, 6) = ""
Cells(i, 1).Offset(, 7) = ""
Cells(i, 1).Offset(, 9) = ""

End If
End If
Next i
End With
End Sub

soit :

Sub Actualiser()
Dim derlig As Long, i As Long
With Sheets("bd")
derlig = .UsedRange.Rows.Count

For i = 3 To derlig
If .Cells(i, 8) > 1 Then
.Cells(i, 9) = "accord"

If .Cells(i, 1) <> "" And .Cells(i, 2) <> "" And .Cells(i, 3) <> "" And .Cells(i, 4) <> "" And .Cells(i, 6) <> "" Then
.Cells(i, 1).Offset(, 6).FormulaR1C1 = "=today()"
.Cells(i, 1).Offset(, 7) = .Cells(i, 1).Offset(, 6) - .Cells(i, 1).Offset(, 5)

Else
Cells(i, 1).Offset(, 6) = ""
Cells(i, 1).Offset(, 7) = ""
Cells(i, 1).Offset(, 9) = ""

End If
End If
Next i
End With
End Sub

Cordialement, Gérard

 

[kaid]

Bonjour
j'i tester mais ca marche pas

 

[kaid]

e travail avec workshet aussi ca fonctionne bien mais quand j'ai rajouter condition "accord" je me retrouve pas; j'aimerai supprimer le code de worksheet et mettre tout dans le module
je travail avec "alerte" "en cours" "accord"