macro positionnant checkboxe

[dmc]

bonsoir champions de la macro.
Sans succès pour ma question posée hier, je tente une simplification :
comment positionner physiquement une checkboxe dans un cellule donnée, via une macro. Bien sur, je ne connais pas à l'avance ni le nombre de checkboxes à placer, ni leur position, mais je compte me débrouiller pour ça.
D'avance merci, je suis en panne totale.
HELP HELP HELP

 

[jeanpierre]

Re : macro positionnant checkboxe

Help, help, help,

sos, sos, sos,

rester sur le même fil n'eût été pas mal....

Se noyer, oui, mais en silence, tout ce bruit me fait mal aux oreilles...

 

[dmc]

Re : macro positionnant checkboxe

gloup gloup gloup
sans doute aurais-j du rester sur le même fil ... mai comment faire ?
je n'ai pas ecore tout compris sur la navigation dans ce forum, je vais relire ls expilacations du webmaster !!!
cela dit, j'ai quand même pu avoir un écho à ma question, et je t'en remercie.
Avec l'activité que tu déploies sur ce forum, je doute pa que tu puisses me sortir de là.
A te lire donc, dans le délai qui te conviendra, et je répondrai aux qestions complémentaires qu tu ourras me poser.
Merci encore.🙂

 

[jeanpierre]

Re : macro positionnant checkboxe

Re,

Oui, un écho, sans doute, mais il faut convenir, toutefois, que les bénévoles intervenants sur telle ou telle question spécifique ne sont pas toujours présents...
Et qu'il faut donc un peu de patiente, quitte à remonter le fil si un long temps s'est passé.

Mais, rassures toi, cela va le faire...

On attend les VBAïstes... sont déjà sur les startingblocs....

 

[bqtr]

Re : macro positionnant checkboxe

Bonsoir dmc, jeanpierre

Voici un exemple :

Sélectionne la cellule où doit se mettre le premier CheckBox.
Lance la macro et entre le nombre de CheckBox souhaité et OK.
Les contrôles se placent dans les cellules (à la dimension de celles-ci).
Les cellules liées se trouvent sur la colonne suivante (même ligne).

Le seul problème, c'est que les contrôles ne se redimensionnent pas avec les cellules. Je n'ai pas trouvé comment faire.
L'instruction : .Placement = xlMoveAndSize semble inefficace pour les Checkbok.

Sub CHCKB_Add()

Dim k As String, Ctrl As Shape
k = Application.InputBox("Saisir un nombre", "Nombre de Controle", , , , , , 1)
If k = 0 Or k = "" Then Exit Sub

For i = ActiveCell.Row To ActiveCell.Row + k - 1
    With Cells(i, ActiveCell.Column)
        Set Ctrl = ActiveSheet.Shapes.AddFormControl(xlCheckBox, .Left, .Top, .Width, .Height)
    End With
        With Ctrl
          .TextFrame.Characters.Text = "ChckB " & i
          .ControlFormat.LinkedCell = Cells(i, ActiveCell.Column + 1).Address
          .ControlFormat.Value = 0
          '.Placement = xlMoveAndSize ???
        End With
Next i
End Sub

A+

 

[dmc]

Re : macro positionnant checkboxe

merci 1000 fois jean-pierre
vu l'heure tardive (bien que normale pour ce type de hobby), je vais me montrer raisonnable : je teste demain.
mais à la lecture, il me seble qu'il a bien les ingrédients qui me manquaient.

Merci encore, car je devine que tu y as consacré du temps ...et des neurones.

A demain.