Bonjour,

Détérage de post !...
[VBA-E]Lancer une macro sur changement de valeur cellule ?

J'essaye actuellement d'utiliser ce code pour passer systématiquement à 1 la valeur d'une cellule (B5) lors du changement de valeur d'une autre cellule (G2).

Le problème est que l'éxecution de la ligne suivante génère une erreur 1004 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Me.Range("B5").Value = 1
Mon code global
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
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Erreurs
    If Target.Address = "$G$2" Then
        'Call tmp
        Application.EnableEvents = False
            Me.Range("B5").Value = 1
        Application.EnableEvents = True
    End If
Erreurs:
    If Err <> 0 Then
        MsgBox (Err)
        Application.EnableEvents = True
    End If
End Sub
J'ai essayé une macro tmp suivante qui marche tout à fait normalement :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Sub tmp()
    Application.EnableEvents = False
    Me.Range("B5").Value = 1
    Application.EnableEvents = True
End Sub
Mais l'appel de cette macro dans la procédure qui repère le changement de valeur de G2 ne fonctionne pas non plus (même erreur 1004).

Quelques précisions :
Je suis en Excel 2007.
La cellule B5 est limitée en valeurs (validation des données|liste|1;11;21;31;41...)

Si vous avez quelques lumières à me proposer...

Merci !
Stéphane.