Recopier données cases vides et cases à cocher Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
j
jdu63
Jeune membre
Jeune membre
Messages : 17
Inscrit le : 20 mars 2015
Version d'Excel : 2007

Message par jdu63 » 27 mars 2015, 11:24

Bonjour,

Encore une autre question.

Sachant que j'ai plus d'une centaine de checkBox que je dois intégrer dans le code VBA, existe-t-il un moyen d'abréger ce code au lieu de l'écrire ligne par ligne pour chaque numéro de checkBox ?

Private Sub Worksheet_Activate()
Feuil6.CheckBox100.Value = Feuil1.CheckBox100.Value
Feuil6.CheckBox101.Value = Feuil1.CheckBox101.Value
Feuil6.CheckBox102.Value = Feuil1.CheckBox102.Value
Feuil6.CheckBox106.Value = Feuil1.CheckBox106.Value
Feuil6.CheckBox107.Value = Feuil1.CheckBox107.Value
Feuil6.CheckBox109.Value = Feuil1.CheckBox109.Value
Feuil6.CheckBox113.Value = Feuil1.CheckBox113.Value
Feuil6.CheckBox114.Value = Feuil1.CheckBox114.Value
Feuil6.CheckBox115.Value = Feuil1.CheckBox115.Value
Feuil6.CheckBox250.Value = Feuil1.CheckBox250.Value
Feuil6.CheckBox251.Value = Feuil1.CheckBox251.Value
Feuil6.CheckBox252.Value = Feuil1.CheckBox252.Value
Feuil6.CheckBox253.Value = Feuil1.CheckBox253.Value
Feuil6.CheckBox254.Value = Feuil1.CheckBox254.Value
Feuil6.CheckBox255.Value = Feuil1.CheckBox255.Value
Feuil6.CheckBox256.Value = Feuil1.CheckBox256.Value
Feuil6.CheckBox257.Value = Feuil1.CheckBox257.Value
Feuil6.CheckBox258.Value = Feuil1.CheckBox258.Value
Feuil6.CheckBox259.Value = Feuil1.CheckBox259.Value
Feuil6.CheckBox260.Value = Feuil1.CheckBox260.Value
Feuil6.CheckBox261.Value = Feuil1.CheckBox261.Value
Feuil6.CheckBox262.Value = Feuil1.CheckBox262.Value
Feuil6.CheckBox263.Value = Feuil1.CheckBox263.Value
Feuil6.CheckBox264.Value = Feuil1.CheckBox264.Value
Feuil6.CheckBox265.Value = Feuil1.CheckBox265.Value
Feuil6.CheckBox266.Value = Feuil1.CheckBox266.Value
Feuil6.CheckBox267.Value = Feuil1.CheckBox267.Value
Feuil6.CheckBox268.Value = Feuil1.CheckBox268.Value
Feuil6.CheckBox269.Value = Feuil1.CheckBox269.Value
Feuil6.CheckBox270.Value = Feuil1.CheckBox270.Value
Feuil6.CheckBox271.Value = Feuil1.CheckBox271.Value
Feuil6.CheckBox272.Value = Feuil1.CheckBox272.Value
Feuil6.CheckBox273.Value = Feuil1.CheckBox273.Value
Feuil6.CheckBox274.Value = Feuil1.CheckBox274.Value
Feuil6.CheckBox275.Value = Feuil1.CheckBox275.Value
etc.

Par ailleurs, sur ma feuil1, il y a ceci qui s'affiche, et ma question est la suivante : faut-il que cela apparaisse pour mes plus de 100 CheckBox ? :

Option Explicit

Private Sub CheckBox1_Click()

End Sub

Private Sub CheckBox100_Click()

End Sub

Private Sub CheckBox103_Click()

End Sub

Private Sub CheckBox106_Click()

End Sub

Merci par avance.
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 421
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 27 mars 2015, 12:35

Bonjour,

Pour répondre à tes deux questions :

1. Dans ton module de la Feuille 1 ... tu n'as besoin d'aucun code ... :wink:

2. Dans ton module de la Feuille 6 ... pour tes plus de 100 checkboxes ...
Private Sub Worksheet_Activate()
Dim sh As Shape
  For Each sh In Feuil6.Shapes
      If InStr(1, sh.Name, "CheckBox") Then
        Feuil6.Shapes(sh.Name).OLEFormat.Object.Object.Value = _
        Feuil1.Shapes(sh.Name).OLEFormat.Object.Object.Value
      End If
  Next sh
End Sub
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
j
jdu63
Jeune membre
Jeune membre
Messages : 17
Inscrit le : 20 mars 2015
Version d'Excel : 2007

Message par jdu63 » 27 mars 2015, 13:16

Super, ça fonctionne très bien.

Encore merci à vous de vous investir pour nous tous. On peut compter sur vous.
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 421
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 27 mars 2015, 14:04

Re,

Ravi que cela fonctionne ... :wink:

Merci beaucoup pour tes gentils remerciements ...
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message