voila j'ai dans un classeur excel une feuille avec des noms ou il y a
un lien hypertexte de type email et j'aimerais recuperer en colonne B
l'adresse email de chaque information de ma colonne A.
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
FFO
Salut à toi
Soit feuil1 à traiter Colonne A les liens Hypertext Colonne B le résultat (Adresse Email) Je te propose ce code :
For Each c In Worksheets("Feuil1").Range("A2", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Range("B" & c.Row) = Split(c.Hyperlinks(1).Address, ":")(1) Next
Celà devrait convenir Dis moi !!!!
Salut à toi
Soit feuil1 à traiter
Colonne A les liens Hypertext
Colonne B le résultat (Adresse Email)
Je te propose ce code :
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
Range("B" & c.Row) = Split(c.Hyperlinks(1).Address, ":")(1)
Next
Soit feuil1 à traiter Colonne A les liens Hypertext Colonne B le résultat (Adresse Email) Je te propose ce code :
For Each c In Worksheets("Feuil1").Range("A2", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Range("B" & c.Row) = Split(c.Hyperlinks(1).Address, ":")(1) Next
Celà devrait convenir Dis moi !!!!
bastientot
comme d'hab super grand merci
On 8 jan, 16:18, FFO wrote:
Salut à toi
Soit feuil1 à traiter Colonne A les liens Hypertext Colonne B le résultat (Adresse Email) Je te propose ce code :
For Each c In Worksheets("Feuil1").Range("A2", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Range("B" & c.Row) = Split(c.Hyperlinks(1).Address, ":")(1) Next
Celà devrait convenir Dis moi !!!!
comme d'hab super grand merci
On 8 jan, 16:18, FFO <F...@discussions.microsoft.com> wrote:
Salut à toi
Soit feuil1 à traiter
Colonne A les liens Hypertext
Colonne B le résultat (Adresse Email)
Je te propose ce code :
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
Range("B" & c.Row) = Split(c.Hyperlinks(1).Address, ":")(1)
Next
Soit feuil1 à traiter Colonne A les liens Hypertext Colonne B le résultat (Adresse Email) Je te propose ce code :
For Each c In Worksheets("Feuil1").Range("A2", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Range("B" & c.Row) = Split(c.Hyperlinks(1).Address, ":")(1) Next