Discussion :

[CydZZ]

Bonjour à tous,

je me débrouille pas trop mal sur Excel, mais je débute tout juste sur VBA. J'essaie d'apprendre par moi-même grâce aux tutos et aux forums, mais après y avoir passé l'après-midi, je baisse les bras et je viens vous demander un petit coup de pouce.

Ce dont j'ai besoin, c'est de pouvoir modifier la plage de données d'un graphique. En l'occurrence, modifier les dates + le nombre de séries. Pour mieux comprendre, voici le fichier : Test-Graph-Dynamique.xlsm

Je voudrais pouvoir adapter le graphique en fonction des dates que j'entrerai en T3 et T4 mais aussi en fonction du nombre de séries que je veux afficher (T5). Ma macro fonctionne presque, mais dans ma variable maPlage, je n'arrive pas à remplacer la valeur E17 par ma variable lastCell

Si quelqu'un a quelques minutes pour m'aider ce serait top !!
Merci d'avance !

[keygen08]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set maPlage = Application.Union(Range("A1:E1"), Range("A" & Debut & ":" & lastCell.Address(0, 0)))

[CydZZ]

Super, ça fonctionne merci !!

Je vais aller fouiller pour essayer de comprendre maintenant.

Autant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lastCell.Address(0, 0)

je comprends.
Par contre ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Union

c'est moins clair.

Mais 1000 mercis pour le coup de pouce !!

[keygen08]

15 : Procédure de sélection de l'union d'au moins deux plages spécifiées
Pour sélectionner l'union (c'est-à-dire, la zone combinée) des deux plages nommées « Test » et « Exemple », vous pouvez utiliser l'exemple suivant :

Application.Union(Range("Test"), Range("Sample")).Select

Remarque : les deux plages doivent figurer dans la même feuille active pour que cet exemple fonctionne. Notez également que la méthode Union ne fonctionne pas entre feuilles de calcul. Par exemple, la ligne suivante fonctionne

Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet1!C34"))

J'ai trouvée ceci chez Mr Microsoft
http://support.microsoft.com/kb/291308/fr

[CydZZ]

Quelle réactivité
Merci pour l'info !! Désormais je saurai faire !

[CydZZ]

Aïe ... je viens de m'apercevoir que cela ne fonctionne pas lorsque l'on modifie le nombre de séries.
Le fait de figer E1 dès le départ doit poser problème ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Union(Range("A1:E1")

Comment indiquer de prendre E1 s'il y a 4 séries, mais C1 s'il y en a 2, B1 s'il y en a 3, etc