copier ligne avec checkbox

Cousinhub

XLDnaute Barbatruc

• 11 Octobre 2008

• #2

Re : copier ligne avec checkbox

Bonsoir,

avec un module de classe...

Dans l'évènement Open, du classeur :

Code:

Option Explicit
Dim Boutons() As New Classe1
Private Sub Workbook_Open()
Dim NbBoutons As Integer
Dim Objet As OLEObject
NbBoutons = 0
For Each Objet In ActiveSheet.OLEObjects
    If TypeOf Objet.Object Is MSForms.CheckBox Then
        NbBoutons = NbBoutons + 1
        ReDim Preserve Boutons(1 To NbBoutons)
        Set Boutons(NbBoutons).ButtonGroup = Objet.Object
    End If
Next Objet
End Sub

dans un module de classe :

Code:

Public WithEvents ButtonGroup As MSForms.CheckBox

Private Sub ButtonGroup_Click()
Dim Valeur As Byte
Valeur = ButtonGroup.TopLeftCell.Row
Cells(Valeur, 2).Resize(1, 5).Interior.ColorIndex = _
        IIf(ButtonGroup.Value = True, 15, xlNone)
End Sub

un exemple, avec le fichier joint :

 

Pièces jointes

• fifounet_v1.xls

  46.5 KB · Affichages: 174

Vote positif 0 Vote négatif

fifounet

XLDnaute Occasionnel

• 11 Octobre 2008

• #3

Re : copier ligne avec checkbox

Merci bhbh
J'ai essayé ta macro mai j'arrive a rien !
Mon but était de copier une ou plusieurs lignes et de les coller a la suite
peut etre que je ne fais pas de la bonne façon.
si tu peux m'éclairer un peu +
merci encore

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Octobre 2008

• #4

Re : copier ligne avec checkbox

Re-,

le pb c'est que je ne peux pas ajouter de lignes facilement car les checkbox ne sont pas associées à une cellule,
est-ce toutefois possible?

Cliquez pour agrandir...

Comme montré dans mon fichier, les checkboxs peuvent être associés à une ligne

Donc, si tu pouvais préciser ta demande.....

 

Vote positif 0 Vote négatif

fifounet

XLDnaute Occasionnel

• 11 Octobre 2008

• #5

Re : copier ligne avec checkbox

Re bhbh
Et ben je veux sélectionner la ligne 8 complète (avec la checkbox)
et la copier en ligne 9 tout simplement, avec ainsi une nouvelle checkbox en A9
et j'ai juste le texte associé en B9 à changer l etc..
le but est de ne pas redessiner une checkbox.
j'espère être clair ?

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Octobre 2008

• #6

Re : copier ligne avec checkbox

Re-,

Ok, pour recopier toute ta ligne "AVEC" le checkbox, il faut que tu passes par le mode "Création"

pour ce faire, tu cliques sur "l'équerre", dans la Barre d'outils "Contrôles" (le bouton le plus à gauche)

Tu sélectionnes ta ligne

Tu copies

Sur la ligne suivante, tu colles

Et ensuite, pour le traitement,de tous tes "CheckBox", je pense que le plus simple, est ma méthode, qui ne fonctionnera qu'après "Enregistrement", "Fermeture", puis "Ouverture" du classeur....

A plus, pour de plus amples informations....

 

Vote positif 0 Vote négatif

fifounet

XLDnaute Occasionnel

• 11 Octobre 2008

• #7

Re : copier ligne avec checkbox

ok ça marche !!
Tu devines ma demande maintenant?
Comment modifier la macro pour que l'effet soit immédiat
c'est a dire sans enregistrer et réouvrir le classeur?
a+

 

Vote positif 0 Vote négatif

fifounet

XLDnaute Occasionnel

• 13 Octobre 2008

• #8

Re : copier ligne avec checkbox

Bonsoir le forum
un up pour peut être une réponse ?
merci

 

Vote positif 0 Vote négatif