Discussion :

[diltech]

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.

[mercatog]

Si le nombre désiré se trouve toujours juste après le = final

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
Private Sub cmd_convert_Click()
Dim Cell As Range
Dim Ligne As Integer, pos As Integer
Dim strHyp As String, Result As String
 
'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
        strHyp = Cell.Hyperlinks(1).Address
        pos = InStrRev(strHyp, "=")
        Result = Mid(strHyp, pos)  'le nombre récupéré
        Cell.Offset(0, 1) = strHyp
        Cell.Offset(0, 2) = Result
    End If
Next Cell
End Sub

[diltech]

C'est toujours le cas effectivement.

Merci infiniment.

[mercatog]

Une petite coquille corrigée

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
Private Sub cmd_convert_Click()
Dim Cell As Range
Dim Ligne As Integer, pos As Integer
Dim strHyp As String, Result As String
 
'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
        strHyp = Cell.Hyperlinks(1).Address
        pos = InStrRev(strHyp, "=")
        Result = Mid(strHyp, pos+1)  'le nombre récupéré
        Cell.Offset(0, 1) = strHyp
        Cell.Offset(0, 2) = Result
    End If
Next Cell
End Sub