Discussion :

[Chris005]

Bonjour,
J'ai toujours trouvé mon bonheur sur ce site, grâce à nombre d'entre vous que je peux enfin remercier, mais là je n'arrive pas à résoudre mon problème. Pour simplifier, dans une feuille de calcul j'efface les données des cellules A1 à A5 puis la cellule M1 enregistre l'heure. Je saisis ensuite des chiffres dans les cellules A1 à A5 et à chaque saisie une TextBox (ControlActiveX nommé TxtChrono) affiche le temps mis entre le RAZ et la saisie. Au bout de 5 saisies un message m'indique que la saisie est terminée.
Je rencontre 2 problèmes : la macro Worksheet_Change ne se déclenche que si je valide par la touche Enter (pas avec les flèches de déplacement). Pouvez-vous me dire pourquoi ?
2ème problème : à la 5ème saisie, le message s'affiche puis, seulement après, TxtChrono est mis à jour. Y-a-t'il moyen de forcer la mise à jour de TxtChrono avant d'afficher le message de fin de saisie ? En fait, dans le projet réel, c'est un formulaire qui s'affiche et j'ai besoin de connaître ce temps pour décider de la suite de la procédure. Message ou formulaire, le problème est le même.
Je remercie par avance tous ceux qui pourront m'aider et m'expliquer pourquoi une macro semble ne pas respecter l'ordre des lignes de code.

[barpasc]

Pour apporter une réponse au problème 1 sur worksheet_change,

l'évènement worksheet_change ne se déclenche que si une cellule est éditée (modifiée ou la valeur supprimée). Le déplacement avec les flèches de direction ne déclenchent pas la macro

Une solution simple serait d'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheet_SelectionChange

à la place de worksheet_change

Pour le problème 2, l'utilisation de OLEObjects se rapporte à activex et ce n'est pas toujours simple. Passer une formulaire de type control offre à mon avis une plus grande intéraction et facilité de controle.

[Chris005]

Merci barpasc pour votre aide. J'ai testé la solution Worksheet_SelectionChange mais sans grand succès. Je vais toutefois ré-essayer si vous pensez que c'est la solution.
Pour le 2ème problème, je suis désolée mais je ne comprends pas votre suggestion. Pouvez-vous m'en dire davantage ?
Encore merci et veuillez me pardonner ma réponse tardive.

[Volid]

Pour être notifié à chaque saisie alors mettez le code de Worksheet_Change dans une fonction dans le module1 et supprimez la fonction Worksheet_Change et après sur la feuille choisissez n'importe quelle cellule vide (disons B1)et ajouter la formule utilisant la nouvelle fonction qui sera appelée à chaque saisie

=ChangeNotify(A1:A5)

fonction à ajouter dans le module1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function ChangeNotify(mRange As Range)
Dim Temps As Date
Dim Nombre As Integer
Dim Ws As Worksheet
 
 Nombre = Application.WorksheetFunction.CountA(mRange)
 ChangeNotify = Nombre
 
 Set Ws = Sheets("Feuil1")
 Ws.OLEObjects("TxtChrono").Object.Value = "Durée du jeu : " & Format(Timer, "hh:mm:ss")
 
 Temps = Format(Time - Ws.Range("Début"), "hh:mm:ss")
 Ws.OLEObjects("TxtChrono").Object.Value = "Durée du jeu : " & Temps
 
 If Nombre = 5 Then
   MsgBox "Saisie terminée"
 End If
 
Set Ws = Nothing
 
End Function

[Philippe Tulliez]

Bonjour,

a macro Worksheet_Change ne se déclenche que si je valide par la touche Enter (pas avec les flèches de déplacement). Pouvez-vous me dire pourquoi ?

La procédure événementielle Worksheet_Change intercepte tous changement de valeur qui se produit dans l'une ou plusieurs cellules de la feuille et ce qu'elle que soit la manière dont on la valide. Enter, flèche de direction, Contrôle + Entrée, etc.

Un simple test avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
  Debug.Print Now() & " Address " & Target.Address
End Sub

[Chris005]

Merci Volid, votre solution marche parfaitement, quel que soit le mode de déplacement pour la saisie (Enter ou flèche). Merci également à ceux qui ont bien voulu prendre le temps de me répondre.
Il me reste quand même le problème de la dernière saisie : la boîte de dialogue "Saisie terminée" s'affiche toujours avant la mise à jour du compteur de temps ; dans la fonction on met à jour le compteur
Ws.OLEObjects("TxtChrono").Object.Value = "Durée du jeu : " & Temps
puis, seulement après, on teste si on a fait 5 saisies pour afficher la boîte de dialogue alors pourquoi cette inversion ?

[Valtrase]

Bonjour Chris, bonjour à tous,
C'est un comportement normal, l'évènement Worksheet_Change doit se terminer pour pouvoir afficher les changements de la feuille.
Une solution de contournement est d'utiliser une ou deux formes dont la formule pointe sur une cellule voir l'exemple fournis.
Petits retours sur le code :

• Quand l'on utilise Application.EnableEvents, mettre en place une gestion d'erreurs.
• Si vous voulez utiliser une feuille alors utiliser Worksheet et non pas Sheets qui peut retourner une feuille, un graphique, etc.
• Dans l'évènement Worksheet_Change nul besoin de créer une variable Worksheet , Me représente la feuille.
• L'utilisation de With End With rend le code plus lisible.
• Privilégier l'utilisation de champ nommés, par exemple .Range("A1:A5").ClearContents par .Range("vr_Saisies").ClearContents (en ayant pris le soin de créer le champ nommé)

Classeur1.xlsm

[Volid]

C'est juste un problème d'affichage le dernier écart de temps est affiché après la fermeture du MsgBox mais il est correct .. cette valeur a été affectée au TextBox bien avant l'appel de MsgBox

[Chris005]

Un grand merci à Valtrase qui a résolu mon problème avec une solution très astucieuse et qui, en outre, donne d'excellents conseils pour améliorer mon code.
Merci également à Volid pour son aide et peut-être à bientôt sur cet excellent forum.