Copier un contrôle

[Jiheme]

Bonsoir à tous

Trop longtemps que je n'était pas venu, surcharge de boulot.

Voici mon problème : je voudrias inserrer une case à cocher sur cent feuilles d'un classeur, je n'y arrive pas en sélectionnant toutes mes feuilles, pas moins en faisant copier / coller...

Merci d'avance
Jiheme

 

[Staple1600]

Re : Copier un contrôle

Bonsoir Jiheme, le forum

Voila ce fut laborieux ( quand on ne voit l'évidence!!! 😱 )

Cette fois-ci ca fonctionne !
EDIT:

Sub AddCheckBoxesOK()
On Error Resume Next
Application.ScreenUpdating = False
Dim c As Range, myRange As Range, i As Integer
For i = 1 To Worksheets.Count
Set myRange = Worksheets(i).Range("B1:B10")
For Each c In myRange.Cells
Worksheets(i).Activate
ActiveSheet.CheckBoxes.Add(c.Left, c.Top, c.Width, c.Height).Select
With Selection
.LinkedCell = c.Address
.Characters.Text = ""
.Name = c.Address
End With
Next c
Next i
End Sub

Le code ci-dessous crée bien des checkbox dans toutes les feuilles

Il reste une erreur à corriger (je ne trouve pas ou)

J'ai du faire une erreur de syntaxe

Qui a la solution au (petit) problème?

Sub AddCheckBoxes()
'SOURCE:[URL="http://blog.livedoor.jp/andrewe/archives/17357484.html"]Andrew's Excel Tips:Checkboxes[/URL]
    On Error Resume Next
    Dim c As Range, myRange As Range, i As Long
    Application.ScreenUpdating = False
   For i = 1 To Worksheets.Count
 
   Set myRange = Worksheets(i).Range("B2:B10")
   With Worksheets(i)
    For Each c In myRange.Cells
        .CheckBoxes.Add(c.Left, c.Top, c.Width, c.Height).Select
            With Selection
                .LinkedCell = c.Address
                .Characters.Text = vbNullString
                .Name = c.Address
            End With
 
        Next
        myRange.Select
     End With
Next i
End Sub

 

[Jiheme]

Re : Copier un contrôle

Bonjour Staple1600, bonjour le forum

Merci j'essaie ta macro et avec le temps que je vais gagner, je vais pouvoir partir en WE

A+ Jiheme

 

[Pierrot93]

Re : Copier un contrôle

Bonjour Jiheme, Stapple

une autre solution sans "select" :

Sub test()
Dim c As Range, i As Integer, x As Object
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
    For Each c In Worksheets(i).Range("B1:B10")
        Set x = Worksheets(i).CheckBoxes.Add(c.Left, c.Top, c.Width, c.Height)
        With x
            .LinkedCell = c.Address
            .Caption = ""
        End With
    Next c
Next i
Application.ScreenUpdating = True
End Sub

bonne journée
@+

 

[Staple1600]

Re : Copier un contrôle

Bonjour Pierrot93, le forum

Dire qu'il suffisait d'un X....😱

Je me suis arraché le peu de cheveux qui me reste

pour faire fonctionner le dernier code que j'ai posté ...

 

[Pierrot93]

Re : Copier un contrôle

Salut Stapple

et oui, un rien 🙂 ... mais le plus important c'est la déclaration du "x" en type de donnée "Objet"

x As Object

mais je te rassure j'ai également perdu quelques cheveux avec les "shapes" et autre "oleobject"... bon après midi@+

 

[Jiheme]

Re : Copier un contrôle

Bonsoir Pierrot, Staple

Merci encore, je prends deux aspirine (tant pis pour la pub) et j'essaie de tout comprendre.

A bientôt

Jiheme