probleme insertion ligne selon variable
bonjour a tous , j'ai passé le week à chercher une soluce ,, pas moyen :(
j'ai une macro lié à une recup IE (en fonction de lien d'un 1er tableau)
j'aimerai lors de cette récup en fonction du nombre aléatoire de cette incrémentation (variable NBL)
inserer le nombre de ligne correspondante (dans mon 1er tableau, pour chaque lien)
et par la suite copier les lignes récupérer à la droite de mon 1er tableau
pas simple :) :) au Secours !! merci de votre aide
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
| Sub Essai()
Dim vurl As String 'Lien
Dim TabTemp As Variant
Dim plage As Range
Dim NBL As Integer 'variable nbr ligne
Dim rcell As Range
dernlign = Cells(Rows.Count, 2).End(xlUp).Row
derncol = Cells(4, Columns.Count).End(xlToLeft).Column
Set plage = Range(Cells(5, 2), Cells(dernlign, derncol))
TabTemp = plage.Value
plage.Select
On Error Resume Next
For Each rcell In Sheets("BSD").Range("b5:b" & dernlign)
With rcell.Rows.Select
End With
Vurl = plage.Cells(rcell, 2).Hyperlinks(1).Address
recup2 Vurl, dernlign + 1
NBL = (Cells(Rows.Count, 2).End(xlUp).Row) - dernlign
For I = 1 To NBL 'ICI CA BUG !!
ActiveCell.EntireRow.rezize(rowsize:=NBL - 1).Insert Shift:=xlDown, copyOrigin:=xlFormatFromLeftOrAbove
Next I
MsgBox ("NBL" & "_" & NBL)
MsgBox ("adress" & "_" & Vurl)
MsgBox ("dernlign" & "_" & dernlign)
Next rcell |
