gros pb etiquette de données**Important**

[xaviier]

salut a tous!
je voudrais juste savoir comment faire pour faire une étiquette de données sur un point de données précis tt en sachant que cette étiquette aura la valeur ou plutot dans le cas présent le nom contenu dans une cellule.


en d' autre termes je veux faire une étiquette de donéées sapellant le contenu d' une cellule!
voila
merci de voitre aide car jen é vrément besoin!!!! merci d' avance a tous et a toutes!

xAvIer

ps : J' ai essayé ce code mais ca ne marche pas :-/


ActiveChart.SeriesCollection(i).Points(j).HasDataLabels = True
ActiveChart.SeriesCollection(i).Points(j).DataLabels.Text = Cells(k, m).Address
ou encore

ActiveChart.SeriesCollection(i).Points(j).HasDataLabels = True
ActiveChart.SeriesCollection(i).Points(j).DataLabels.Text ="="&"nom de la feuille" & Cells(k, m).Address

merci d'avance

 

[michel]

bonsoir Xaxiier

pour l'instant je n'ai pas le temps de regarder le fichier que tu as envoyer dans ma bal , mais tu peux deja suivre le lien ci dessous qui traite du meme sujet

Lien supprimé


bonne soiree
michel

 

[xaviier]

merci bien michel de t' intéresser à mon pb !! j' ai bien regrader le fil que tu ma filé et j' ai essayé de me débrouiller avec mais sans succès!:-(

je met mon code si il intersse qq1.
Sub Etiquette()


Dim i As Variant
Dim j As Integer
Dim travaux As Integer
Dim seafrance As Integer
Dim PO As Integer
Dim hoverspeed As Integer
Dim k As Variant
Dim m As Variant

Dim zero As Integer



zero = 0
travaux = 45
seafrance = 3
PO = 6
hoverspeed = 5
k = 4
For i = 2 To 48 Step 2

k = k + 2

m = 0
For j = 1 To 10 Step 1
Sheets("calculs").Select
m = m + 2
Cells(k, m).Select

If ActiveSheet.Cells(k, m) = travaux Or seafrance Or hoverspeed Or zero Then

If ActiveSheet.Cells(k, m) = zero Then
End If

If ActiveSheet.Cells(k, m) = travaux Then
k = k + 60
ActiveSheet.ChartObjects("POP").SeriesCollection(i).Points(j).DataLabels.Characters.Text = ActiveSheet.Cells(k, m)
k = k - 60
End If

If ActiveSheet.Cells(k, m) = seafrance Then
k = k + 60
ActiveSheet.ChartObjects("POP").SeriesCollection(i).Points(j).DataLabels.Characters.Text = Sheets("calculs").Cells(k, m)
k = k - 60
End If

If ActiveSheet.Cells(k, m) = PO Then
k = k + 60
ActiveSheet.ChartObjects("POP").SeriesCollection(i).Point(j).DataLabels.Characters.Text = Sheets("calculs").Cells(k, m)
k = k - 60
End If

If ActiveSheet.Cells(k, m) = hoverspeed Then
k = k + 60
ActiveSheet.ChartObjects("POP").SeriesCollection(i).Points (j).DataLabels.Characters.Text = Sheets("calculs").Cells(k, m)
k = k - 60
End If
End If
Next j
Next i
End Sub

voila lerreur se situe onivo de mettre les etiquettes de données et je ne sais pas commment la resoudre !
HELP please!! je dois avoir fini mon projet imlpérativement avant vendredi !!!!!!

mercia tous
xAvier