Remplacer automatiquement une cellule avec via

Question

Bonjour, voici mon code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range
Dim i As Integer
Dim oui As String
Dim non As String
Dim derligne As Long

derligne = Range("A1").End(xlDown).Row

Set KeyCells = Range("C14").Offset(i)

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

For i = 1 To derligne

If Range("C14").Offset(i) = "oui" Then
Range("C14").Offset(i, 1) = "Occupé"

ElseIf Range("C14").Offset(i) = "non" Then
Range("C14").Offset(i, 1) = InputBox("vacant ou vacant en travaux?")

End If
Next i

End If
End Sub

je n'arrive pas à comprendre pourquoi cela ne marche pas, Excel me m'ouvre une boite qui me demande de choisir une macro. Ce que je veux faire c'est juste remplacer ce qu'il y a dans une cellule de manière automatique quand je modifie la cellule juste à coté. quelqu'un pour m'aider?

Arturo83 · Answer

Je serai tenté de dire que vous n'avez pas coller la macro au bon endroit, mais sans voir le fichier je ne suis sûr de rien. Dans quel module se trouve-elle? Après son fonctionnement me paraît bizarre, pourquoi faites -vous référence uniquement à la cellule C14 alors que vous rechercher la dernière ligne. Si vous pouviez déposer une fichier bidon mais de même structure on pourrait vous aider plus aisément. Cdlt...