Erreur d'execution '91' : variable objet
bonjour a tous
j'ai changé d'ordinateur et quand j'ai voulu remettre cette application de recherche de numéro de tel par internet via les pages jaunes (voir post ci dessous)
j'ai un message :
Erreur d'execution '91' : variable objet ou variable de bloc With non définie.
pouvez vous m'aider svp ?
merci par avance
Edit Dan : Merci de ne pas mettre de fichier avec des données confidentielles.
Fichier amendé --> https://www.excel-pratique.com/~files/doc2/hGbT8recherche_internet_yanlord.xls
Salut le forum
Normal que celà ne fonctionne plus, tes Indics() on changés d'Index.
With Sheets("base")
Indics(1).Value = .Cells(Ligne, 1).Value
Prenom = IIf(.Cells(Ligne, 2).Value = "", "", .Cells(Ligne, 2).Value)
Indics(2).Value = Prenom
Addr = IIf(.Cells(Ligne, 3).Value = "", "", .Cells(Ligne, 3).Value)
Indics(3).Value = Addr
CP = IIf(.Cells(Ligne, 4).Value = "", "", .Cells(Ligne, 4).Value & " ")
Ville = IIf(.Cells(Ligne, 5).Value = "", "", .Cells(Ligne, 5).Value)
Indics(4).Value = CP & Ville
End WithModifie tes deux macros dans les codes des boutons :
Private Sub CommandButton5_Click() et Private Sub CommandButton6_Click()
Mytå
bonjourUsb512 a écrit :Salut le forum
Normal que celà ne fonctionne plus, tes Indics() on changés d'Index.
With Sheets("base") Indics(1).Value = .Cells(Ligne, 1).Value Prenom = IIf(.Cells(Ligne, 2).Value = "", "", .Cells(Ligne, 2).Value) Indics(2).Value = Prenom Addr = IIf(.Cells(Ligne, 3).Value = "", "", .Cells(Ligne, 3).Value) Indics(3).Value = Addr CP = IIf(.Cells(Ligne, 4).Value = "", "", .Cells(Ligne, 4).Value & " ") Ville = IIf(.Cells(Ligne, 5).Value = "", "", .Cells(Ligne, 5).Value) Indics(4).Value = CP & Ville End WithModifie tes deux macros dans les codes des boutons :
Private Sub CommandButton5_Click() et Private Sub CommandButton6_Click()
Mytå
pourrais tu s'il te plait développer tes propos: pour moi c'est le coté obscur d'exel
Re le forum
Dans les codes de tes macros tu dois remplacer le code
With Sheets("base")
Indics(6).Value = .Cells(Ligne, 1).Value
Prenom = IIf(.Cells(Ligne, 2).Value = "", "", .Cells(Ligne, 2).Value)
Indics(7).Value = Prenom
Addr = IIf(.Cells(Ligne, 3).Value = "", "", .Cells(Ligne, 3).Value)
Indics(8).Value = Addr
CP = IIf(.Cells(Ligne, 4).Value = "", "", .Cells(Ligne, 4).Value & " ")
Ville = IIf(.Cells(Ligne, 5).Value = "", "", .Cells(Ligne, 5).Value)
Indics(12).Value = CP & Ville
End WithPar celui que j'ai cité plus haut.
Méthode
ALT+F11 Pour accéder au VBA
CTRL+R Pour accéder à l'explorateur de projet
Bouton droite de la souris sur Userform1 Clique sur code
Parcours les codes pour remplacer les parties qui cause problèmes.
Tu remplaces 6,7 8 et 12 par 1,2,3 et 4 donc Indics(6) devient Indics(1)...
Mytå
merci a toi c'est royal mais saurais tu pourquoi ces changements ont du être faits ?
Re le forum
Yanlord surement que la page web a changé son "Design" ou modifié son code HTML.
Mytå