VBA renommer une chekbox
Edouard
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
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
A voir également:
- VBA renommer une chekbox
- Renommer des fichiers en masse - Guide
- Renommer son iphone - Guide
- Comment renommer quelqu'un sur instagram - Guide
- Renommer un lien hypertexte ✓ - Forum Bugs et suggestions
- Incompatibilité de type vba ✓ - Forum Programmation
1 réponse
Bonjour,
as-tu essayé :
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
