Fonction recherche Textfields

Z

Zon

XLDnaute Impliqué

• 30 Avril 2013

• #2

Re : Fonction recherche Textfields

Salut,

C'est difficile d'uiliser une fonction openoffice en vba excel.

je crois que tu veux récupérer le lien hypertexte défini dans autre feuille

en adaptant comme ceci on doit pas être loin de ce que tu veux:


Function HtToLicence(Onglet As Integer, Col As Integer, Row As Integer,optional Res$="?") As String

on error resume next
httolicence=sheets(onglet).cells(row,col).hyperlinks(1).address
if err<>0 then httolicence=res

end function


A+++

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 30 Avril 2013

• #3

Re : Fonction recherche Textfields

Bonjour et merci pour ce code


j'ai une erreur sur cette ligne, une fenêtre box s'ouvre avec le message suivant

Erreur de compilation
Attendu: fin d'instruction


httolicence=sheets(onglet).cells(row,col).hyperlin ks(1).address

@+

 

Vote positif 0 Vote négatif

Z

Zon

XLDnaute Impliqué

• 30 Avril 2013

• #4

Re : Fonction recherche Textfields

Re,

un espace en trop,

une précision quand on appelle la fonction depuis la cellule excel on peux remplacer le ? par autre chose...

comme ceci

Code:

Function HtToLicence(Onglet As Integer, Col As Integer, Row As Integer, Optional Res$ = "?") As String

On Error Resume Next
HtToLicence = Sheets(Onglet).Cells(Row, Col).Hyperlinks(1).Address
If Err <> 0 Then HtToLicence = Res

End Function

A+++

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 30 Avril 2013

• #5

Re : Fonction recherche Textfields

Re ,merci pour votre implication

mais la formule donne comme résultat

#NOM?

@+

 

Vote positif 0 Vote négatif

Z

Zon

XLDnaute Impliqué

• 30 Avril 2013

• #6

Re : Fonction recherche Textfields

re,


un exemple d'utilisation à partir de ton fichier ,

 

Pièces jointes

• vmax67.zip

  14.3 KB · Affichages: 31

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 5 Mai 2013

• #7

Re : Fonction recherche Textfields

Bonjour

je n'obtient pas le bon résultat, normalement il doit apparaitre un N° de licence

Merci pour votre aide

Vmax

 

Vote positif 0 Vote négatif

Z

Zon

XLDnaute Impliqué

• 31 Mai 2013

• #8

Re : Fonction recherche Textfields

Re,


Ton N° de licence c 128039 pour ANDRE Jacques ?

en adaptant la fonction comme ceci

Code:

Function HtToLicence(Onglet As Integer, Col As Integer, Row As Integer, Optional Res$ = "?", Optional Delim$ = "=") As String
  On Error Resume Next
  HtToLicence = ExtractDroite(Sheets(Onglet).Cells(Row, Col).Hyperlinks(1).Address, Delim)
  If Err <> 0 Then HtToLicence = Res
End Function

Function ExtractDroite(ByVal Ch$, ByVal Delim$)
  Dim I&
  For I = 1 To Len(Ch)
    If Mid(Ch, I, 1) = Delim Then ExtractDroite = Right(Ch, Len(Ch) - I): Exit For
  Next I
End Function

A+++

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 6 Juin 2013

• #9

Re : Fonction recherche Textfields

Bonjour Zon

merci pour la réponse, mais chez moi ca ne fonctionne pas !!

J'ai mis en pièce jointe mon fichier.

@+

Vmax

 

Pièces jointes

• Licence.xlsm

  21.4 KB · Affichages: 33

Vote positif 0 Vote négatif

Z

Zon

XLDnaute Impliqué

• 7 Juin 2013

• #10

Re : Fonction recherche Textfields

Bonjour,

dans le 1 er fichier il y avait le numéro de licence dans le lien hypertexte, dans le 2 ème fichier il n'y parait plus .


Où est le bon ?

testes dans le 1 er cela fonctionne , si on a nulle part ce numéro de licence je ne peux pas le deviner.
ou il me faut plus de précisions...

A+++

 

Vote positif 0 Vote négatif