Répéter une macro sur plusieurs lignes

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Pierre42

XLDnaute Nouveau
Bonjour,

Débutant en macro, je me suis lancé pour pouvoir récupérer plus facilement des données consultables sur internet grâce à une requête sur le web. J'ai donc enregistré cette macro qui fonctionne très bien :

Code:
Sub maree()
'
' marée Macro
'

'
mois = Range("d5")
annee = Range("e5")
jour = Range("c5")

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.shom.fr/ann_marees/cgi-bin/predit_ext/choixp?opt=8&zone=11&port=SAINT-NAZAIRE&mm=" & mois & "&yyyy=" & annee & "&dd=" & jour & "&fuseau=0&jour=1&portsel=list&compute=TRUE" _
        , Destination:=Range("$F$5"))
        .Name = _
        "choixp?opt=8&zone=11&port=SAINT-NAZAIRE&mm=01&yyyy=2011&dd=1&fuseau=0&jour=1&portsel=list&compute=TRUE"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "3"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Range("F5:M8").Select
    Selection.Delete Shift:=xlUp
End Sub

J'ai créé trois variables : jour, mois et année. Ces variables me permettent de modifier l'adresse URL de ma requête Web et ainsi changer la donnée en fonction de la date que je lui demande.

Dans la colonne C, j'ai le numéro du jour, dans la colonne D le numéro du mois, dans la colonne E le numéro de l'Année. Mes données créé par la macro s'affiche dans les colonnes suivantes.

Cette macro me permet d'afficher seulement une valeur pour un jour donnée sur la ligne 5, or j'aimerais le faire pour les 365 jours de l'année (soit de la ligne 5 à 370). Est il possible de répéter cette macro sur plusieurs lignes en modifiant automatiquement les coordonnées des cellules des variables et de la destination de la requête web ?

Si vous avez des pistes je suis preneur. Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
234
Réponses
10
Affichages
547
Réponses
6
Affichages
297
Réponses
2
Affichages
511
Réponses
3
Affichages
1 K
Retour