Programme VBA
bonjjour
jai créer un programme qui me permet lorsque je selectionne mon nuages de points d'ouvrir une boite de dialogue qui me dis de choisir la premiere etiquttes de chaque serie et automatiquemnt les etiquttes s'afficehnt seulemnt mon probleme c'est que je ne peu faire cela que sur le premier graph (nuage de points) de la feuille et moi je créer n graphs du coup j'aimerai faire la meme chose pour les uatres grphs merci pour votre aide
Private Sub CommandButton15_Click()
Dim s As Series, i As Integer
Dim choix As Range
If ActiveChart Is Nothing Then
MsgBox "Select a chart and try again.", vbExclamation
GoTo ExitSub
End If
With ActiveSheet.ChartObjects(1).Chart
.ApplyDataLabels Type:=xlDataLabelsShowValue
For Each s In .SeriesCollection
Set choix = Application.InputBox(Prompt:=" Sélectionner la premiere étiquette de chaque serie ", Type:=8)
For i = 1 To s.Points.Count
s.Points(i).DataLabel.Text = [choix].Offset(i - 1)
Next
Next
End With
ExitSub:
Application.ScreenUpdating = True
End Sub
Bonjour,
Tu pourrais pas envoyer le fichier plutôt ? Ce serait plus simple
Quelqu'un pour m'aider svp parceque je bloque au niveau de sa
personnne pour m'aider svp
Je n'ai pas compris ce que tu voulais donc difficile de t'aider. ^^
bonjour
en fait ce que je veux c'est pouvoir sélectionner mes étiquettes pour leur affichage sur la graph pour daures graphiues de ma feuille excel car la commande VBA que jai créée permet de faire la selection seulemnt sur le premier graphiue du coup les uatres graphiques impossible de choisir leur étiquettes
mon programme repoond que au premier graph de ma feuille
c'est bon j'ai reussi maintenenat il ne me reste plus qu ' a attribuer les couleurs de fond a mes etiquttes pour toute mes series