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. 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
    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. 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. 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