Regueiro
XLDnaute Impliqué
Bonsoir à Tous
J'ai un petit problème.
J'aimerais sélectionner les cellules 2 à 4 de mon tableau.
Auriez vous une solution.
Pour ensuite l'adapter à une autre macro.
Meri d'avance
A+
J'ai un petit problème.
J'aimerais sélectionner les cellules 2 à 4 de mon tableau.
Auriez vous une solution.
Code:
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.
Code:
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+