MuscatMimi
XLDnaute Accro
Bonjour a tout le Forum
J'ai donné un fichier réalisé sous Excel 2002, et je l'ai donné a une personne qui n'a que Excel 2007
Le code ci-dessous fonctionne sous Excel 2002
mais pas sur Excel 2007
Mais comme je n'ai pas Excel 2007,,si une personne pouvais me le modifier afin qu'il fonctionne sous 2007,ce serait sympa
Cordialement
J'ai donné un fichier réalisé sous Excel 2002, et je l'ai donné a une personne qui n'a que Excel 2007
Le code ci-dessous fonctionne sous Excel 2002
mais pas sur Excel 2007
Mais comme je n'ai pas Excel 2007,,si une personne pouvais me le modifier afin qu'il fonctionne sous 2007,ce serait sympa
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each Cell In Range("B6:B235")
If Cell.Offset(0, 6).Value = "P" Then
Cell.Value = "00:00"
End If
Next
For Each Cell In Range("C6:C235")
If Cell.Offset(0, 5).Value = "P" Then
Cell.Value = "00:00"
End If
Next
End Sub