Variable dans graphique macro

Résolu
Utilisateur anonyme -  
 victor -
Bonjour,

je cherche à changer une case de sélection en fonction d'une variable i par exemple :

For i = 0 To 15

ActiveChart.SeriesCollection(3).Points(i + 1).DataLabel.Select
Selection.Formula = "=feuill1!$B$(40+i)"
Next

Comment puis je faire ?
Merci d'avance

3 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Essaies ceci dans ta boucle For i ....

    eti=Sheets("Feuil1").Range("B" & 40+i)
    ActiveChart.SeriesCollection(3).Points(i+1).DataLabel.Characters.Text = eti

    Un exemple
    http://www.cjoint.com/c/GGlpMNghMGB

    Cdlmnt
    0
    1. victor
       
       
      Bonjour ccm81,

      Ta réponse est sûrement exacte, et tu as repris le même nom de feuille
      que celui de l'énoncé : feuill1 (avec 2 L minuscules).

      Je pense que Jo pingouin s'est peut-être trompé : ne serait-ce pas plutôt
      Feuil1 (avec 1 seul L minuscule) ? à lui de le vérifier.

      Cordialement
       
      0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Salut Victor

    J'ai modifié ma proposition (que j'avais tapé à la volée) et bricolé un fichier en exemple pour que ce soit plus simple à adapter

    Cdlmnt
    0
  3. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Je ne crois pas !
    1. On récupère le texte de l'étiquette dans Feuil1
    eti=Sheets("Feuil1").Range("B" & 40+i)
    2. On met ce texte sur le point du graphique
    ActiveChart.SeriesCollection(3).Points(i+1).DataLabel.Characters.Text = eti

    voir le fichier exemple

    Cdlmnt
    0
    1. victor
       
      Tu as raison, je m'étais trompé ! je viens juste de m'en apercevoir et de supprimer
      mon dernier message ; c'est après que j'ai vu ton nouveau message ; désolé.
      0