Pour afficher seulement l'adresse du site j'ai trouvé :
Contact : VraiFaux(Gauche([Net];1)="#";
ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2);
[Net])
Pour règler la totalité du problème d'affichage j'ai fait et çà fonctionne :
Contact: VraiFaux(DansChaîne([Net];"@")>0;
Gauche([Net];DansChaîne(2;[Net];"#")-1);
ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2))
J'aurais bien voulu en faire une fonction dans un module, mais je ne sais
pas faire (çà plante !) :
Function Hypertxt(ByVal Adresse As String)
If Mid([Adresse], "@") > 0 Then
Adresse = Left([Adresse], Mid(2, [Adresse], "#") - 1)
Else
Adresse = Mid(Left([Adresse], Mid(2, [Adresse], "#") - 1), 2)
End If
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy Sempere
Bonjour
Essais plutôt une fonction dans ce style :
Function Hypertxt(strAdresse As String) As String If InStr(strAdresse, "@") > 0 Then Hypertxt = left(strAdresse, InStr(strAdresse, "#") - 1) Else Hypertxt = Mid(strAdresse, 2, Len(strAdresse) - 2) End If End Function
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l''''efficacité de tous : http://www.mpfa.info/ ------------------------------------
Bonjour,
J'ai un champ [Net] pour mes adresses de sites internet et pour mes adresses courriel.
1ère problématique : affichera #http://#
Pour afficher seulement l'adresse j'ai trouvé : Contact: VraiFaux(EstNull([NumAppel]); Gauche([Net];DansChaîne(2;[Net];"#")-1); [NumAppel])
Pour afficher seulement l'adresse du site j'ai trouvé : Contact : VraiFaux(Gauche([Net];1)="#"; ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2); [Net])
Pour règler la totalité du problème d'affichage j'ai fait et çà fonctionne : Contact: VraiFaux(DansChaîne([Net];"@")>0; Gauche([Net];DansChaîne(2;[Net];"#")-1); ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2))
J'aurais bien voulu en faire une fonction dans un module, mais je ne sais pas faire (çà plante !) :
Function Hypertxt(ByVal Adresse As String) If Mid([Adresse], "@") > 0 Then Adresse = Left([Adresse], Mid(2, [Adresse], "#") - 1) Else Adresse = Mid(Left([Adresse], Mid(2, [Adresse], "#") - 1), 2) End If End Function
Merci de bien vouloir m'aider
Patrice
Bonjour
Essais plutôt une fonction dans ce style :
Function Hypertxt(strAdresse As String) As String
If InStr(strAdresse, "@") > 0 Then
Hypertxt = left(strAdresse, InStr(strAdresse, "#") - 1)
Else
Hypertxt = Mid(strAdresse, 2, Len(strAdresse) - 2)
End If
End Function
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------
Bonjour,
J'ai un champ [Net] pour mes adresses de sites internet et pour mes adresses
courriel.
Pour afficher seulement l'adresse du site j'ai trouvé :
Contact : VraiFaux(Gauche([Net];1)="#";
ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2);
[Net])
Pour règler la totalité du problème d'affichage j'ai fait et çà fonctionne :
Contact: VraiFaux(DansChaîne([Net];"@")>0;
Gauche([Net];DansChaîne(2;[Net];"#")-1);
ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2))
J'aurais bien voulu en faire une fonction dans un module, mais je ne sais
pas faire (çà plante !) :
Function Hypertxt(ByVal Adresse As String)
If Mid([Adresse], "@") > 0 Then
Adresse = Left([Adresse], Mid(2, [Adresse], "#") - 1)
Else
Adresse = Mid(Left([Adresse], Mid(2, [Adresse], "#") - 1), 2)
End If
End Function
Function Hypertxt(strAdresse As String) As String If InStr(strAdresse, "@") > 0 Then Hypertxt = left(strAdresse, InStr(strAdresse, "#") - 1) Else Hypertxt = Mid(strAdresse, 2, Len(strAdresse) - 2) End If End Function
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l''''efficacité de tous : http://www.mpfa.info/ ------------------------------------
Bonjour,
J'ai un champ [Net] pour mes adresses de sites internet et pour mes adresses courriel.
1ère problématique : affichera #http://#
Pour afficher seulement l'adresse j'ai trouvé : Contact: VraiFaux(EstNull([NumAppel]); Gauche([Net];DansChaîne(2;[Net];"#")-1); [NumAppel])
Pour afficher seulement l'adresse du site j'ai trouvé : Contact : VraiFaux(Gauche([Net];1)="#"; ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2); [Net])
Pour règler la totalité du problème d'affichage j'ai fait et çà fonctionne : Contact: VraiFaux(DansChaîne([Net];"@")>0; Gauche([Net];DansChaîne(2;[Net];"#")-1); ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2))
J'aurais bien voulu en faire une fonction dans un module, mais je ne sais pas faire (çà plante !) :
Function Hypertxt(ByVal Adresse As String) If Mid([Adresse], "@") > 0 Then Adresse = Left([Adresse], Mid(2, [Adresse], "#") - 1) Else Adresse = Mid(Left([Adresse], Mid(2, [Adresse], "#") - 1), 2) End If End Function
Merci de bien vouloir m'aider
Patrice
Pat
Nickel chrome. Merci Jessy de ton aide précieuse
@+ Patrice
"Jessy Sempere" a écrit dans le message de news:
Bonjour
Essais plutôt une fonction dans ce style :
Function Hypertxt(strAdresse As String) As String If InStr(strAdresse, "@") > 0 Then Hypertxt = left(strAdresse, InStr(strAdresse, "#") - 1) Else Hypertxt = Mid(strAdresse, 2, Len(strAdresse) - 2) End If End Function
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l''''efficacité de tous : http://www.mpfa.info/ ------------------------------------
Bonjour,
J'ai un champ [Net] pour mes adresses de sites internet et pour mes adresses courriel.
1ère problématique : affichera #http://#
Pour afficher seulement l'adresse j'ai trouvé : Contact: VraiFaux(EstNull([NumAppel]); Gauche([Net];DansChaîne(2;[Net];"#")-1); [NumAppel])
Pour règler la totalité du problème d'affichage j'ai fait et çà fonctionne : Contact: VraiFaux(DansChaîne([Net];"@")>0; Gauche([Net];DansChaîne(2;[Net];"#")-1);
J'aurais bien voulu en faire une fonction dans un module, mais je ne sais pas faire (çà plante !) :
Function Hypertxt(ByVal Adresse As String) If Mid([Adresse], "@") > 0 Then Adresse = Left([Adresse], Mid(2, [Adresse], "#") - 1) Else Adresse = Mid(Left([Adresse], Mid(2, [Adresse], "#") - 1), 2) End If End Function
Merci de bien vouloir m'aider
Patrice
Nickel chrome.
Merci Jessy de ton aide précieuse
@+
Patrice
"Jessy Sempere" <jessy.sempere@prg.sncf.fr> a écrit dans le message de news:
CD0A9B13-ABE3-46E8-BCD8-ECD2955F6EE0@microsoft.com...
Bonjour
Essais plutôt une fonction dans ce style :
Function Hypertxt(strAdresse As String) As String
If InStr(strAdresse, "@") > 0 Then
Hypertxt = left(strAdresse, InStr(strAdresse, "#") - 1)
Else
Hypertxt = Mid(strAdresse, 2, Len(strAdresse) - 2)
End If
End Function
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------
Bonjour,
J'ai un champ [Net] pour mes adresses de sites internet et pour mes
adresses
courriel.
Pour règler la totalité du problème d'affichage j'ai fait et çà
fonctionne :
Contact: VraiFaux(DansChaîne([Net];"@")>0;
Gauche([Net];DansChaîne(2;[Net];"#")-1);
J'aurais bien voulu en faire une fonction dans un module, mais je ne sais
pas faire (çà plante !) :
Function Hypertxt(ByVal Adresse As String)
If Mid([Adresse], "@") > 0 Then
Adresse = Left([Adresse], Mid(2, [Adresse], "#") - 1)
Else
Adresse = Mid(Left([Adresse], Mid(2, [Adresse], "#") - 1), 2)
End If
End Function
Function Hypertxt(strAdresse As String) As String If InStr(strAdresse, "@") > 0 Then Hypertxt = left(strAdresse, InStr(strAdresse, "#") - 1) Else Hypertxt = Mid(strAdresse, 2, Len(strAdresse) - 2) End If End Function
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l''''efficacité de tous : http://www.mpfa.info/ ------------------------------------
Bonjour,
J'ai un champ [Net] pour mes adresses de sites internet et pour mes adresses courriel.
1ère problématique : affichera #http://#
Pour afficher seulement l'adresse j'ai trouvé : Contact: VraiFaux(EstNull([NumAppel]); Gauche([Net];DansChaîne(2;[Net];"#")-1); [NumAppel])
Pour règler la totalité du problème d'affichage j'ai fait et çà fonctionne : Contact: VraiFaux(DansChaîne([Net];"@")>0; Gauche([Net];DansChaîne(2;[Net];"#")-1);
J'aurais bien voulu en faire une fonction dans un module, mais je ne sais pas faire (çà plante !) :
Function Hypertxt(ByVal Adresse As String) If Mid([Adresse], "@") > 0 Then Adresse = Left([Adresse], Mid(2, [Adresse], "#") - 1) Else Adresse = Mid(Left([Adresse], Mid(2, [Adresse], "#") - 1), 2) End If End Function