Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Cases Formulaire

Cases Formulaire

9 réponses
Avatar
Manu
Bonjour

Je dois creer environ 500 cases à cocher du formulaire, il faut donc que
chaque case soit lié à sa cellule d'en face. dois je les lié une à une ou il
y a t'il une astuce pour tout faire.

Merci

Manu
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FdeCourt
Salut,

Est-ce qu'un truc dans ce genre te conviendrait :

Sub CreationMulti()
Dim mySh As Object, c As Range
For Each c In Selection
Set mySh = ActiveSheet.CheckBoxes.Add(59.25, 24.75, 122.25,
17.25)
With mySh
.Name = "TickBox" & c.Address
.Top = c.Top
.Left = c.Left
.Value = xlOff
.LinkedCell = c.Address
End With
Next
End Sub

Cordialement,

F.
Avatar
Daniel.C
Bonjour.
Essaie :

Sub test()
Application.ScreenUpdating = False
For i = 1 To 500
With Cells(i, 1)
Set cb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1",
Link:úlse, _
DisplayAsIcon:úlse, Left:=.Left, Top:=.Top, Width:p,
Height:=.Height)
End With
Next i
End Sub

Les checkboxes sont créées en colonne A.
Cordialement.
Daniel


Bonjour

Je dois creer environ 500 cases à cocher du formulaire, il faut donc que
chaque case soit lié à sa cellule d'en face. dois je les lié une à une ou il
y a t'il une astuce pour tout faire.

Merci

Manu


Avatar
Manu
C'est genial, Merci quel gain de temps
Manu

"FdeCourt" a écrit dans le message de news:

Salut,

Est-ce qu'un truc dans ce genre te conviendrait :

Sub CreationMulti()
Dim mySh As Object, c As Range
For Each c In Selection
Set mySh = ActiveSheet.CheckBoxes.Add(59.25, 24.75, 122.25,
17.25)
With mySh
.Name = "TickBox" & c.Address
.Top = c.Top
.Left = c.Left
.Value = xlOff
.LinkedCell = c.Address
End With
Next
End Sub

Cordialement,

F.


Avatar
Manu
Merci, mais la procedure de Fdecourt me conviens mieux car se sont des
formulaires qu'il me fallait.

Merci à vous 2

Manu

"Daniel.C" a écrit dans le message de news:

Bonjour.
Essaie :

Sub test()
Application.ScreenUpdating = False
For i = 1 To 500
With Cells(i, 1)
Set cb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1",
Link:úlse, _
DisplayAsIcon:úlse, Left:=.Left, Top:=.Top, Width:p,
Height:=.Height)
End With
Next i
End Sub

Les checkboxes sont créées en colonne A.
Cordialement.
Daniel


Bonjour

Je dois creer environ 500 cases à cocher du formulaire, il faut donc que
chaque case soit lié à sa cellule d'en face. dois je les lié une à une ou
il y a t'il une astuce pour tout faire.

Merci

Manu






Avatar
Manu
Mais tout de meme, une petite question, les cases et les liaisons se font
parfaitement, mais je ne souhaiterais voir que les cases et non ce qui est
ecrit à l'interieur "case à cocher 1"....etc.....

est ce possible ?

Merci

"FdeCourt" a écrit dans le message de news:

Salut,

Est-ce qu'un truc dans ce genre te conviendrait :

Sub CreationMulti()
Dim mySh As Object, c As Range
For Each c In Selection
Set mySh = ActiveSheet.CheckBoxes.Add(59.25, 24.75, 122.25,
17.25)
With mySh
.Name = "TickBox" & c.Address
.Top = c.Top
.Left = c.Left
.Value = xlOff
.LinkedCell = c.Address
End With
Next
End Sub

Cordialement,

F.


Avatar
Manu
C'est bon, j'ai trouvé

.Text = ""


"Manu" a écrit dans le message de news:
OjWll%
Mais tout de meme, une petite question, les cases et les liaisons se font
parfaitement, mais je ne souhaiterais voir que les cases et non ce qui est
ecrit à l'interieur "case à cocher 1"....etc.....

est ce possible ?

Merci

"FdeCourt" a écrit dans le message de news:

Salut,

Est-ce qu'un truc dans ce genre te conviendrait :

Sub CreationMulti()
Dim mySh As Object, c As Range
For Each c In Selection
Set mySh = ActiveSheet.CheckBoxes.Add(59.25, 24.75, 122.25,
17.25)
With mySh
.Name = "TickBox" & c.Address
.Top = c.Top
.Left = c.Left
.Value = xlOff
.LinkedCell = c.Address
End With
Next
End Sub

Cordialement,

F.






Avatar
Manu
Par contre je ne trouve comment lui dire que la zone de la case à cocher
soit le moins large possible.

Merci

"Manu" a écrit dans le message de news:

C'est bon, j'ai trouvé

.Text = ""


"Manu" a écrit dans le message de news:
OjWll%
Mais tout de meme, une petite question, les cases et les liaisons se font
parfaitement, mais je ne souhaiterais voir que les cases et non ce qui
est ecrit à l'interieur "case à cocher 1"....etc.....

est ce possible ?

Merci

"FdeCourt" a écrit dans le message de news:

Salut,

Est-ce qu'un truc dans ce genre te conviendrait :

Sub CreationMulti()
Dim mySh As Object, c As Range
For Each c In Selection
Set mySh = ActiveSheet.CheckBoxes.Add(59.25, 24.75, 122.25,
17.25)
With mySh
.Name = "TickBox" & c.Address
.Top = c.Top
.Left = c.Left
.Value = xlOff
.LinkedCell = c.Address
End With
Next
End Sub

Cordialement,

F.










Avatar
FdeCourt
Salut,

Avec .Width = 24

Cordialement,

F.
Avatar
Manu
Merci bien

Manu

"FdeCourt" a écrit dans le message de news:

Salut,

Avec .Width = 24

Cordialement,

F.