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
et je l'appelle comme ça dans ma feuille
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
"Inutile" se met bien dans la bonne celulle, mais après j'ai le message d'erreur suivant :
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
Puis Excel ne répond pas et provoque sa fermeture.Erreur d'exécution'-2147417848 (80010108)':
La méthode '_Default' de l'objet'Range' a échoué
Merci pour votre aide.
Partager