Discussion :

[bigounet]

Bien le bonjour à tout le monde.
J'ai un soucis pour supprimer des lignes après avoir importer des données d'une page web.

Je me suis fait un petit fichier excel pour l'euro millions.
Mon fichier va chercher les résultats du tirage, importe les données puis me donne le résultat par rapport à mes numéros.
Mais, la mise en page de la page web n'est pas toujours la même, ce serait trop simple.
Ce que je souhaiterais, c'est dans la colonne A de la feuille "Import Résultat", faire une recherche de la valeur "Euro millions" puis supprimer toutes les lignes précédentes.
Par exemple, si la valeur "Euro millions " est dans le cellule A130, supprimer les lignes de A1 à A129
J'ai essayé avec ce petit code mais cela ne fonctionne pas.

Code :

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

1
2
3
4
5
6
 
Sheets("Import Résultat").Select
    Range("A1").Select
    Cells.Find(What:="euro millions* ", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

Sinon, j'utilise ce code où la valeur de la ligne doit être vérifié à chaque fois, puis je supprime les lignes vides (dans l'exemple ci-dessous, la valeur "Euro millions " est dans la cellule A127)

Code :

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

1
2
3
4
5
6
 
Sheets("Import Résultat").Select
    Range("A1").Select
    Rows("1:126").Select
    Selection.Delete Shift:=xlUp
    Range("A1:A26").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

En vous remerciant pour votre aide.
Francis

[jurassic pork]

hello,
pour aller chercher des infos sur une page web, en VBA il y a selenium basic qui permet de piloter un navigateur (ex: chrome, edge chromium) et de récupérer une ou plusieurs valeurs sur cette page.
Quelle est ta page web et l'info que tu veux récupérer ?
Ami calmant, J.P

[Philippe Tulliez]

Bonjour,
Le résultat des tirages du Lotto (depuis 1978 à nos jours) et de l'EuroMillions est disponible en ligne au format csv et Excel. Pourquoi VBA ?

https://www.loterie-nationale.be/nos...sultats-tirage

[bigounet]

Bonjour,
Le résultat des tirages du Lotto (depuis 1978 à nos jours) et de l'EuroMillions est disponible en ligne au format csv et Excel. Pourquoi VBA ?

https://www.loterie-nationale.be/nos...sultats-tirage

Merci, mais cela ne répond pas à mon problème.
Dans mon fichier excel, j'importe les résultats, mise en page et je vois directement, par rapport à mes numéros joués, si je peux arrêter de travailler.
Avant d'arriver à la partie avec ce qu'il m'intéresse lorsque j'importe les données, il y a plein de blabla que je veux supprimer.
Et c'est la mon soucis.

[bigounet]

hello,
pour aller chercher des infos sur une page web, en VBA il y a selenium basic qui permet de piloter un navigateur (ex: chrome, edge chromium) et de récupérer une ou plusieurs valeurs sur cette page.
Quelle est ta page web et l'info que tu veux récupérer ?
Ami calmant, J.P

Bonjour, j'importe les données depuis le site suivant : https://www.rtbf.be/services/loterie
J'ai essayé directement sur le site de la loterie mais je n'ai rien comme résultat

[jurassic pork]

Merci, mais cela ne répond pas à mon problème.
Dans mon fichier excel, j'importe les résultats, mise en page et je vois directement, par rapport à mes numéros joués, si je peux arrêter de travailler.
Avant d'arriver à la partie avec ce qu'il m'intéresse lorsque j'importe les données, il y a plein de blabla que je veux supprimer.
Et c'est la mon soucis.

Dans la page indiquée par Philippe on peut télécharger les gains et les résultats des derniers tirages sous forme csv ou xlsx. On peut remettre en forme le contenu avec Excel avec des formules ou power query. Où est le problème ?

[bigounet]

Dans la page indiquée par Philippe on peut télécharger les gains et les résultats des derniers tirages sous forme csv ou xlsx. On peut remettre en forme le contenu avec Excel avec des formules ou power query. Où est le problème ?

Cela ne m'arrange pas si je dois d'abord ouvrir une page web, télécharger les données, puis ouvrir mon fichier excel pour importer ces données.
Sur la page de la RTBF, les données reçues sur une page de calcul dans excel sont au format txt.
Et après, je fais ma mise en page, avec les numéros, les gains, etc ....

Pour importer mes données, je vais sur : Données, web, je mets le site et le tableau qui m'intéresse.
En passant par le site de la loterie, je n'ai aucune donnée exploitable.

Mais je répète ce que je souhaite. Dans la colonne A, rechercher "Euro millions", sélectionner la ligne et supprimer toutes les lignes précédentes.
Je vais voir, en supprimant les lignes vides si j'arrive à avoir le résultat recherché. Mais je dois attendre le prochain tirage.

[bigounet]

Cela ne m'arrange pas si je dois d'abord ouvrir une page web, télécharger les données, puis ouvrir mon fichier excel pour importer ces données.
Sur la page de la RTBF, les données reçues sur une page de calcul dans excel sont au format txt.
Et après, je fais ma mise en page, avec les numéros, les gains, etc ....

Pour importer mes données, je vais sur : Données, web, je mets le site et le tableau qui m'intéresse.
En passant par le site de la loterie, je n'ai aucune donnée exploitable.

Mais je répète ce que je souhaite. Dans la colonne A, rechercher "Euro millions", sélectionner la ligne et supprimer toutes les lignes précédentes.
Je vais voir, en supprimant les lignes vides si j'arrive à avoir le résultat recherché. Mais je dois attendre le prochain tirage.

Voilà, en fouillant un peu, j'ai trouvé une solution qui fonctionne.

Code :

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

1
2
3
4
5
 
' je supprime les lignes vides
     Range("A1:A150").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
' 
     Cells(1).Resize(Columns(1).Cells.Find("euro millions").Row - 1).EntireRow.Delete