XL 2013 recomposition donnees suite copie page internet

[GADENSEB]

Bonjour le forum,
Je cherche une idée pour recomposer des données que je copie d'une page internet, tt en gardant le liens hypetextes.
Je m'explique, :
je copie d'une page internet les données que je colle dans l'onglet IMPORT
comme c'est inexploitable, je voudrais les recomposer comme sur l'exemple dans l'onglet ANNUAIRE.
TT en sachant que l'annuaire s’agrémente au fil du temps donc rajouter les lignes à la suite.

QQn aurait une idée ?
je ne sais pas encore travailler (j'apprends au fur et a mesure) sur les des données "a la volée" comme cela

Bonne journée
Seb

 

[thebenoit59]

Bonjour Seb.
Bonjour le forum.

Un premier code très simpliste pour te permettre de regarder la méthode utilisée.

Option Explicit

Sub annuaire()
Dim shImp As Worksheet, shAnn As Worksheet
Dim i&, j As Byte, lstRow&

Set shImp = ThisWorkbook.Sheets("IMPORT")
Set shAnn = ThisWorkbook.Sheets("ANNUAIRE")

With shImp
    For i = 1 To .Cells.Find("*", , , , xlByRows, xlPrevious).Row
        If Not .Cells(i, "A").Value = "" Then
            lstRow = shAnn.[a65000].End(xlUp).Row + 1
                shAnn.Cells(lstRow, "A").Value = .Cells(i + 1, "A").Value
                shAnn.Cells(lstRow, "B").Value = .Cells(i + 3, "A").Value
                shAnn.Cells(lstRow, "C").Value = .Cells(i + 4, "A").Value
                .Cells(i, "A").Copy shAnn.Cells(lstRow, "D")
                .Cells(i + 1, "B").Copy shAnn.Cells(lstRow, "E")
                .Cells(i + 2, "B").Copy shAnn.Cells(lstRow, "F")
                shAnn.Cells(lstRow, "G").Value = .Cells(i + 3, "B").Value
                shAnn.Cells(lstRow, "H").Value = .Cells(i + 4, "B").Value
                shAnn.Cells(lstRow, "I").Value = .Cells(i + 5, "B").Value
                'Cherche la fin du bloc.
                Do Until .Rows(i).Find("*") Is Nothing
                    i = i + 1
                Loop
        End If
    Next i
End With
End Sub

 

[GADENSEB]

Hello
Parfait c'est ce qu'il me fallait
Un grand merci à toi
J'ai compris la logique
Bonne soirée

 

[Staple1600]

Bonsoir le fil, le forum

@GADENSAB
Et quid du point 8 de la charte du forum?
à mettre en relation avec ce qu'on peut lire ici

Notamment le point 4)

 

[GADENSEB]

désolé j'aurais du mettre des données aléatoires,
je ferais attention la prochaine fois
Bonne journée