Discussion :

[Adrien_Vdv]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Au plaisir de vous lire !

PS : Désolé j'ai oublié de préciser dans le titre ... J'ai Excel 2010 !

[mjpmjp]

bonjour,

un Tableau -->TabElement()

TabElement= Split(Cellule, Delimiter:=Chr(10))

dans TabElement, les lignes de la Cellule

Ubound(Split(Cellule, Delimiter:=Chr(10)))

nombre de ligne (pour la boucle )

TabElement(0) --> ligne 1
TabElement(1) --> ligne 2
TabElement(Ubound(TabElement)) --> derniere ligne

@+JP

[Adrien_Vdv]

Simple, clair, logique et précis Merci à toi !