VBA Range("Tableau1[#Headers]").Cells(, i)

[Regueiro]

Bonsoir à Tous
J'ai un petit problème.
J'aimerais sélectionner les cellules 2 à 4 de mon tableau.
Auriez vous une solution.

Sub Macro2()
   For i = 2 To 4 Step 1
    'Range("Tableau1[#Headers]").Columns(2 & "," & i).Select
    Range("Tableau1[#Headers]").Cells(, i).Select
    Selection.Font.Italic = True
    Next i
End Sub

Pour ensuite l'adapter à une autre macro.

Sub CréerLabel()
'Alimentation des Labels du USF ( F_BDD)
Dim Ctrl As Control
Dim USF As UserForm
Dim i As Integer
Dim nbcol
Set Plage = Range("Tableau1[#Headers]")

nbcol = Range("Tableau1").Columns.Count
Set USF = F_BDD.MultiPage1.Pages(1).Frame2
    For Each Ctrl In USF.Controls
    If TypeOf Ctrl Is MSForms.Label Then
          For i = 1 To USF.Controls.Count
            Ctrl.Caption = Plage.Columns(i + 1).Value
    '.Caption = Plage.Columns(i).Value
            Next i
    End If
    
    'MsgBox Ctrl.Name & " " & TypeName(Ctrl)
    Next


End Sub

Meri d'avance
A+

 

[Paf]

Re : VBA Range("Tableau1[#Headers]").Cells(, i)

Encore un problème de décalage. J'avais vu le décalage de deux lignes mais pas celui des colonnes (bien que c'était l'objet du post)

les indices de lignes et de colonnes commencent à 0. votre boucle For X = commence à 1 ....