XL 2010 .Hyperlinks.Add Sur toute une collone

[Bens7]

Bonjour a tous !
J'ai un petit macro qui fonctionne très bien sur une ligne :
'LIEN DOSSIER
With Sheets("LIEN")
.Hyperlinks.Add Anchor:=[c2], Address:="\\MON-pc\CLIENT\" & [c2] & "\" _
End With

Le souci j'arrive pas a l'adapter pour quil fasse la meme operation mais sur toute la collone C un part un
voici ci joint le fichier demo + le macro que j'ai fait qui marche pas... (novice)

 

[thebenoit59]

Bonjour Bens7.

A adapter selon ton code tes envies.
Actuellement l'adresse se et en colonne D, à toi de modifier.

Private Sub CommandButton1_Click()
With Sheets("LIEN")
    For i = 2 To .Range("C" & .Rows.Count).End(xlUp).Row
        If .Cells(i, "C").Value <> "" Then .Hyperlinks.Add Anchor:=.Cells(i, "D"), Address:="\\mon-pc\PUB\" & .Cells(i, "C").Value & "\"
    Next i
End With
End Sub

 

[Bens7]

Magnifique quelle rapidité !
je trouve jamais le resolu....

 

[thebenoit59]

Tu dois juste modifier ton titre.
Bonne journée.

 

[Bens7]

Chui desole mais je profite du post :
dans ma collone O j'essaye de mettre en forme : des valeurs genre 1/2, 1/4, 1/8 en format fraction a deux chiffres :
et la je bug aussi :

Dim O As Range
For Each O In Sheets("LIEN").Range("O2:O6858")
If O <> "" Then O = Format(Left(O, 3), "# ?/?")

Next O

 

[thebenoit59]

Peux-tu poser un résultat type attendu ?

 

[Bens7]

Bah :
1/4 = 1/4 en format fraction a 2 chiffre pour le moment c'est en format texte

 

[thebenoit59]

Private Sub CommandButton1_Click()
With Sheets("LIEN")
    For i = 2 To .Range("O" & .Rows.Count).End(xlUp).Row
        If .Cells(i, "O").Value <> "" And InStr(.Cells(i, "O").Value, "/") > 1 Then .Cells(i, "O").NumberFormat = "# ?/?"
    Next i
End With
End Sub

 

[Bens7]

MAGNIFIQUE...!
Oserais-je ... (c'est le meme fichier mais une autre feuille ...lol)
en A1 (entre chaque fruit 1 espace et virgule sauf a la fin) : Tomate, Orange, Pomme, Fraise
j'ai besoin en B1 :
ActiveSheet.Range("$A$1:$AG$2323").AutoFilter Field:=29, Criteria1:=Array( _
"Tomate", "Orange", "Pomme", "Fraise"), Operator:=xlFilterValues

Ou peut être plus simple un macro qui filtre tous les valeurs de présente dans A1 feuil3

 

[thebenoit59]

Peux-tu fournir ton fichier ?

 

[Bens7]

Voici ci jont avec des villes
faut que les villes de A1 me creer le code pour le mettre dans un bouton

 

[thebenoit59]

Je ne comprends pas ta demande, que faut-il faire avec les villes ?

 

[Bens7]

1) A1 = Cugy, Lausanne, Épalinges, Romanel-sur-Lausanne
2) clik bouton
3)Valeur B1 =
ActiveSheet.Range("$A$1:$AG$2323").AutoFilter Field:=29, Criteria1:=Array( _
"Cugy", " Lausanne", "Épalinges", "Romanel-sur-Lausanne"),Operator:=xlFilterValues