Je suis parti du fichier modifié par Michel Pierron
http://cjoint.com/?fBmym7NJ1y.
L’inconvénient du fichier est que lorsque l’on est dans le cas de graphique
Secteurs la macro se plante lorsque l’on modifie les couleurs des fonds car
il n’y en a pas.
Mon idée est de ne plus raisonner sur les titres du graphique et de
travailler sur 2 colonnes supplémentaires qui nous renseignent sur les types
de graphiques ( Marker pas Marker ; Type de Séries dont on modifie les
couleurs ; Fond de graph oui ou non )
Je voudrai donc rendre non disponible des Options dans certains cas pourquoi
ce que j’ai fait n’est pas pris en compte.Comment modifier la partie JPV ?
http://cjoint.com/?fBmZlucTWp
Private Sub ListBox1_Click()
Dim c As String
Dim r As Integer
'Ajout pour stocker RésultatTypeBorder cette partie sera abandonnée
ultérieurement
Range("RésultatTypeMarker").Value = Cells(ListBox1.ListIndex + 1, 5)
Range("RésultatTypeBorder").Value = Cells(ListBox1.ListIndex + 1, 6)
'Cette partie JPV qui suit ne marche pas le bouton Opt2 reste dispo ?
r = UserForm1.ListBox1.ListIndex + 1
c = Cells(r + 1, 6).Value
If c = "II" Then
Me.Opt2.Enabled = False
End If
'Cette partie de Michel Pierron marche
With ThisWorkbook.Sheets("69Graph").ChartObjects("graphe").Chart
.ChartType = Cells(ListBox1.ListIndex + 1, 4)
.ChartTitle.Characters.Text = "Charttype = " _
& Cells(ListBox1.ListIndex + 1, 3) & " (" _
& Cells(ListBox1.ListIndex + 1, 4) & ")"
Me.Opt2.Enabled = InStr(1, .ChartTitle.Text, "3D", 1)
If Not Me.Opt2.Enabled And Me.Opt2 Then Me.Opt7.Value = True
With ThisWorkbook.Sheets("69Graph")
End With
End With
End Sub
Merci encore pour ceux qui peuvent m'aider je suis en panne
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Paul V
Re bonjour
J'ai un peu progressé avec cette solution :
' Ceci fonctionne Me.Opt2.Enabled = InStr(1, .ChartTitle.Text, "3D", 1) If Not Me.Opt2.Enabled And Me.Opt2 Then Me.Opt7.Value = True 'Cela fonctionne également Me.Opt2.Enabled = InStr(1, c, "II", 1) Me.Opt7.Enabled = InStr(1, c, "II", 1) ' Pourquoi ce qui suit ne rétablit pas l'acces aux dex boutons Option si c<> "II" If Not Me.Opt2.Enabled And Me.Opt2 Then Me.Opt7.Value = True If Not Me.Opt7.Enabled And Me.Opt7 Then Me.Opt7.Value = True
à+
Bonjour à tous
Je suis parti du fichier modifié par Michel Pierron http://cjoint.com/?fBmym7NJ1y. L’inconvénient du fichier est que lorsque l’on est dans le cas de graphique Secteurs la macro se plante lorsque l’on modifie les couleurs des fonds car il n’y en a pas. Mon idée est de ne plus raisonner sur les titres du graphique et de travailler sur 2 colonnes supplémentaires qui nous renseignent sur les types de graphiques ( Marker pas Marker ; Type de Séries dont on modifie les couleurs ; Fond de graph oui ou non )
Je voudrai donc rendre non disponible des Options dans certains cas pourquoi ce que j’ai fait n’est pas pris en compte.Comment modifier la partie JPV ? http://cjoint.com/?fBmZlucTWp Private Sub ListBox1_Click() Dim c As String Dim r As Integer 'Ajout pour stocker RésultatTypeBorder cette partie sera abandonnée ultérieurement Range("RésultatTypeMarker").Value = Cells(ListBox1.ListIndex + 1, 5) Range("RésultatTypeBorder").Value = Cells(ListBox1.ListIndex + 1, 6) 'Cette partie JPV qui suit ne marche pas le bouton Opt2 reste dispo ? r = UserForm1.ListBox1.ListIndex + 1 c = Cells(r + 1, 6).Value If c = "II" Then Me.Opt2.Enabled = False End If 'Cette partie de Michel Pierron marche With ThisWorkbook.Sheets("69Graph").ChartObjects("graphe").Chart .ChartType = Cells(ListBox1.ListIndex + 1, 4) .ChartTitle.Characters.Text = "Charttype = " _ & Cells(ListBox1.ListIndex + 1, 3) & " (" _ & Cells(ListBox1.ListIndex + 1, 4) & ")" Me.Opt2.Enabled = InStr(1, .ChartTitle.Text, "3D", 1) If Not Me.Opt2.Enabled And Me.Opt2 Then Me.Opt7.Value = True With ThisWorkbook.Sheets("69Graph") End With End With End Sub
Merci encore pour ceux qui peuvent m'aider je suis en panne
Re bonjour
J'ai un peu progressé avec cette solution :
' Ceci fonctionne
Me.Opt2.Enabled = InStr(1, .ChartTitle.Text, "3D", 1)
If Not Me.Opt2.Enabled And Me.Opt2 Then Me.Opt7.Value = True
'Cela fonctionne également
Me.Opt2.Enabled = InStr(1, c, "II", 1)
Me.Opt7.Enabled = InStr(1, c, "II", 1)
' Pourquoi ce qui suit ne rétablit pas l'acces aux dex boutons Option si c<>
"II"
If Not Me.Opt2.Enabled And Me.Opt2 Then Me.Opt7.Value = True
If Not Me.Opt7.Enabled And Me.Opt7 Then Me.Opt7.Value = True
à+
Bonjour à tous
Je suis parti du fichier modifié par Michel Pierron
http://cjoint.com/?fBmym7NJ1y.
L’inconvénient du fichier est que lorsque l’on est dans le cas de graphique
Secteurs la macro se plante lorsque l’on modifie les couleurs des fonds car
il n’y en a pas.
Mon idée est de ne plus raisonner sur les titres du graphique et de
travailler sur 2 colonnes supplémentaires qui nous renseignent sur les types
de graphiques ( Marker pas Marker ; Type de Séries dont on modifie les
couleurs ; Fond de graph oui ou non )
Je voudrai donc rendre non disponible des Options dans certains cas pourquoi
ce que j’ai fait n’est pas pris en compte.Comment modifier la partie JPV ?
http://cjoint.com/?fBmZlucTWp
Private Sub ListBox1_Click()
Dim c As String
Dim r As Integer
'Ajout pour stocker RésultatTypeBorder cette partie sera abandonnée
ultérieurement
Range("RésultatTypeMarker").Value = Cells(ListBox1.ListIndex + 1, 5)
Range("RésultatTypeBorder").Value = Cells(ListBox1.ListIndex + 1, 6)
'Cette partie JPV qui suit ne marche pas le bouton Opt2 reste dispo ?
r = UserForm1.ListBox1.ListIndex + 1
c = Cells(r + 1, 6).Value
If c = "II" Then
Me.Opt2.Enabled = False
End If
'Cette partie de Michel Pierron marche
With ThisWorkbook.Sheets("69Graph").ChartObjects("graphe").Chart
.ChartType = Cells(ListBox1.ListIndex + 1, 4)
.ChartTitle.Characters.Text = "Charttype = " _
& Cells(ListBox1.ListIndex + 1, 3) & " (" _
& Cells(ListBox1.ListIndex + 1, 4) & ")"
Me.Opt2.Enabled = InStr(1, .ChartTitle.Text, "3D", 1)
If Not Me.Opt2.Enabled And Me.Opt2 Then Me.Opt7.Value = True
With ThisWorkbook.Sheets("69Graph")
End With
End With
End Sub
Merci encore pour ceux qui peuvent m'aider je suis en panne
' Ceci fonctionne Me.Opt2.Enabled = InStr(1, .ChartTitle.Text, "3D", 1) If Not Me.Opt2.Enabled And Me.Opt2 Then Me.Opt7.Value = True 'Cela fonctionne également Me.Opt2.Enabled = InStr(1, c, "II", 1) Me.Opt7.Enabled = InStr(1, c, "II", 1) ' Pourquoi ce qui suit ne rétablit pas l'acces aux dex boutons Option si c<> "II" If Not Me.Opt2.Enabled And Me.Opt2 Then Me.Opt7.Value = True If Not Me.Opt7.Enabled And Me.Opt7 Then Me.Opt7.Value = True
à+
Bonjour à tous
Je suis parti du fichier modifié par Michel Pierron http://cjoint.com/?fBmym7NJ1y. L’inconvénient du fichier est que lorsque l’on est dans le cas de graphique Secteurs la macro se plante lorsque l’on modifie les couleurs des fonds car il n’y en a pas. Mon idée est de ne plus raisonner sur les titres du graphique et de travailler sur 2 colonnes supplémentaires qui nous renseignent sur les types de graphiques ( Marker pas Marker ; Type de Séries dont on modifie les couleurs ; Fond de graph oui ou non )
Je voudrai donc rendre non disponible des Options dans certains cas pourquoi ce que j’ai fait n’est pas pris en compte.Comment modifier la partie JPV ? http://cjoint.com/?fBmZlucTWp Private Sub ListBox1_Click() Dim c As String Dim r As Integer 'Ajout pour stocker RésultatTypeBorder cette partie sera abandonnée ultérieurement Range("RésultatTypeMarker").Value = Cells(ListBox1.ListIndex + 1, 5) Range("RésultatTypeBorder").Value = Cells(ListBox1.ListIndex + 1, 6) 'Cette partie JPV qui suit ne marche pas le bouton Opt2 reste dispo ? r = UserForm1.ListBox1.ListIndex + 1 c = Cells(r + 1, 6).Value If c = "II" Then Me.Opt2.Enabled = False End If 'Cette partie de Michel Pierron marche With ThisWorkbook.Sheets("69Graph").ChartObjects("graphe").Chart .ChartType = Cells(ListBox1.ListIndex + 1, 4) .ChartTitle.Characters.Text = "Charttype = " _ & Cells(ListBox1.ListIndex + 1, 3) & " (" _ & Cells(ListBox1.ListIndex + 1, 4) & ")" Me.Opt2.Enabled = InStr(1, .ChartTitle.Text, "3D", 1) If Not Me.Opt2.Enabled And Me.Opt2 Then Me.Opt7.Value = True With ThisWorkbook.Sheets("69Graph") End With End With End Sub
Merci encore pour ceux qui peuvent m'aider je suis en panne
