Set Data From Each (preselected) Rows in String and Paste [Loop]

[sartou]

Hello all,

I'm a beginner with VBA and I did all my code with some example on forum.

I have some "Data Table" and I would like to fill an Intranet Web Form faster than I used to.
I did an Excel Form which is used to log on the intranet and Navigate to the correct Web Form.
But after that I would like to fill the Form with my table's datas.
I've select the Range with

Sub GetRange()
    Dim ACell As String
    Dim BCell As String
'(etc)
    Dim rng1 As Range
    Dim rng2 As Range
    Dim rng3 As Range
    Set rng1 = Cells.Find("*", [a1], xlFormulas, , xlByRows, xlPrevious)
    Set rng2 = Cells.Find("*", [a1], xlFormulas, , xlByColumns, xlPrevious)
    If Not rng1 Is Nothing Then
        Set rng3 = Range([a16], Cells(rng1.Row, rng2.Column))
        Application.Goto rng3
    End If
End Sub

Now, what I need and what I'm struggling with :
In this select Range, I would like to put :

ACell = value of cell in column A in the first row, BCell = value of cell in column B, etc
And then past it in my webform with: idoc.all.P2300.Value = ACell, idoc.all.P2400.Value = BCell
And then restart with the next row until the last selected row.

(Hope my English is fine, it's not my mothertongue)

Thanks in advance for your help.

 

[sartou]

I don't know if it can help but I've already name each column with this :
(First I've erased all the possible already here name)

    Dim NoName As Name                                                                                             
    For Each NoName In ActiveWorkbook.Sheets("Liste candidats").Names
        NoName.delete
    Next NoName

And after that, I did the following code for each column in my vba code

    Range("B15").Select
    Range("B15:B25").Select
    Range("B25").Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Names.Add Name:=Range("B15").Value, RefersToR1C1:= _
        "='Liste candidats'!R15C2:R25C2"

 

[sartou]

to explain a little better what I can't do:

Maybe I can do something like this :

For Each row in Myrange.row
   For Each cell in row.cell
          If Columm.cell=FirstName Then
                    FNameCell =  Cell.Value
                    idoc.all.P2300.Value = FNameCell
          End IF
   Next Cell
   
   For Each cell in row.cell
          If Columm.cell=LastName Then
                    LNameCell =  Cell.Value
                    idoc.all.P2300.Value = LNameCell
          End IF
   Next Cell
   
   

Next row

But I don't know how to code this...

 

[sartou]

Find a solution by create a real table... in fact that was pretty simple