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 |
Partager