Private Sub CheckBox1_Click() ActiveSheet.Shapes("Chart 1").Visible = CheckBox1 End Sub
Private Sub CheckBox2_Click() ActiveSheet.Shapes("Chart 2").Visible = CheckBox2 End Sub
http://cjoint.com/?dohymORGtN
JB
On 13 mar, 20:38, Francois L wrote:
Bonsoir,
Ca ?http://cjoint.com/?dnuO4OYU61
Si oui, et que tu as besoin d'explications reviens le dire ici
-- François L
Bonjour,
J'aurai voulu savoir si c'etait possible de faire afficher des graphique s lorsque que l'on coche un bouton (macro case a cocher),
C'est à dire: lorsque je coche la premiere case ,je fais apparaitre le premier graphique
lorsque je coche la deuxieme case, je fais apparaitre le deuxieme graphi que
etc.
Merci d'avance
Céline- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
JB
Avec liste déroulante:
Sub auto_open() For Each s In ActiveSheet.Shapes If s.Type = 3 Then Sheets("feuil1").ComboBox1.AddItem s.Name End If Next End Sub
Private Sub ComboBox1_Change() For i = 0 To Me.ComboBox1.ListCount - 1 Shapes(Me.ComboBox1.List(i)).Visible = False Next i Shapes(Me.ComboBox1).Visible = True End Sub
http://cjoint.com/?doiFPRJw5q
JB
On 14 mar, 07:24, JB wrote:
Bonjour,
Private Sub CheckBox1_Click() ActiveSheet.Shapes("Chart 1").Visible = CheckBox1 End Sub
Private Sub CheckBox2_Click() ActiveSheet.Shapes("Chart 2").Visible = CheckBox2 End Sub
http://cjoint.com/?dohymORGtN
JB
On 13 mar, 20:38, Francois L wrote:
Bonsoir,
Ca ?http://cjoint.com/?dnuO4OYU61
Si oui, et que tu as besoin d'explications reviens le dire ici
-- François L
Bonjour,
J'aurai voulu savoir si c'etait possible de faire afficher des graphiq ues lorsque que l'on coche un bouton (macro case a cocher),
C'est à dire: lorsque je coche la premiere case ,je fais apparaitre le premier graphique
lorsque je coche la deuxieme case, je fais apparaitre le deuxieme grap hique
etc.
Merci d'avance
Céline- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Avec liste déroulante:
Sub auto_open()
For Each s In ActiveSheet.Shapes
If s.Type = 3 Then
Sheets("feuil1").ComboBox1.AddItem s.Name
End If
Next
End Sub
Private Sub ComboBox1_Change()
For i = 0 To Me.ComboBox1.ListCount - 1
Shapes(Me.ComboBox1.List(i)).Visible = False
Next i
Shapes(Me.ComboBox1).Visible = True
End Sub
http://cjoint.com/?doiFPRJw5q
JB
On 14 mar, 07:24, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Private Sub CheckBox1_Click()
ActiveSheet.Shapes("Chart 1").Visible = CheckBox1
End Sub
Private Sub CheckBox2_Click()
ActiveSheet.Shapes("Chart 2").Visible = CheckBox2
End Sub
http://cjoint.com/?dohymORGtN
JB
On 13 mar, 20:38, Francois L <gardiendeph...@etbalises.fr.invalid>
wrote:
Bonsoir,
Ca ?http://cjoint.com/?dnuO4OYU61
Si oui, et que tu as besoin d'explications reviens le dire ici
--
François L
Bonjour,
J'aurai voulu savoir si c'etait possible de faire afficher des graphiq ues
lorsque que l'on coche un bouton (macro case a cocher),
C'est à dire: lorsque je coche la premiere case ,je fais apparaitre le
premier graphique
lorsque je coche la deuxieme case, je fais apparaitre le deuxieme grap hique
etc.
Merci d'avance
Céline- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
Sub auto_open() For Each s In ActiveSheet.Shapes If s.Type = 3 Then Sheets("feuil1").ComboBox1.AddItem s.Name End If Next End Sub
Private Sub ComboBox1_Change() For i = 0 To Me.ComboBox1.ListCount - 1 Shapes(Me.ComboBox1.List(i)).Visible = False Next i Shapes(Me.ComboBox1).Visible = True End Sub
http://cjoint.com/?doiFPRJw5q
JB
On 14 mar, 07:24, JB wrote:
Bonjour,
Private Sub CheckBox1_Click() ActiveSheet.Shapes("Chart 1").Visible = CheckBox1 End Sub
Private Sub CheckBox2_Click() ActiveSheet.Shapes("Chart 2").Visible = CheckBox2 End Sub
http://cjoint.com/?dohymORGtN
JB
On 13 mar, 20:38, Francois L wrote:
Bonsoir,
Ca ?http://cjoint.com/?dnuO4OYU61
Si oui, et que tu as besoin d'explications reviens le dire ici
-- François L
Bonjour,
J'aurai voulu savoir si c'etait possible de faire afficher des graphiq ues lorsque que l'on coche un bouton (macro case a cocher),
C'est à dire: lorsque je coche la premiere case ,je fais apparaitre le premier graphique
lorsque je coche la deuxieme case, je fais apparaitre le deuxieme grap hique
etc.
Merci d'avance
Céline- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
celine
Merci a tous pour votre aide
Cela fonctionne
Céline
Avec liste déroulante:
Sub auto_open() For Each s In ActiveSheet.Shapes If s.Type = 3 Then Sheets("feuil1").ComboBox1.AddItem s.Name End If Next End Sub
Private Sub ComboBox1_Change() For i = 0 To Me.ComboBox1.ListCount - 1 Shapes(Me.ComboBox1.List(i)).Visible = False Next i Shapes(Me.ComboBox1).Visible = True End Sub
http://cjoint.com/?doiFPRJw5q
JB
On 14 mar, 07:24, JB wrote:
Bonjour,
Private Sub CheckBox1_Click() ActiveSheet.Shapes("Chart 1").Visible = CheckBox1 End Sub
Private Sub CheckBox2_Click() ActiveSheet.Shapes("Chart 2").Visible = CheckBox2 End Sub
http://cjoint.com/?dohymORGtN
JB
On 13 mar, 20:38, Francois L wrote:
Bonsoir,
Ca ?http://cjoint.com/?dnuO4OYU61
Si oui, et que tu as besoin d'explications reviens le dire ici
-- François L
Bonjour,
J'aurai voulu savoir si c'etait possible de faire afficher des graphiques lorsque que l'on coche un bouton (macro case a cocher),
C'est à dire: lorsque je coche la premiere case ,je fais apparaitre le premier graphique
lorsque je coche la deuxieme case, je fais apparaitre le deuxieme graphique
etc.
Merci d'avance
Céline- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci a tous pour votre aide
Cela fonctionne
Céline
Avec liste déroulante:
Sub auto_open()
For Each s In ActiveSheet.Shapes
If s.Type = 3 Then
Sheets("feuil1").ComboBox1.AddItem s.Name
End If
Next
End Sub
Private Sub ComboBox1_Change()
For i = 0 To Me.ComboBox1.ListCount - 1
Shapes(Me.ComboBox1.List(i)).Visible = False
Next i
Shapes(Me.ComboBox1).Visible = True
End Sub
http://cjoint.com/?doiFPRJw5q
JB
On 14 mar, 07:24, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Private Sub CheckBox1_Click()
ActiveSheet.Shapes("Chart 1").Visible = CheckBox1
End Sub
Private Sub CheckBox2_Click()
ActiveSheet.Shapes("Chart 2").Visible = CheckBox2
End Sub
http://cjoint.com/?dohymORGtN
JB
On 13 mar, 20:38, Francois L <gardiendeph...@etbalises.fr.invalid>
wrote:
Bonsoir,
Ca ?http://cjoint.com/?dnuO4OYU61
Si oui, et que tu as besoin d'explications reviens le dire ici
--
François L
Bonjour,
J'aurai voulu savoir si c'etait possible de faire afficher des graphiques
lorsque que l'on coche un bouton (macro case a cocher),
C'est à dire: lorsque je coche la premiere case ,je fais apparaitre le
premier graphique
lorsque je coche la deuxieme case, je fais apparaitre le deuxieme graphique
etc.
Merci d'avance
Céline- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
Sub auto_open() For Each s In ActiveSheet.Shapes If s.Type = 3 Then Sheets("feuil1").ComboBox1.AddItem s.Name End If Next End Sub
Private Sub ComboBox1_Change() For i = 0 To Me.ComboBox1.ListCount - 1 Shapes(Me.ComboBox1.List(i)).Visible = False Next i Shapes(Me.ComboBox1).Visible = True End Sub
http://cjoint.com/?doiFPRJw5q
JB
On 14 mar, 07:24, JB wrote:
Bonjour,
Private Sub CheckBox1_Click() ActiveSheet.Shapes("Chart 1").Visible = CheckBox1 End Sub
Private Sub CheckBox2_Click() ActiveSheet.Shapes("Chart 2").Visible = CheckBox2 End Sub
http://cjoint.com/?dohymORGtN
JB
On 13 mar, 20:38, Francois L wrote:
Bonsoir,
Ca ?http://cjoint.com/?dnuO4OYU61
Si oui, et que tu as besoin d'explications reviens le dire ici
-- François L
Bonjour,
J'aurai voulu savoir si c'etait possible de faire afficher des graphiques lorsque que l'on coche un bouton (macro case a cocher),
C'est à dire: lorsque je coche la premiere case ,je fais apparaitre le premier graphique
lorsque je coche la deuxieme case, je fais apparaitre le deuxieme graphique
etc.
Merci d'avance
Céline- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -