Discussion :

[pgtsdvl]

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.

[Igloobel]

Bonjour,

A mon avis "Me." ne sert à rien car tu es forcément dans la bonne feuille puisque tu fais un "Private Sub ..." cela appartient qu'a une seule feuille

Tu dis

A+

[pgtsdvl]

Ok merci.
Cependant l'erreur 1004 ne vient pas de là...

[casefayere]

Bonjour le forum, pgtsdvl

as-tu essayé ces codes simples dans la feuille ?

Code :

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

1
2
3
4
5
6
Option Explicit
Dim valeur As String
Private Sub Worksheet_Activate()
valeur = Range("G2")
Range("B5") = ""
End Sub

avec

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then
  If Range("G2") <> valeur Then
    Range("B5").Value = 1
    valeur = Range("G2")
  End If
End If
End Sub

chez moi, aucun problème

bonne journée

[pgtsdvl]

Bonjour,

Merci pour ta suggestion, je viens de tester, toujours la même erreur 1004 au moment d'affecter une valeur sur B5...

D'autres idées sur une erreur 1004 lors de l'écriture d'une valeur dans une cellule sur évènement Worksheet_change ?...

[casefayere]

Bonjour,

Je n'obtiens cette erreur que si la cellule est protégée, donc, peut-être et à adapter si la cellule est effectivement verrouillée

Code :

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

1
2
3
4
5
6
7
Dim valeur As String
Private Sub Worksheet_Activate()
Unprotect
valeur = Range("G2")
Range("B5") = ""
Protect
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then
  If Range("G2") <> valeur Then
    Unprotect
    Range("B5").Value = 1
    valeur = Range("G2")
    Protect
  End If
End If
End Sub

à voir.....