Discussion :

[dratsimb]

Bonjour à tous,
Je suis un débutant en VBA. Je voulais vous soumettre un bug que je n'arrive pas à enlever. Le code marchais encore jusqu'à ce que je rajoute des lignes dans le classeur.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
Sub remplacevide(i)
If Not IsEmpty(Range("e" & i)) Then
        Range("f" & i).Formula = "=VLOOKUP(E" & i & ",Deroul!$D$1:$E$30,2,0)"
        Range("f" & i).Font.ColorIndex = 1
        Range("f" & i).Font.Bold = False         
Else: Range("f" & i) = ""
End If
End Sub

L'erreur se trouve après Formula.

Edit: J'ai également jouer avec les verrouillages et masquages avant que cela n'arrive, sauf que je pense avoir tout remis à l'origine.
Merci d'avance
dratsimb

[dratsimb]

Finalement je n'avais pas fini d'ôter la protection de la feuille, et çà remarche. Donc finalement mon soucis c'est comment protéger cette feuille, que je dois surement mettre sous une autre discussion.
Désolé pour le dérangement.
dratsimb