bonsoir à tous
dans une procédure de récup , j'ai un problème de boucle
le code fonctionne, mais je ne comprends pas pourquoi
lors de la récupération sur ma feuille excell , il me place les éléments bloc sur une même ligne
hors je souhaiterais les avoir les uns en dessous des autres
voici les éléments, si quelqu’un peux m'aider Merci
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 Dim Plage As Range Dim TabTemp As Variant Dim vUrl As String Dim dernLign As Long, L As Long Dim DernCol As Integer DernCol = .Cells(1, .Columns.Count).End(xlToLeft).Column défini dernier colonne dernLign = .Cells(.Rows.Count, 2).End(xlUp).Row défini dernière ligne Set Plage = .Range(.Cells(2, 2), .Cells(dernLign, DernCol)) affectation plage TabTemp = Plage.Value For L = 1 To UBound(TabTemp) 'boucle vUrl = Plage.Cells(L, 2).Hyperlinks(1).Address 'recup de lien recuphisto1 vUrl, dernLign + 1 en QueryTables.Add Next L
Partager