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

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

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