Fonction recherche Textfields

[vmax67]

Bonjour les experts

J'ai besoin de votre aide a propos d'une fonction à intégrée dans une formule

Ci-dessous la fonction

Function HtToLicence(Onglet As Integer, Col As Integer, Row As Integer) As String

Dim Cellule As Object, Textfields As Object, tmp As String
Dim i As Integer

'Spécifie la cellule A1 dans la 1ere Feuille
Cellule = ThisComponent.Sheets(Onglet).GetCellByPosition(Col, Row)

Textfields = Cellule.Textfields

'Vérifie s'il y a des liens dans la cellule
If Textfields.Count = 0 Then
HtToLicence = "?"
Else
tmp = Textfields.getByIndex(0).URL
HtToLicence = Right(tmp, Len(tmp) - InStr(tmp, "="))
' & _
' Chr(10) & oTextFields.getByIndex( 0 ).Representation

End If

End Function

Ci-dessous la formule qui doit renvoyer une valeur d'un site internet

=HTTOLICENCE(0;CELLULE("col";B3)-1;CELLULE("ligne";B3)-1)

Merci

en pièce jointe le fichier excel

Merci

 

[Zon]

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+++

 

[vmax67]

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

@+

 

[Zon]

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

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+++

 

[vmax67]

Re : Fonction recherche Textfields

Re ,merci pour votre implication

mais la formule donne comme résultat

#NOM?

@+

 

[Zon]

Re : Fonction recherche Textfields

re,


un exemple d'utilisation à partir de ton fichier ,

 

[vmax67]

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

 

[Zon]

Re : Fonction recherche Textfields

Re,


Ton N° de licence c 128039 pour ANDRE Jacques ?

en adaptant la fonction comme ceci

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+++

 

[vmax67]

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

 

[Zon]

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+++