VBA renommer une chekbox
Bonjour,
Je souhaite que cette macro renomme également mes chekbox "Pb dépôt", mais je tourne en rond depuis plusieurs heures...
Sub GenerateComboBox()
Dim Chekbox As OLEObject
Dim i As Integer
Dim Target As Range
For i = 3 To 4
Set Target = ActiveSheet.Range("X" & i)
Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
With Chekbox
.LinkedCell = Target.Offset(0, 1).Address(0, 0)
.Object.Value = False
End With
Next
End Sub
Je souhaite que cette macro renomme également mes chekbox "Pb dépôt", mais je tourne en rond depuis plusieurs heures...
Sub GenerateComboBox()
Dim Chekbox As OLEObject
Dim i As Integer
Dim Target As Range
For i = 3 To 4
Set Target = ActiveSheet.Range("X" & i)
Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
With Chekbox
.LinkedCell = Target.Offset(0, 1).Address(0, 0)
.Object.Value = False
End With
Next
End Sub
1 réponse
-
Bonjour,
as-tu essayé :
[/contents/446-fichier-sub Sub] GenerateComboBox() Dim Chekbox As OLEObject Dim i As Integer Dim Target As Range For i = 3 To 4 Set Target = ActiveSheet.Range("X" & i) Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height) With Chekbox .LinkedCell = Target.Offset(0, 1).Address(0, 0) .Object.Value = False .name = "Tartempion" 'le nomde lachackbox est tartempion .label = "checkboc N°" & i 'le nom qui apparaîtra End With Next End Sub
