VBA renommer une chekbox
Edouard
-
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention -
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention -
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 iphone - Guide
- Comment renommer quelqu'un sur instagram - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Renommer un lien hypertexte ✓ - Forum Bugs et suggestions
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
