Code

Signaler
Messages postés
40
Date d'inscription
samedi 27 mars 2010
Statut
Membre
Dernière intervention
11 juin 2010
-
Messages postés
36
Date d'inscription
jeudi 28 janvier 2010
Statut
Membre
Dernière intervention
6 février 2011
-
salut je veux comprendre ce code pour une form de graphe
Private Sub PrintVisibility(visState As Boolean)
Dim i As Integer

' First turn off the other controls

For i = 0 To Me.Count - 1
If Me(i).Tag <> "Print" Then
Me(i).Visible = visState
End If
Next
et



Private Sub Stock_Click()
MyGrafObj.ChartType = xlStockHLC
End Sub


Private Sub TopScale_Change()

End Sub

merci d'avance

3 réponses

Messages postés
25
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
29 décembre 2010

precise ce que tu veux comprendre
Messages postés
40
Date d'inscription
samedi 27 mars 2010
Statut
Membre
Dernière intervention
11 juin 2010

salut je veux comprendre
Private Sub PrintVisibility(visState As Boolean)
Dim i As Integer

' First turn off the other controls

For i = 0 To Me.Count - 1
If Me(i).Tag <> "Print" Then
Me(i).Visible = visState
End If
Next
merci d'avence
Messages postés
36
Date d'inscription
jeudi 28 janvier 2010
Statut
Membre
Dernière intervention
6 février 2011

salut

A mon avis cela permet de rendre invisibles/visibles tous les contrôles qui ne sont pas affectés à l'impression

appel: PrintVisibility(False) pour les rendre invisibles

Me(i).Tag <> "Print" permet de voir ceux qui ne sont pas affectés à l'impression

Me(i).Visible = visState permet de les rendre visibles/invisibles