Bonsoir, j'ai voulu preparer un fichier pour l'année prochaine, je me retrouve avec une erreur 13.
Elle arrive apres la copie du code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ws, cel As Range, np$, tel$, L!, T!
Me.Shapes("InfB").Visible = msoFalse
If Target.Count > 1 Or Target.Row < 3 Then Exit Sub
If (Target.Column = 3 Or Target.Column = 10 Or Target.Column = 17 Or Target.Column = 24) And Target <> "" Then
np = Target
On Error GoTo Fin
ws = Split(Target.Validation.Formula1, "!")(0)
On Error GoTo 0
ws = Replace(Replace(ws, "=", ""), "'", "")
Set cel = Worksheets(ws).Columns("A").Find(np, , xlValues)
If Not cel Is Nothing Then tel = cel.Cells(1, 6) Else Exit Sub
T = Target.Offset(-5 / 3).Top
L = Target.Left + Target.Width * 1 / 2
With Me.Shapes("InfB")
.TextFrame.Characters.Text = tel
.Top = T: .Left = L: .Visible = msoTrue
End With
End If
Fin:
End Sub
dans mon onglet 13juinprog (le code provient d'un fichier ou cela fonctionne, la seule différence est le numéro de la feuille)
j'ai également une erreur de fichier trop endommagé à l'enregistrement.
Je suis un peu paumé.
Merci d'avance.