bonjour a tous,
je cherche actuellement a réaliser une macro pour crée des toupies en "masses" sur toutes une colonne avec Une ou 2 petites subtilité
j'ai recupéré un bout de macro puis modifié :
Pour l'instant la création se passe bien mais je n'arrive pas à édité la cellule liée. et je voudrais que la toupie qui est en E8 par exemple modifie la valeurs en D8 et on continue avec E9 modifie D9
pouvez vous m'aider ?
je cherche actuellement a réaliser une macro pour crée des toupies en "masses" sur toutes une colonne avec Une ou 2 petites subtilité
j'ai recupéré un bout de macro puis modifié :
Code:
Sub generer_cases_a_cocher()
Dim spinbutton As OLEObject
Dim lig As Integer, col As Byte, lig_fin As Integer
Dim Target As Range
'settings
lig = 6 'ligne de départ
lig_fin = 8 'ligne fin
col = 6 'colonne d'implantation
Do Until lig = lig_fin + 1
Set Target = ActiveSheet.Cells(lig, col)
Set spinbutton = ActiveSheet.OLEObjects. _
Add(ClassType:="Forms.spinbutton.1", _
Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
Range("E8").Value = SpinButton1.Value
lig = lig + 1
Loop
End Sub
Pour l'instant la création se passe bien mais je n'arrive pas à édité la cellule liée. et je voudrais que la toupie qui est en E8 par exemple modifie la valeurs en D8 et on continue avec E9 modifie D9
pouvez vous m'aider ?