Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ajout de lien "http" à une colonne...

Ajout de lien "http" à une colonne...

6 réponses
Avatar
PhiCADET
A l'aide
J'ai un fichier qui contient en première colonne, des cellules qui
contiennent différentes valeurs (ex: 150, 230, etc..)
Je souhaiterai créer une macro qui scrute chaque cellule de la première
colonne (à partir de la ligne 2) et qui attribue à chaque cellule non vide un
lien html composé d'une constante "http://adrhtml/" et de la valeur de la
cellule
ex:
attribuer à la cellule A2=150 un lien http:/adrhtml/150,
attribuer à la cellule A2=230 un lien http:/adrhtml/230,
etc...
Cela doit être très simple mais mes compétences sont très limitées en la
matière.... pour l'instant.

Merci d'avance à qui me viendra en aide sur ce "petit" pb et qui me rendra
un "grand" service....
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Daniel
Bonjour.
Essaie :

Sub Test()
Dim Plage As Range, c As Range
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
Var = c.Address
ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value
Next c
End Sub

Cordialement.
Daniel
"PhiCADET" a écrit dans le message de
news:
A l'aide
J'ai un fichier qui contient en première colonne, des cellules qui
contiennent différentes valeurs (ex: 150, 230, etc..)
Je souhaiterai créer une macro qui scrute chaque cellule de la première
colonne (à partir de la ligne 2) et qui attribue à chaque cellule non vide
un
lien html composé d'une constante "http://adrhtml/" et de la valeur de la
cellule
ex:
attribuer à la cellule A20 un lien http:/adrhtml/150,
attribuer à la cellule A2#0 un lien http:/adrhtml/230,
etc...
Cela doit être très simple mais mes compétences sont très limitées en la
matière.... pour l'instant.

Merci d'avance à qui me viendra en aide sur ce "petit" pb et qui me rendra
un "grand" service....


Avatar
PhiCADET
Merci pour ta réponse rapide mais

ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value

ne passe pas chez moi...

Je suis en Excel 2003 SP1

Cdlt


Bonjour.
Essaie :

Sub Test()
Dim Plage As Range, c As Range
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
Var = c.Address
ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value
Next c
End Sub

Cordialement.
Daniel
"PhiCADET" a écrit dans le message de
news:
A l'aide
J'ai un fichier qui contient en première colonne, des cellules qui
contiennent différentes valeurs (ex: 150, 230, etc..)
Je souhaiterai créer une macro qui scrute chaque cellule de la première
colonne (à partir de la ligne 2) et qui attribue à chaque cellule non vide
un
lien html composé d'une constante "http://adrhtml/" et de la valeur de la
cellule
ex:
attribuer à la cellule A20 un lien http:/adrhtml/150,
attribuer à la cellule A2#0 un lien http:/adrhtml/230,
etc...
Cela doit être très simple mais mes compétences sont très limitées en la
matière.... pour l'instant.

Merci d'avance à qui me viendra en aide sur ce "petit" pb et qui me rendra
un "grand" service....







Avatar
Daniel
Oups. J'ai oublié de tester les cellules vides :

Sub Test()
Dim Plage As Range, c As Range
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
Var = c.Address
If c.Value <> "" Then
ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value
End If
Next c
End Sub

Daniel
"PhiCADET" a écrit dans le message de
news:
Merci pour ta réponse rapide mais

ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value

ne passe pas chez moi...

Je suis en Excel 2003 SP1

Cdlt


Bonjour.
Essaie :

Sub Test()
Dim Plage As Range, c As Range
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
Var = c.Address
ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value
Next c
End Sub

Cordialement.
Daniel
"PhiCADET" a écrit dans le message
de
news:
A l'aide
J'ai un fichier qui contient en première colonne, des cellules qui
contiennent différentes valeurs (ex: 150, 230, etc..)
Je souhaiterai créer une macro qui scrute chaque cellule de la première
colonne (à partir de la ligne 2) et qui attribue à chaque cellule non
vide
un
lien html composé d'une constante "http://adrhtml/" et de la valeur de
la
cellule
ex:
attribuer à la cellule A20 un lien http:/adrhtml/150,
attribuer à la cellule A2#0 un lien http:/adrhtml/230,
etc...
Cela doit être très simple mais mes compétences sont très limitées en
la
matière.... pour l'instant.

Merci d'avance à qui me viendra en aide sur ce "petit" pb et qui me
rendra
un "grand" service....









Avatar
PhiCADET
Désolé... je reviens à la "charge"...
C'est effectivement le type de macro que je cherche mais le pb est qu'elle
ne fonctionne que si les cellules ont du texte comme valeur, or moi j'ai des
nombres et cela ne passe pas



Oups. J'ai oublié de tester les cellules vides :

Sub Test()
Dim Plage As Range, c As Range
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
Var = c.Address
If c.Value <> "" Then
ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value
End If
Next c
End Sub

Daniel
"PhiCADET" a écrit dans le message de
news:
Merci pour ta réponse rapide mais

ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value

ne passe pas chez moi...

Je suis en Excel 2003 SP1

Cdlt


Bonjour.
Essaie :

Sub Test()
Dim Plage As Range, c As Range
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
Var = c.Address
ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value
Next c
End Sub

Cordialement.
Daniel
"PhiCADET" a écrit dans le message
de
news:
A l'aide
J'ai un fichier qui contient en première colonne, des cellules qui
contiennent différentes valeurs (ex: 150, 230, etc..)
Je souhaiterai créer une macro qui scrute chaque cellule de la première
colonne (à partir de la ligne 2) et qui attribue à chaque cellule non
vide
un
lien html composé d'une constante "http://adrhtml/" et de la valeur de
la
cellule
ex:
attribuer à la cellule A20 un lien http:/adrhtml/150,
attribuer à la cellule A2#0 un lien http:/adrhtml/230,
etc...
Cela doit être très simple mais mes compétences sont très limitées en
la
matière.... pour l'instant.

Merci d'avance à qui me viendra en aide sur ce "petit" pb et qui me
rendra
un "grand" service....














Avatar
MonOnc'
bonjour PhiCADET,

tu peux dans la macro convertir le contenu de la cellule en "texte"
CStr(cellule)

Sub Test()
Dim Plage As Range, c As Range
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
If c.Value <> "" Then
lien = "http://adrhtml/" & CStr(c.Text)
ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & CStr(c.Text),
TextToDisplay:=CStr(c.Text)
End If
Next c
End Sub


cordialement


PhiCADET avait prétendu :
Désolé... je reviens à la "charge"...
C'est effectivement le type de macro que je cherche mais le pb est qu'elle
ne fonctionne que si les cellules ont du texte comme valeur, or moi j'ai des
nombres et cela ne passe pas



Oups. J'ai oublié de tester les cellules vides :

Sub Test()
Dim Plage As Range, c As Range
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
Var = c.Address
If c.Value <> "" Then
ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value
End If
Next c
End Sub

Daniel
"PhiCADET" a écrit dans le message de
news:
Merci pour ta réponse rapide mais

ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value

ne passe pas chez moi...

Je suis en Excel 2003 SP1

Cdlt


Bonjour.
Essaie :

Sub Test()
Dim Plage As Range, c As Range
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
Var = c.Address
ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value
Next c
End Sub

Cordialement.
Daniel
"PhiCADET" a écrit dans le message
de
news:
A l'aide
J'ai un fichier qui contient en première colonne, des cellules qui
contiennent différentes valeurs (ex: 150, 230, etc..)
Je souhaiterai créer une macro qui scrute chaque cellule de la première
colonne (à partir de la ligne 2) et qui attribue à chaque cellule non
vide
un
lien html composé d'une constante "http://adrhtml/" et de la valeur de
la
cellule
ex:
attribuer à la cellule A20 un lien http:/adrhtml/150,
attribuer à la cellule A2#0 un lien http:/adrhtml/230,
etc...
Cela doit être très simple mais mes compétences sont très limitées en
la
matière.... pour l'instant.

Merci d'avance à qui me viendra en aide sur ce "petit" pb et qui me
rendra
un "grand" service....
















Avatar
PhiCADET
C'est OK pour la macro
Un grand merci à toi MonOnc et à Daniel pour votre aide
Je vais essayer de progresser...
Bon dimanche


bonjour PhiCADET,

tu peux dans la macro convertir le contenu de la cellule en "texte"
CStr(cellule)

Sub Test()
Dim Plage As Range, c As Range
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
If c.Value <> "" Then
lien = "http://adrhtml/" & CStr(c.Text)
ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & CStr(c.Text),
TextToDisplay:=CStr(c.Text)
End If
Next c
End Sub


cordialement


PhiCADET avait prétendu :
Désolé... je reviens à la "charge"...
C'est effectivement le type de macro que je cherche mais le pb est qu'elle
ne fonctionne que si les cellules ont du texte comme valeur, or moi j'ai des
nombres et cela ne passe pas



Oups. J'ai oublié de tester les cellules vides :

Sub Test()
Dim Plage As Range, c As Range
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
Var = c.Address
If c.Value <> "" Then
ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value
End If
Next c
End Sub

Daniel
"PhiCADET" a écrit dans le message de
news:
Merci pour ta réponse rapide mais

ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value

ne passe pas chez moi...

Je suis en Excel 2003 SP1

Cdlt


Bonjour.
Essaie :

Sub Test()
Dim Plage As Range, c As Range
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
Var = c.Address
ActiveSheet.Hyperlinks.Add Range(c.Address), Address:= _
"http://adrhtml/" & c.Value, TextToDisplay:=c.Value
Next c
End Sub

Cordialement.
Daniel
"PhiCADET" a écrit dans le message
de
news:
A l'aide
J'ai un fichier qui contient en première colonne, des cellules qui
contiennent différentes valeurs (ex: 150, 230, etc..)
Je souhaiterai créer une macro qui scrute chaque cellule de la première
colonne (à partir de la ligne 2) et qui attribue à chaque cellule non
vide
un
lien html composé d'une constante "http://adrhtml/" et de la valeur de
la
cellule
ex:
attribuer à la cellule A20 un lien http:/adrhtml/150,
attribuer à la cellule A2#0 un lien http:/adrhtml/230,
etc...
Cela doit être très simple mais mes compétences sont très limitées en
la
matière.... pour l'instant.

Merci d'avance à qui me viendra en aide sur ce "petit" pb et qui me
rendra
un "grand" service....