Auto Hypertext

Bonsoir;

est il possible de faire en sorte que CONDITION:

sur feuil1

for i = 2 to 1000

if range("A" & i).value = "ok" or range("A" & i).value = "not ok" then

........... transformet le ok / not ok en lien hypertexte qui renvoie a la cellule

range("B"& i+1) de la feuil2 ???

Soyez indulgent le range/value/for...ect c'est juste histoir de me la péter je ne suis qu'un noob en VBA

merci d'avance

Bonjour,

à tester entre If.......End If,

With Sheets("Feuil1")
    .Hyperlinks.Add Anchor:=.Range("A" & i), Address:="", SubAddress:= _
        "Feuil2!" & Range("B" & i + 1).Address, TextToDisplay:=.Range("A" & i).Value
End With

Merci sabV

j'ai testé avec ça comme condition mais cela me renvoie référence incorrecte:

With Sheets("Feuil1")

for i = 2 to 1000

if range("A" & i).value <> "" then

.Hyperlinks.Add Anchor:=.Range("A" & i), Address:="", SubAddress:= _

"Feuil2!" & Range("B" & i + 1).Address, TextToDisplay:=.Range("A" & i).Value

end if

next

end with

ou est ce que ca cloche? ma condition est simple pourtant non?

Bonjour,

if faut ajouter un point devant range

if .range("A" & i).value <> "" then

C'est bon c'est réglé, merci beaucoup

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!