Entretien et suivie park automobile

Bonjour j'ai récupère il y a quelle que temps ce fichier

pour faire le suivie de mon véhicule et aujourd'hui j ai touche un truc mais je ne sais pas y réparé

il bug sur la ligne en jaune merci a vous pour votre aide

et en 1er page il y a des dates je ne sais pas pourquoi ?

et dernier chose je voulais qui y est un décompte pour le prochaine contrôle technique mais pas réussi

MERCI A VOUS

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If ActiveSheet.Name = "Stat 2010" Or ActiveSheet.Name = "PrŽsentation" Then Exit Sub

For c = Cells(2 ^ 16, 4).End(xlUp).Row To Cells(14, 4).Row Step -1

If Cells(B, 8) = "CT" Then    ' Problème ICI

Cells(8, 3) = DateSerial(Year(Cells(c, 1)) + 1, Month(Cells(c, 1)), Day(Cells(c, 1)))

GoTo RŽvision

End If

Next c

Cells(8, 3) = DateSerial(Year(Cells(4, 5)) + 1, Month(Cells(4, 5)), Day(Cells(4, 5)))

RŽvision:

For r = Cells(2 ^ 16, 4).End(xlUp).Row To Cells(14, 4).Row Step -1

If Cells(r, 4) = "RŽvision" Then

Cells(8, 6) = ((Cells(r, 2) + 30000) \ 30000) * 30000

Exit Sub

End If

Next r

Cells(8, 6) = ((Cells(5, 5) + 30000) \ 30000) * 30000

End Sub

Bonjour à tous !

Blondin63800,

remplace

If Cells(B, 8) = "CT" Then

par

If Cells(C, 8) = "CT" Then

ça devrait fonctionner

Bonne journée!

Ok merci a toi

Merci pour le retour !

Bonne journée!