Msg d'erreur "Erreur d'exécution '75' Objet spécifié introuvable
mohidou71
Messages postés
14
Statut
Membre
-
mohidou71 Messages postés 14 Statut Membre -
mohidou71 Messages postés 14 Statut Membre -
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
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
-
Bonjour,
À quelle ligne est l'erreur?
Si vous mettiez votre fichier à disposition ça serait plus simple
À+ -
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 -
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é.
