liens hypertext

Salut,

essaie ça (avec tes liens en colonne A à partir de A1 pour faire apparaître
les adresses en B) :

Sub Adresses()

Dim col As Integer
Dim lig As Integer
Dim i As Integer

Range("A1").Select

While ActiveCell.Value <> ""
ActiveCell.Offset(0, 1).Select
col = col + 1
Wend

lig = Range("A65000").End(xlUp).Row

For i = 2 To lig
Range(Cells(i, 1), Cells(i, col)).Cut
Range("IV1").End(xlToLeft).Offset(0, 1).Select
ActiveSheet.Paste
Next

Range("A1").CurrentRegion.Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:úlse,
Transpose:=True
ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

lig = Range("A65000").End(xlUp).Row

Range("B1").Select

For i = 1 To lig

Range("B" & i).Value = ActiveSheet.Hyperlinks(i).Address

Next

End Sub

Ca marche ?

CAP2

ouaou !

merci beaucoup pour ta rapidité!
bon ben je m'attendais à un truc plus simple lol!

ca marche mais pas tres bien, en fait ca bloque des qu'un lien est affiché!
qd je le relance apres, il bloque au deuxieme lien affiché, mais le met dans
la colonne A, et ainsi de suite.

j'ai essayé en remplacant ca:
'While ActiveCell.Value <> ""
'ActiveCell.Offset(0, 1).Select
'col = col + 1
'Wend
col = 1

mais la ca bloque systematiquement à la deuxieme ligne et sur :
Range("B" & i).Value = ActiveSheet.Hyperlinks(i).Address

sinon pour la premiere ligne c'est top !

Salut,

ben chez moi ça tourne pour toutes mes lignes...

As-tu bien tes liens les uns en dessous des autres à partir de A1 ?

CAP2

"CAP2" <CAP2@azerty.net> a écrit dans le message de
news:OU1l1JgsEHA.2688@TK2MSFTNGP14.phx.gbl...

Salut,

ben chez moi ça tourne pour toutes mes lignes...

As-tu bien tes liens les uns en dessous des autres à partir de A1 ?

CAP2

oui :)

je viens de revérifier, mais oui!
lorsque je remet ton code initial, la ligne qui bloque le fait avec uen
erreur 9


la partie active du code c'est :
Range("A1").CurrentRegion.Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:úlse,
Transpose:=True
ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
[...]
Range("B" & i).Value = ActiveSheet.Hyperlinks(i).Address

je ne comprend pas trop... ca recopie tout sur une ligne, puis de nouveau en
colonne... ?
en fait comment ca marcherai pour une seule cellule ?

je ne pourrai pas te répondre ce soir mais je regarderai des demain matin!

merci beaucoup de ton aide!
bonne soirée!
elicend

Salut,

ma procédure a un intérêt pour une liste de liens, mais bien sûr pour une
seule cellule, c'est plus simple :

Sub adresse()
[A1] = ActiveSheet.Hyperlinks(1).Address
End Sub

Ca marche ?

CAP2

"CAP2" <CAP2@azerty.net> a écrit dans le message de
news:eStngfgsEHA.2808@TK2MSFTNGP14.phx.gbl...

Salut,

ma procédure a un intérêt pour une liste de liens, mais bien sûr pour une
seule cellule, c'est plus simple :

Sub adresse()
[A1] = ActiveSheet.Hyperlinks(1).Address
End Sub

Ca marche ?

CAP2

Salut!!

merci pour ton aide,
voila comment j'ai solutionné le probleme :

Sub adresse2()
For i = 1 To 40
Cells(i, 3).Value = ActiveSheet.Hyperlinks(i).Address
Next
End Sub

seul truc, si j'ai 2 liens consécutifs identiques, ca plante!

Elicend