Discussion :

[atk_49]

Bonjour.

Dans un tableau permettant de compter les heures d'absence, je souhaiterais qu'à chaque modification sur une ligne, un marqueur m'indique qu'une modification à eu lieu.

J'ai déjà mis en place un bout de code permettant de faire ceci :



Lors d'une modification dans l'une des 4 cellules sélectionnées, une étoile vient s'ajouter au bout du format dans la colonne K:K.



Le code présent dans l’événement Worksheet_Change :

Code :

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

1
2
3
4
5
If Not Application.Intersect(Target, Range("H3:H359, K3:K359")) Is Nothing Then
ActiveSheet.Cells(ActiveCell.Row - 1, 11).NumberFormat = "[h]""h ""mm""mn ""ss""sec *"""
ElseIf Not Application.Intersect(Target, Range("I3:J359")) Is Nothing Then
ActiveSheet.Cells(ActiveCell.Row, 11).NumberFormat = "[h]""h ""mm""mn ""ss""sec *"""
End If

Pourquoi avoir décalé de -1 la ligne active lors du changement de valeur dans les colonnes H et K ?
Les colonnes I et J sont des choix par liste déroulante, les colonnes H et K sont des valeurs saisies. Lorsque je valide le choix de la cellule J4, la ligne active est bien la 4, mais lorsque je valide (par la touche entrée) la valeur saisie dans la cellule H4, la ligne active est la ligne 5 car excel saute une ligne, je dois donc déclarer de -1 ce numéro de ligne pour éviter que le format de la cellule K5 ne change par erreur.

Maintenant imaginons que l'opérateur saisisse une valeur en H4, puis pour valider, utilise la touche droite de son clavier, la ligne taggué sera alors celle au dessus, ce qui est une erreur.

Ma question : Comment puis-je faire pour éviter ce problème ?
J'ai bien pensé utiliser la fonction MoveAfterReturn = False à l'ouverture du classeur, mais elle semble inefficace...

Merci d'avance pour votre aide.

[riaolle]

Bonjour,
Tu n'utilises pas correctement la cellule Target. Dans la méthode Worksheet_Change, la cellule Target est la cellule qui a été modifiée. Tu ne dois donc pas travailler à partir de ActiveCell, mais Target! Tu l'utilises bien pour la condition, mais ensuite, il faut aussi l'utiliser pour tes actions :

Code :

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

1
2
3
If Not Application.Intersect(Target, Range("H3:H359, K3:K359, I3:J359")) Is Nothing Then
    Cells(Target.Row, 11).NumberFormat = "[h]""h ""mm""mn ""ss""sec *"""
End If

Pas besoin d'ActiveSheet non plus. En utilisant la syntaxe Cells(ligne, col) ou Range("A1") sans préciser la feuille, tu travailles par défaut sur la feuille active.

[atk_49]

Un grand merci riaolle, en effet, je comprends mal le principe de target, je vais me renseigner d'avantage, ça pourrait m'aider !

Excellente journée.

[unparia]

Bonjour à tous
L'évènement Change intervient systématiquement dès que l'on saisit dans la cellule.
Son nom (Change) est un faux ami, car il ne constate pas réellement que la nouvelle valeur est différente de l'ancienne. Il constate simplement que l'on a saisi !
Si l'on s'en contente -->> on se retrouvera avec une cellule apparemment modifiée (et donc l'astérisque) y compris si l'utilisateur, ayant commencé à intervenir dans la cellule, se ravise et remet exactement l'ancienne valeur
La seule manière de pallier cet inconvénient est :
- de relever la valeur actuelle au selectionChange
- de la comparer avec la nouvelle valeur au Change
- de ne "décréter" qu'il y a eu réellement modification que si ces deux valeurs sont différentes.
Voilà.

[atk_49]

Merci pour cette précision unparia, en effet l'astérisque apparaît si la même valeur est saisie.

Cela n'est pas dérangent dans mon cas, mon vrai besoin étant de pouvoir repérer les cellules ayant été "touchées".