Voici le code que j'ai trouvé pour extraire mes hyperliens d'une longue liste. De cette liste, j'aimerais bien avoir seulement le chiffre à la fin.

/index.php?page=4468462&id_partie=20999

De ceci j'aimerais récupérer seulement 20999

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
 
 
Private Sub cmd_convert_Click()
    Dim Cell As Range
    Dim Ligne As Integer
 
    'Récupère le numéro de la dernière ligne non vide
    Ligne = Columns(1).SpecialCells(xlCellTypeLastCell).Row
 
    'Boucle sur les cellules de la colonne A
    For Each Cell In Range("G1:G" & Ligne)
        If Cell.Hyperlinks.Count > 0 Then _
            Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
        Next Cell
End Sub
Merci de votre aide.