Discussion :

[STW59]

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

[Rino702]

Pour ton problème de boucle
change la ligne:

Code :

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

      recuphisto1 vUrl, dernLign + 1

par

Code :

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

      recuphisto1 vUrl, dernLign + L

Il ne faut pas oublier que la valeur de dernLign ne change jamais.

[Menhir]

Ou alors mettre la ligne dernLign = ... après la ligne du For ...
Mais la solution de Rino702 ( ) est plus efficace.

[STW59]

Ou alors mettre la ligne dernLign = ... après la ligne du For ...
Mais la solution de Rino702 ( ) est plus efficace.

Merci pour votre aide Menhir, je vais tenter votre idée

[STW59]

Grand Merci les Gars vous êtes Géniaux ,

j'ai tenter la soluce de Menhir , ca marche nickel, Big Merci à vous deux

[STW59]

Pour ton problème de boucle
change la ligne:

Code :

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

      recuphisto1 vUrl, dernLign + 1

par

Code :

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

      recuphisto1 vUrl, dernLign + L

Il ne faut pas oublier que la valeur de dernLign ne change jamais.

Merci beaucoup Rino pour ta réponse, ça me semblait une bonne idée mais bizarrement il continu à les placer sur la même ligne, en décalant les blocs vers le bas en +1 (voir photos jointes)
Cas en mode +1 / et cas en mode +L
merci