RESOLU / 800 lignes brutes a transformer en liens URL

DoubleZero

XLDnaute Barbatruc

• 7 Mars 2013

• #2

Re : 800 lignes brutes a transformer en liens URL

Bonjour, yaya73, le Forum,

Une possibilité avec cette macro :

Code:

Sub Liens_activer()
'Adaptation d'un code de BOISGONTIER (merci !)
Dim val As Range
'si les données se trouvent en colonne A
For Each val In Range("a2:a10000")
If val <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Range(val.Address), Address:=val.Value
End If
Next
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

Y

yaya73

Guest

• 7 Mars 2013

• #3

Re : 800 lignes brutes a transformer en liens URL

Bonjour,
et merci pour votre réponse 🙂
Cependant étant une"quiche en VB" je n'ai pas réussi a le faire fonctionner........... ouuuuuuuuh

Si éventuellement vous pouviez regarder 1 minute le fichier, ca serait superbe.

merci a vous

 

Pièces jointes

• mandataire2.xlsm

  11.8 KB · Affichages: 43

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 7 Mars 2013

• #4

Re : 800 lignes brutes a transformer en liens URL

Re-bonjour,

Voir le fichier joint et les lignes de code supprimées.

A bientôt 🙂

 

Pièces jointes

• 00 - yaya73 - Liens activer.xls

  39.5 KB · Affichages: 47

Vote positif 0 Vote négatif

Y

yaya73

Guest

• 7 Mars 2013

• #5

Re : 800 lignes brutes a transformer en liens URL

yes merci a vous ;-)

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Mars 2013

• #6

Re : RESOLU / 800 lignes brutes a transformer en liens URL

Bonjour à tous,

petite remarque au passage 00🙂 si je peux me permettre, "val" étant une fonction native de vba, déconseillé de l'tiliser comme nom de variable ou d'objet...

bon après midi
@+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 7 Mars 2013

• #7

Re : RESOLU / 800 lignes brutes a transformer en liens URL

Re-bonjour, bonjour, Pierrot 🙂,

Pierrot93 à dit:

... si je peux me permettre...

Cliquez pour agrandir...

Oh que oui, Pierrot, et je te remercie de t'être permis 😀 !

A bientôt 🙂🙂

 

Vote positif 0 Vote négatif