Discussion :

[ledisciple]

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 :

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

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 :

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

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 :

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.

[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à...