Discussion :

[faustien]

Bonjour à toutes et tous,

j'ai fait cette macro qui fonctionne tres bien à la saisie de nouveaux elements mais lorsque je supprime des valeurs (selection avec la souris ou les fleches puis touche Suppr) la procedure appelée ne se déclenche pas.

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect([m5:XFD500], Target) Is Nothing And Target.Count = 1 Then
 
Application.MoveAfterReturnDirection = xlToRight
Application.EnableEvents = False
Application.ScreenUpdating = False
'Stocke la celulle de saisie
Set Saisie = ActiveCell
 
Call debut_fin
 
Saisie.Select
Application.ScreenUpdating = True
Application.EnableEvents = True
 
End If
End Sub

il y a un moment que je cherche mais maintenant j'ai besoin d'aide pour comprendre ce que j'ai oublié.

Merci d'avance

[joe.levrai]

Bonjour,

il n'y a aucune raison que la procédure évènementielle ne s'enclenche pas

en revanche, je ne suis pas sûr que Application.MoveAfterReturnDirection fasse effet ... dans la mesure où une suppression de valeur ne génère pas de validation qui change (move) la position du curseur de cellule

est-ce bien ça le problème ? Que raconte le mode pas à pas, tu as essayé ?

[patricktoulon]

essaie plutot cela

Code :

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

If Not Intersect(Range("M5:XFD500"), Target) Is Nothing And Target.Count = 1 Then

[faustien]

bonjour,

merci pour ce retour.

Effectivement le moveafterreturn posait probleme.

Si je peux me permettre ? Comment fait-il faire pour que la macro fonctionne aussi en Copié/collé au clavier(CRTL+C V) ou à la souris avec les clics droit ?

Merci

[joe.levrai]

Comment fait-il faire pour que la macro fonctionne aussi en Copié/collé au clavier(CRTL+C V) ou à la souris avec les clics droit ?

L'évènement Change va se déclencher, même avec un Ctrl+V ou un clic-droit de souris pour coller
Ta question n'est ni claire, ni étayée

[faustien]

cela ne fonctionnait pas à cause de target.count =1.

En mettant >=1 cela fonctionne

[joe.levrai]

Autant enlever la condition du Target.Count alors !
ça ne peut jamais être inférieur à 1