VBA : Génération de plusieurs liens hypertextes dans une même cellule
Bonjour à tous ! :)
Je viens de commencer le VBA il y a quelques jours pour un stage ... Et je bloque sur un petit problème ! Je précise du coup que je suis un total novice en la matière ^^
J'ai une colonne Excel, dans mon cas la D, dont certaines cellules contiennent des noms de fichiers ... Je dois générer des liens vers ces fichiers ! Jusque là ça va, le soucis étant que certaines cellules contiennent plusieurs noms ... Séparés par un retour à la ligne, il faudrait que je puisse différencier chacun d'entre eux pour générer le lien, qui correspond à : sChemin( Chemin du dossier qui contient tous les fichiers) & Nom du fichier dans la cellule ...
J'ai fait ça, je ne sais pas ce que ça vaut étant bloqué au niveau du 2ème For imbriqué ... Quel code mettre pour sélectionner uniquement une des "lignes" de la cellule ?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
'Génére lien hypertexte du dossier
Sub creation_liens_hypertextes(ByVal sChemin As String)
Dim LigneEnCours As Integer
Dim Str As String
Dim NbreLignes
Feuil2.Activate
For LigneEnCours = 1 To 66
If Feuil2.Range("D" & LigneEnCours) <> "" Then
Str = Feuil2.Range("D" & LigneEnCours)
NbreLignes = Len(Str) - Len(Replace(Str, Chr(10), "")) + (Right(Trim(Str), 1) = Chr(10)) + 1
'For i = 1 To NbreLignes
' Feuil2.Range("D" & LigneEnCours).Select
' ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=sChemin & Feuil2.Range("D" & LigneEnCours)
'Next NbreLignes
End If
Next LigneEnCours
End Sub |
En vous remerciant du temps que vous allez passer :D
Au plaisir de vous lire !
PS : Désolé j'ai oublié de préciser dans le titre ... J'ai Excel 2010 !
