Excel 2007 copier une fonction

BrunoExel2007 Messages postés 3 Statut Membre -  
BrunoExel2007 Messages postés 3 Statut Membre -
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 Messages postés 213 Statut Membre 32
     
    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
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  3. BrunoExel2007 Messages postés 3 Statut Membre
     
    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
  4. BrunoExel2007 Messages postés 3 Statut Membre
     
    Un grand merci à toi Rachid_04 d'avoir pris le temps de me répondre je te souhaite une bonne soirée .
    0