Bonjour,
J'ai un bug sur ces lignes :
Quelqu'un peut-il m'aider ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Windows("BIBLE.XLS").Activate Dim RefCode As Range Set RefCode = Columns("A").Find(code) If RefCode Is Nothing Then MsgBox "Non trouvé" Windows(CLASSINIT).Activate Else RefCode.Activate TRANSFERT2 End If
Merci
Partager