Modifier une cellule en fonction d'une autre

Version imprimable

Bonjour

J'essaye de mettre "Inutile" dans la colonne M quand dans la colonne L est indiqué "Refusé", ceci de manière automatique lorsque l'on modifie l'une des lignes de L
Code:

1 2 3 4 5 6 7 8 9 Sub Inutile() Dim c As Range Worksheets("CRE").Activate For Each c In Range(Cells(1, 12), Cells(10000, 12)) If c.Value = "Refusé" Then Cells(c.Row, 13) = "Inutile" End If Next c End Sub
et je l'appelle comme ça dans ma feuille
Code:

1 2 3 Private Sub Worksheet_Change(ByVal Target As Range) Call Inutile End Sub
"Inutile" se met bien dans la bonne celulle, mais après j'ai le message d'erreur suivant :

Citation:

Erreur d'exécution'-2147417848 (80010108)':
La méthode '_Default' de l'objet'Range' a échoué

Puis Excel ne répond pas et provoque sa fermeture.

Merci pour votre aide.

03/04/2013, 10h08
luca.donati

Bonjour, je ne comprends pas: ton code est impeccable; pour le tester j'ai simplement exclu la ligne 3 avec le nom du fichier, pour le lancer sur un fichier à moi. Ensuite j'ai sauvegardé et fermé le fichier; pas d'erreur, pas de blocage.
Je te suggère d'essayer en renonçant (provisoirement) à appeler la Sub dans l'évènement Change de la feuille: ça t'indiquerait si le problème vient de là...

J'ai fusionné les deux :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim c As Range
'Worksheets("CRE").Activate
For Each c In Range(Cells(1, 12), Cells(10000, 12))
  If c.Value = "Refusé" Then
    Cells(c.Row, 13) = "Inutile"
  End If
Next c
 
End Sub

Et j'ai tout attaché à ma feuille CRE