Msg d'erreur "Erreur d'exécution '75' Objet spécifié introuvable [Fermé]

Signaler
Messages postés
14
Date d'inscription
dimanche 31 janvier 2016
Statut
Membre
Dernière intervention
23 mai 2016
-
Messages postés
14
Date d'inscription
dimanche 31 janvier 2016
Statut
Membre
Dernière intervention
23 mai 2016
-
Bonjour,
hier on ma aidé a faire ce code, je l'ai exécuté sur une feuille tout été normal mais dés que je l'ai appliqué sur le reste des feuilles du classeur (j'ai fais du copié coller sur chaque feuille) il fonctionne un moment après un message d'erreur apparait "Erreur d'exécution '75' Objet spécifié introuvable".

voici le code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("A1:A4")) Is Nothing Then
Cancel = True
With Worksheets("feuil2") 'mettre le nom de la feuille
'recherche
Nb = Application.CountIf(.Range("I1:I4"), Target)
If Nb > 0 Then
lig = 1
lig = .Columns("I").Find(Target, .Cells(lig, "I"), , xlWhole).Row
UserForm1.Label1.Caption = .Cells(lig, "J")
UserForm1.Show
Else
MsgBox "Desole, n'exite pas dans table !!!!!"
End If
End With
End If
End Sub

la personne qui ma aidé se reconnaîtra.

Merci d'avance à tous

3 réponses

Messages postés
15729
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 avril 2021
1 481
Bonjour,
À quelle ligne est l'erreur?
Si vous mettiez votre fichier à disposition ça serait plus simple
À+
Messages postés
14
Date d'inscription
dimanche 31 janvier 2016
Statut
Membre
Dernière intervention
23 mai 2016

Bonjour
content de vous revoir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("B3:B8")) Is Nothing Then
Cancel = True
With Worksheets("B_données") 'mettre le nom de la feuille
'recherche
Nb = Application.CountIf(.Range("A2:A50"), Target)
If Nb > 0 Then
lig = 1
lig = .Columns("A").Find(Target, .Cells(lig, "A"), , xlWhole).Row
UserForm1.Label2.Caption = .Cells(lig, "B")
UserForm1.Label4.Caption = .Cells(lig, "C")
UserForm1.Label6.Caption = .Cells(lig, "D")
UserForm1.Label8.Caption = .Cells(lig, "E")
UserForm1.Show
Else
MsgBox "Désole, l'information n'exite pas dans table !!!!!"
End If
End With
End If
End Sub

merci
Messages postés
15729
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 avril 2021
1 481
Re
L'userform1 existe ??
Si elle existe, le label2 existe ??
Messages postés
14
Date d'inscription
dimanche 31 janvier 2016
Statut
Membre
Dernière intervention
23 mai 2016

rebonjour,
tout existe mais je ne pense pas que le problème vient du code.
je viens de lire dans un forum que le problème vient d'office, mais ils ont pas donné de solution juste une personne qui résolu le problème en enregistrant le fichier sous mode compatible 97-2003, je l'ai essayé et bizarrement il y'a plus de plantage ni de message d'erreur.

merci a toi et pour ta disponibilité.