"la méthode range de l'objet worksheet a echoué" [VBA ]

Version imprimable

20/06/2018, 10h19
pite0611

2 pièce(s) jointe(s)

"la méthode range de l'objet worksheet a echoué" [VBA ]

Bonjour,

je bosse actuellement sur un programme qui fonctionnait très bien jusqu'à ce que il m'affiche une erreur (voir screen)
Et quand je lance le debogage il me ferme le fichier excel..
Voici mon fichier exel
Quand je lance le fichier excel sur un vieux pc (winodow xp), le programme fonctionne très bien ! Alors pourquoi pas sur window 10 ? (je ne pense pas que l'erreur vienne de la version de window)
Pouvez-vous m'aider svp ?
Cordialement
20/06/2018, 10h24
Thautheme

Bonjour Pite, bonjour le forum,

Si tu nous disais sur quelle ligne du code ça plante...
20/06/2018, 10h27
pite0611

Citation:

Envoyé par Thautheme

Bonjour Pite, bonjour le forum,

Si tu nous disais sur quelle ligne du code ça plante...

J'aimerai bien mais quand je lance le debogage, mon fichier excel se ferme donc je ne peux pas savoir..
20/06/2018, 10h32
Thautheme

Re,

Chez moi pas de bug donc difficile de t'aider...
20/06/2018, 10h34
pite0611

D'accord, merci jvais essayer de me debrouiller avec un autre pc :aie:

J'ai retreci mes lignes de codes pour voir ou été le problème et mon problème viens de la:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Column = 4 Then
    'Ecris lheure actuelle dans la colonne D apres avoir scanner le START
        Cells(Target.Row, 4).Value = Time()
    End If
 
    If Target.Column = 5 Then
    'Ecris lheure actuelle dans la colonne E apres avoir scanner le END
        Cells(Target.Row, 5).Value = Time()
    End If
 
    If Not Application.Intersect(Target, Range("E:E")) Is Nothing Then
    'Permet la soustraction des heures du debut et de fin
        Target.Offset(0, 1).Value = Target.Offset(0, -1).Value - Target.Value
        Target.Offset(0, 1).NumberFormat = "[mm]"
    End If
 
End Sub

Je ne comprend vraiment pas pourquoi...

Pensez-vous pouvoir m'aider ?

Citation:

Envoyé par pite0611

J'ai retreci mes lignes de codes pour voir ou été le problème et mon problème viens de la:

J'ai modifié mon programme en rajoutant application.enableevents=false et true pour éviter le plantage d'excel et cela fonctionne à merveille ! voici le code :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then
        'Ecris lheure actuelle dans la colonne D apres avoir scanner le START
        Application.EnableEvents = False
        Target.Value = Time()
        Target.NumberFormat = "hh:mm:ss"
        Application.EnableEvents = True
    End If
 
    If Target.Column = 5 Then
        'Ecris lheure actuelle dans la colonne E apres avoir scanner le END
        Application.EnableEvents = False
        Target.Value = Time()
        Target.NumberFormat = "hh:mm:ss"
        Target.Offset(0, 1) = 24 * (Target.Value - Target.Offset(0, -1).Value)
        Target.Offset(0, 1).NumberFormat = "0.00"
        Application.EnableEvents = True
    End If
 
End Sub