Excel 2007 copier une fonction
BrunoExel2007
Messages postés
3
Statut
Membre
-
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
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
A voir également:
- Excel 2007 copier une fonction
- Fonction si et excel - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Comment copier une vidéo youtube - Guide
4 réponses
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 ..
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 ..
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
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
