Remplir que les cellules non vide

[yassinewrigley]

Bonjour le forum,

Le code suivant:

Sub hyperlien()
Dim c As Range
For Each c In Range([E1], [E65586].End(xlUp))
ActiveSheet.Hyperlinks.Add c, "R:\Technic\ENGINEERING\Yassine - Gestion de projet 2011\Procédure de gestion de projets\A\" & c.Value
Next c
End Sub

me permet de transformer mes cellules en lien hypertexte sauf qu'il me remplit même les cellule vide.
Que dois-je modifier pour remplir que mes cellules non vide?
Comment je peux choisir plusieurs colonnes distinctes, le code étant pour la colonne E dans l'exemple.

Par avance, merci.

YB

 

[Gorfael]

Re : Remplir que les cellules non vide

Salut yassinewrigley et le forum
Juste le principe :

Sub hyperlien()
Dim c As Range
For Each c In Range([E1], cells(rows.count,"E").End(xlUp))
if c<>"" then ActiveSheet.Hyperlinks.Add c, "R:\Technic\ENGINEERING\Yassine - Gestion de projet 2011\Procédure de gestion de projets\A\" & c
Next c
End Sub

Petite remarque : tu as 2007, donc plus de 65536 lignes => ta macro ne fonctionnerait pas sous 2003.
A+