ajouter une condition vb

kaid · 1 Août 2017

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 · 1 Août 2017

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 · 2 Août 2017

Bjr kaid

soit :

Code:

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 :

Code:

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 · 2 Août 2017

Bonjour
j'i tester mais ca marche pas

kaid · 2 Août 2017

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"

ajouter une condition vb

kaid

XLDnaute Occasionnel

Pièces jointes

kaid

XLDnaute Occasionnel

natorp

XLDnaute Accro

kaid

XLDnaute Occasionnel

kaid

XLDnaute Occasionnel

Pièces jointes

Discussions similaires