checkbox automatique

[toubib]

Bonjour à tous,

je génère, grâce à une macro, une liste automatique et variable de données. chaque ligne correpond à l'ensemble des informations d'un produit.
ce que j'aimerais c'est que des checkbox soient créées automatiquement en face de chaque ligne puis en cas de cochage, que cela copie la ligne relative à la checkbox vers un autre emplacement?
Pensez vous que ce soit possible?

 

[PascalXLD]

Bonjour

Pour tes cases à cocher tu peux peut-être déjà jouer sur la propriété de ta listbox.

Si tu mets dans ListStyle fmListStyleOption tu auras les case à cocher dans ta listbox direct

 

[toubib]

en fait je n'ai pas de listbox du tout, c'est des checkbox qui devront être créées automatiquement dans la feuille. par ailleurs, il ne faut pas qu'il y ait de listbox justement car ca nuirait à la facilité d'utilisation pour le coup :s

pensez vous que ce soit possible?

 

[PascalXLD]

Re

Bon je suis bo pour le ZOP là j'avais lu listbox alors que tu parlais de liste automatique :whistle: :unsure:

 

[soft]

Bonjour Toubib, Pascal, le forum,

Selon moi c'est possible de créer les checkBox par macro sur chaque ligne et de leur affecter une autre macro.

Le problème va résider dans cette 2e macro qui ne peut pas avoir d'argument lors de sa définition.

Donc il faudrait que cette macro qui recopie puisse savoir quelle ligne recopier soit par la cellule active (avant le click sur le checkbox), soit par une demande à l'utilisateur (Inpubox), soit encore en recopiant toutes les lignes cochées.

Si tu as un fichier, je te fais un petit exemple sur l'une ou l'autre de ces possibilités.

@+

Message édité par: soft, à: 03/11/2005 12:12

 

[toubib]

voici un ptit fichier test pour illustrer ce que je veux dire avec un essai de code pour le formaliser [file name=test_20051103143104.zip size=14727]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20051103143104.zip[/file]

 

[soft]

Rebonjour le fil,

Toubib, tu peux essayer avec ces 2 macros :

Création des checkBox

Sub AjoutChkBox()
    Dim I As Long
    Dim T As Long, L As Integer, W As Integer, H As Integer
    T = ActiveSheet.Rows('1:1').Height - 1
    L = 20
    W = 10
    H = 10
    
    For I = 2 To Range('B2').End(xlDown).Row
        ActiveSheet.CheckBoxes.Add(L, T, W, H).Select

        With Selection
            .Characters.Text = ''
            .OnAction = 'Recopie'
            .Value = xlOff
            .LinkedCell = '$A$' & I
            .Display3DShading = True
        End With

   Range('A' & I).Font.ColorIndex = 2
   T = T + ActiveSheet.Rows(I & ':' & I).Height
    
    Next I
End Sub

Procédure de recopie (j'ai mais Feuil2 comme destination

Sub recopie()
    Dim I As Long, Y As Long
    Application.DisplayAlerts = False
    For I = 2 To Range('B2').End(xlDown).Row
        If Range('A' & I) = True Then
            Y= Y + 1
            Range('B' & I & ':I' & I).Copy Sheets('Feuil2').Range('A' & Y & ':D' & Y)
        End If
    Next I
    Application.DisplayAlerts= True
End Sub

Edition :
J'ai enlever les commentaires, ça donne des caractères bizzares ..

Message édité par: soft, à: 03/11/2005 15:34

Message édité par: soft, à: 03/11/2005 15:36

 

[toubib]

Salut soft, le forum,

merci bcp pour ton aide c'est parfait, tout à fait ce que je recherchais, c'est formidable

bonne journée et bon we

 

[toubib]

j'ai encore un ptit soucis, c'est que tout marche nickel sauf que les checkbox se décale mm par mm au fur et à mesure de leur création c'est à dire qu'en arrrivant à la ligne 40 par exemple, qui est ma dernière ligne, le décalement fait que la checkbox de la ligne 39 se retrouve sur la ligne 40 et donc que celle de la ligne 40 arrive sur la ligne 41.
j'ai essayé pleins de choses mais je n'arrive pas à régulariser le problème :s
comment peut on faire, avez vous des idées?

 

[soft]

Bonsoir Toubib, Pascal, le forum,

Essaye de changer dans la première macro AjoutChkBox() :

la 3e ligne :

T = ActiveSheet.Rows('1:1').Height - 1

par

T = ActiveSheet.Rows('2:2').Top - 1

et l'avant dernière :

T = T + ActiveSheet.Rows(I & ':' & I).Height

par

T = ActiveSheet.Rows(I + 1 & ':' & I + 1).Top - 1

 

[toubib]

salut soft, pascal, le forum,

j'ai oublié de poster mais finalement je suis arrivé à la même solution que toi et maintenant ca marche
merci bcp pour ta réponse!!!
bonne journée à tous