Excel 2007 copier une fonction

BrunoExel2007 -  
Bonjour au forum,

Voila j'ai trouvé une fonction à une cellule (cocher , pas cocher ).
Mon soucis je n'ai aucune idée de comment fait on pour copier celle-ci autant de fois
que j'en ai besoin ?

Je vous remercie beaucoup d'avance pour le temps pris pour y répondre

Je joins mon exemple ci dessous et encore merci .

https://www.cjoint.com/?3BAnrtrJQOG

4 réponses

  1. rachid_04
    SALUT
    vous pouvez d abord passer en mode creation pour la case à caucher , puis commencer à copier coller cette case , et reparer le Code VB pour chacune , ça demande beaucoup du temps
    j essay de praparer un Code qui regroupe toutes les case ..
    0
    1. Mike-31
      Salut,

      Clic sur l'onglet Développeur/puis sur mode Création
      clic droit sur la première CheckBox
      et clmic droit coller sur chaque emplacement souhaité.
      La CheckBox porte de nom CheckBox1, la suivante sera CheckBox2 etc ...
      double clic sur une CheckBox ce qui va t'ouvrir le Visual ou est écrit ce code qui est trop long

      Option Explicit
      Private Sub CheckBox1_Click()
      If CheckBox1.Value = True Then
      Range("C4").Activate
      With Selection.Interior
      .ColorIndex = 35
      .Pattern = xlSolid
      End With
      End If
      If CheckBox1.Value = False Then
      Range("C4").Activate
      Selection.Interior.ColorIndex = xlNone
      End If
      End Sub

      REMPLACE LE PART
      Option Explicit
      Private Sub CheckBox1_Click()
      If CheckBox1.Value = True Then Range("C4").Interior.ColorIndex = 35
      If CheckBox1.Value = False Then Range("C4").Interior.ColorIndex = 23 ' xlNone
      End Sub

      ensuite suffit d'ajouter un code par CheckBox, ci dessous pour la deuxième et troisième

      Private Sub CheckBox2_Click()
      If CheckBox2.Value = True Then Range("C5").Interior.ColorIndex = 35
      If CheckBox2.Value = False Then Range("C5").Interior.ColorIndex = 23 ' xlNone
      End Sub

      Private Sub CheckBox3_Click()
      If CheckBox3.Value = True Then Range("C6").Interior.ColorIndex = 35
      If CheckBox3.Value = False Then Range("C6").Interior.ColorIndex = 23 ' xlNone
      End Sub
      0
      1. BrunoExel2007 Auteur
        Je vais essayer ça ,en tout cas un grand merci à toi Mike-31 d'avoir pris le temps de me répondre je te souhaite une bonne soirée .
        0
        1. BrunoExel2007 Auteur
          Un grand merci à toi Rachid_04 d'avoir pris le temps de me répondre je te souhaite une bonne soirée .
          0