Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Une méthode :
Private Sub UserForm_Initialize() For Each x In UserForm1.Controls If TypeOf x Is MSForms.TextBox Then If Right(x.Name, 2) = "10" Then Exit Sub x.Text = [Objectif!A1] End If Next End Sub
AV
Une méthode :
Private Sub UserForm_Initialize()
For Each x In UserForm1.Controls
If TypeOf x Is MSForms.TextBox Then
If Right(x.Name, 2) = "10" Then Exit Sub
x.Text = [Objectif!A1]
End If
Next
End Sub
Private Sub UserForm_Initialize() For Each x In UserForm1.Controls If TypeOf x Is MSForms.TextBox Then If Right(x.Name, 2) = "10" Then Exit Sub x.Text = [Objectif!A1] End If Next End Sub
AV
Michel Gaboly
Bonsoir Serge,
En supposant que tu veuilles récupérer les valeurs des cellules A1 à A10.
Dans le UserForm_Initialize du UserForm :
Sub UserForm_Initialize() Dim i As Integer, Ref As Range Set Ref = Sheets("Objectif").Range("A1") For i = 1 To 5 Controls("TextBox" & i) = Ref.Offset(i - 1) Next End Sub
Bonsoir Serge,
En supposant que tu veuilles récupérer les valeurs des cellules
A1 à A10.
Dans le UserForm_Initialize du UserForm :
Sub UserForm_Initialize()
Dim i As Integer, Ref As Range
Set Ref = Sheets("Objectif").Range("A1")
For i = 1 To 5
Controls("TextBox" & i) = Ref.Offset(i - 1)
Next
End Sub
En supposant que tu veuilles récupérer les valeurs des cellules A1 à A10.
Dans le UserForm_Initialize du UserForm :
Sub UserForm_Initialize() Dim i As Integer, Ref As Range Set Ref = Sheets("Objectif").Range("A1") For i = 1 To 5 Controls("TextBox" & i) = Ref.Offset(i - 1) Next End Sub
