Problème code
Fermé
Hyana
-
Modifié par baladur13 le 24/06/2016 à 09:44
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 24 juin 2016 à 13:22
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 24 juin 2016 à 13:22
A voir également:
- Problème code
- Code asci - Guide
- Code 80072efe ✓ - Forum Windows
- Freewifi secure code ✓ - Forum Réseau
- Netflix code - Guide
- Code puk maroc telecom ✓ - Forum Mobile
1 réponse
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
Modifié par jordane45 le 24/06/2016 à 09:53
Modifié par jordane45 le 24/06/2016 à 09:53
Bonjour,
Quand tu dis que ça ne fonctionne pas... c'est à dire ...?
Il y a un message d'erreur ??
Sinon... peux tu essayer d'executer ce code en mode pas à pas pour voir ce qui s'y passe et également jetter un oeil à tes variables (voir les valeurs qu'elles ont...).
Regarde ici : https://www.commentcamarche.net/contents/1381-debogage
ou ici https://silkyroad.developpez.com/VBA/DebuterMacros/#LII-C-4
Il te faudra placer un point d'arrêt dans ta macro :
https://silkyroad.developpez.com/VBA/DebuterMacros/#LII-B-3-d
Cordialement,
Jordane
Quand tu dis que ça ne fonctionne pas... c'est à dire ...?
Il y a un message d'erreur ??
Sinon... peux tu essayer d'executer ce code en mode pas à pas pour voir ce qui s'y passe et également jetter un oeil à tes variables (voir les valeurs qu'elles ont...).
Regarde ici : https://www.commentcamarche.net/contents/1381-debogage
ou ici https://silkyroad.developpez.com/VBA/DebuterMacros/#LII-C-4
Il te faudra placer un point d'arrêt dans ta macro :
https://silkyroad.developpez.com/VBA/DebuterMacros/#LII-B-3-d
Cordialement,
Jordane
24 juin 2016 à 09:57
If Not Application.Intersect(Target, Range("C4")) Is Nothing Then
Néanmoins, je en comprends pas pourquoi ...
24 juin 2016 à 13:22
Surprenant que chez vous cela marche avec 2007, car pas possible vous devriez avoir la meme erreur. Le probleme est que vous provoquer des appels sans fin des procedures quand vous modifiez/selectionnez les cellules C4 et/ou F4. Il faut bloquer les evenements excel
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo fin If Not Application.Intersect(Target, Range("C4")) Is Nothing Then Application.EnableEvents = False For i = 11 To 21 If Target.Value = Cells(i, 4).Value Then Cells(4, 6).Value = Cells(i, 5).Value Exit For End If Next i ElseIf Not Application.Intersect(Target, Range("F4")) Is Nothing Then Application.EnableEvents = False For i = 11 To 21 If Target.Value = Range("E" & i).Value Then Range("C4").Value = Range("D" & i).Value Exit For End If Next i End If fin: Application.EnableEvents = True On Error GoTo 0 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo fin If Not Application.Intersect(Target, Range("C4")) Is Nothing Then Application.EnableEvents = False For i = 11 To 21 If Target.Value = Range("D" & i).Value Then Range("F4").Value = Range("E" & i).Value Exit For End If Next i ElseIf Not Application.Intersect(Target, Range("F4")) Is Nothing Then Application.EnableEvents = False For i = 11 To 21 If Target.Value = Range("E" & i).Value Then Range("C4").Value = Range("D" & i).Value Exit For End If Next i End If fin: Application.EnableEvents = True On Error GoTo 0 End Sub