Code VBA avec if ibriqué
bonjour,
je souhaiterais que l'on m'aide à revoir le code Vba suivant que j'ai écris:
For i = 16 To 284
If Cells(i, 4) = Cells(i - 1, 4) then
if Cells(i, 6) = Cells(i - 1, 6) Then
Cells(i, 8) = "2C"
Cells(i - k, 8) = "2C"
else
Cells(i, 8) = 2
elseIf WorksheetFunction.And(Cells(i, 4) = Cells(i - 1, 4), Cells(i, 4) = Cells(i - 2, 4)) then
if WorksheetFunction.And (Cells(i, 6)=Cells(i - 1, 6), Cells(i, 6) = Cells(i - 2, 6)) Then
Cells(i, 8) = "3C"
Cells(i - 1, 8) = "3C"
Cells(i - 2, 8) = "3C"
else
if Cells(i, 6)=Cells(i - 1, 6) then
Cells(i, 8) = "2C"
Cells(i - k, 8) = "2C"
else
Cells(i, 8) = 2
else
Cells(i, 8) = 3
end if
end if
end if
end if
Bonjour,
Tu aurais tout intérêt à exposer le problème initial afin que l'on puisse te conseiller sur le programme à réaliser.
Ton code est parfaitement illisible.
Essaie de joindre un fichier exemple avec les explications sur le traitement et le résultat attendus.
A+