Msg d'erreur "Erreur d'exécution '75' Objet spécifié introuvable
Fermé
mohidou71
Messages postés
14
Date d'inscription
dimanche 31 janvier 2016
Statut
Membre
Dernière intervention
23 mai 2016
-
1 févr. 2016 à 15:41
mohidou71 Messages postés 14 Date d'inscription dimanche 31 janvier 2016 Statut Membre Dernière intervention 23 mai 2016 - 1 févr. 2016 à 16:29
mohidou71 Messages postés 14 Date d'inscription dimanche 31 janvier 2016 Statut Membre Dernière intervention 23 mai 2016 - 1 févr. 2016 à 16:29
A voir également:
- Msg d'erreur "Erreur d'exécution '75' Objet spécifié introuvable
- Le chemin d'accès spécifié est introuvable ✓ - Forum Téléchargement
- Erreur 1004 vba ✓ - Forum VB / VBA
- Erreur d'execution 1004 - Forum Programmation
- Erreur 1000 france tv - Forum MacOS
- Youtube une erreur s'est produite ✓ - Forum YouTube
3 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
1 févr. 2016 à 15:45
1 févr. 2016 à 15:45
Bonjour,
À quelle ligne est l'erreur?
Si vous mettiez votre fichier à disposition ça serait plus simple
À+
À quelle ligne est l'erreur?
Si vous mettiez votre fichier à disposition ça serait plus simple
À+
mohidou71
Messages postés
14
Date d'inscription
dimanche 31 janvier 2016
Statut
Membre
Dernière intervention
23 mai 2016
1 févr. 2016 à 16:01
1 févr. 2016 à 16:01
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
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
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
1 févr. 2016 à 16:20
1 févr. 2016 à 16:20
Re
L'userform1 existe ??
Si elle existe, le label2 existe ??
L'userform1 existe ??
Si elle existe, le label2 existe ??
mohidou71
Messages postés
14
Date d'inscription
dimanche 31 janvier 2016
Statut
Membre
Dernière intervention
23 mai 2016
1 févr. 2016 à 16:29
1 févr. 2016 à 16:29
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é.
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é.