Discussion :

[Kestion100]

Bonjour,
Je voudrais qu'une macro se déclenche quand je modifie une cellule par un choix dans une liste déroulante.
Pour l'instant, il faut qu'après avoir choisi ma valeur qui s'inscrit alors dans ma cellule, je tape sur entrer pour que la macro se déclenche et je voudrais ne plus avoir à taper entrer.

Si quelqu'un y voit clair, merci

[Pierre Fauconnier]

Salut.

De quelle liste déroulante parles-tu? D'une liste de validation? D'une liste déroulante de formulaire liée à une cellule?

Si tu as placé une liste déroulante via les contrôles de formulaire, tu peux y affecter une macro lors du changement de sélection dans la liste.

[Kestion100]

Liste de validation

[Pierre Fauconnier]

L'évènement Worksheet_Change intercepte la fermeture de la liste de validation. Quel est le problème que tu rencontres?

[Kestion100]

Je travaille avec un événement SelectionChange, je vais tenter avec Change.
SelectionChange ne doit donc pas voir la fermeture d'une liste de validation de données.

Je viens d'essayer avec Change et il ne se passe plus rien après que j'aie sélectionnée ma donnée dans ma liste

[Pierre Fauconnier]

C'est pourtant bien Worksheet_Change que tu dois utiliser. SelectionChange est levé lorsque tu changes de cellule. Change est levé s'il y a un changement dans la cellule, et la fermeture de la liste de validation, qui valide donc la modification dans la cellule, lève bien l'évènement Change.

Pourrais-tu donner le code utilisé?

[Kestion100]

Avec:

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
22
23
24
25
26
27
28
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
If Not Intersect(Target, Range("J2:J4000")) Is Nothing Then
If Range("J" & ActiveCell.Row - 1) = "X" Then
 
Target.Offset(0, -1).Value = Target.Offset(-1, -1).Value
 
Application.EnableEvents = False
 
Range(Cells(Cells(Cells.Rows.Count, 1).End(xlUp).Row, 1), Cells(Cells(Cells.Rows.Count, 1).End(xlUp).Row, 6)).Select
Selection.Copy
 
    Selection.End(xlToLeft).Select
    Selection.Offset(1, 0).Select
    Paste
    Application.EnableEvents = True
    Selection.End(xlToLeft).Select
 ActiveCell.Offset(0, 6).Activate
 
ActiveCell.Offset(1, 0).Select
    Selection.End(xlToLeft).Select
 
ActiveWorkbook.Save
 
 
End If
End If
End Sub

Rien ne se produit à la sélection dans la liste de validation de données

[Pierre Fauconnier]

Forcément.

Ce sont tes Application.EnableEvents qui posent problème...

Analyse ce qui se passe.

Au premier appel de la procédure, tu passes à EnableEvents = False en fin de procédure => les évènements sont désactivés et tu ne lèveras donc plus jamais l'évènement, autrement dit, tu n'auras plus l'occasion de passer sur EnableEvents = true.

Tu dois gérer les évènements autrement. Et tu dois toujours gérer les erreurs pour être certain de remettre EnableEvents à True en sortie de procédure. Attention, Après avoir modifié ton code, tu dois réactiver les évènements (par application.enableevents = true dans la fenêtre d'exécution) ou fermer Excel et l'ouvrir à nouveau.

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
22
23
24
25
26
Private Sub Worksheet_Change(ByVal Target As Range)
  on error goto EndHandler  
  If Not Intersect(Target, Range("J2:J4000")) Is Nothing Then
    If Range("J" & ActiveCell.Row - 1) = "X" Then
      Application.EnableEvents = false
      Target.Offset(0, -1).Value = Target.Offset(-1, -1).Value
      Range(Cells(Cells(Cells.Rows.Count, 1).End(xlUp).Row, 1), Cells(Cells(Cells.Rows.Count, 1).End(xlUp).Row, 6)).Select
      Selection.Copy
 
      Selection.End(xlToLeft).Select
      Selection.Offset(1, 0).Select
      Paste
      Application.EnableEvents = True
      Selection.End(xlToLeft).Select
      ActiveCell.Offset(0, 6).Activate
 
      ActiveCell.Offset(1, 0).Select
      Selection.End(xlToLeft).Select
 
      ActiveWorkbook.Save 
    End If
  End If
 
EndHandler:
  Application.EnableEvents = True
End Sub

[Kestion100]

En effet.
Et de plus, avant, je validais avec entré, du coup je passais à la ligne suivante et rédigeais:

Code :

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

If Range("J" & ActiveCell.Row - 1) = "X" Then

que j'ai du enlevé maintenant que je ne passe pas à la ligne suivante.

Le bon code:

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
22
23
24
25
26
27
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo EndHandler
  If Not Intersect(Target, Range("J2:J4000")) Is Nothing Then
    'If Range("J" & ActiveCell.Row - 1) = "X" Then
 
      Target.Offset(0, -1).Value = Target.Offset(-1, -1).Value
      Application.EnableEvents = False
      Range(Cells(Cells(Cells.Rows.Count, 1).End(xlUp).Row, 1), Cells(Cells(Cells.Rows.Count, 1).End(xlUp).Row, 6)).Select
      Selection.Copy
 
      Selection.End(xlToLeft).Select
      Selection.Offset(1, 0).Select
      Paste
      Application.EnableEvents = True
      Selection.End(xlToLeft).Select
      ActiveCell.Offset(0, 6).Activate
 
      ActiveCell.Offset(1, 0).Select
      Selection.End(xlToLeft).Select
 
      ActiveWorkbook.Save
    End If
 
 
EndHandler:
  Application.EnableEvents = True
End Sub

De même:

Code :

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

Target.Offset(0, -1).Value = Target.Offset(-1, -1).Value

doit devenir:

Code :

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

Target.Offset(1, -1).Value = Target.Offset(0, -1).Value

Merci