ajout case a cocher dans nouvelle ligne

[alexb77]

bonjour a tous,
je fais appel à vous car là je suis dans le flou.
je suis en train de créer un fichier d'ordonnancement.
sur feuille1, je valide des saisies pour les envoyer dans un tableau sur la feuille2, le soucis est que dans ce tableau, je souhaite inserer une ligne à chaque fois,jusque là pas de soucis mais je souhaite également inserer à chaque ligne nouvelle une case à cocher en début de ligne bien sure en automatique.
je suis sous excel 2003.pouvez vous m'aider.
merci d'avance.
amicalement alex

 

[Pierrot93]

Re : ajout case a cocher dans nouvelle ligne

Bonjour Alexb

regarde le code ci dessous, si cela peut t'aider à avancer :

insère un "checkbox" de la boite à outils controles sur la feuille active en A2.

Option Explicit
Sub test()
Dim c As OLEObject
Set c = ActiveSheet.OLEObjects.Add("Forms.CheckBox.1")
With c
    .Left = Range("A2").Left
    .Top = Range("A2").Top
    .Width = Range("A2").Width
    .Height = Range("A2").Height
End With
End Sub

bonne journée
@+

 

[alexb77]

Re : ajout case a cocher dans nouvelle ligne

merci pierrot pour ta réponse rapide,
par contre comment faire pour inserer cette checkbox automatiquement dans la ligne que je vais inserer.
en effet, une fois ma ligne inserer, il faut qu'une checkbox s' insere automatiquement dans la nouvelle ligne.
merci

 

[Pierrot93]

Re : ajout case a cocher dans nouvelle ligne

Re

je ne connais pas le code que tu utilises et qui te permet de déterminer le numéro de ligne, mais tu devrais pouvoir adapter comme ceci :

Dim c As OLEObject
Set c = ActiveSheet.OLEObjects.Add("Forms.CheckBox.1")
With c
    .Left = Range("A" & maligne).Left
    .Top = Range("A" & maligne).Top
    .Width = Range("A" & maligne).Width
    .Height = Range("A" & maligne).Height
End With

ou "maligne" est une variable initialisée par le numéro de ligne à utiliser...

@+

 

[alexb77]

merci pierrot

merci beaucoup,
ton aide m'a été précieuse, je me suis servit d'une partie de ta macro et cela marche nickel.
merci.

code:
Sub créercase()

Dim cellule As range

ActiveSheet.Select
range("C3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -1).Select
With ActiveCell
ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height).Select
End With
With Selection
.LinkedCell = ActiveCell.Offset(0, -1).Address
.Characters.Text = ""
End With

End Sub