Macro pour Incrémenter une cellule de 1 puis imprimer

[mcz29]

Bonjour,

J'ai un fichier excel avec des graphiques intéractifs (feuille graph) qui se mettent à jour en fonction du nom que l'on choisit dans une liste déroulante. Ce choix de nom indique dans une cellule (B2) un numéro de ligne à chercher par la fonction index.

Quel code faut-il écrire pour qu'à chaque fois que le numéro en b2 change, une impression des graphiques se lance.

Mes numéros varient de 1 à 220. Donc j'ai 220 pages de graphiques à imprimer.


Merci

 

[G.David]

Re : Macro pour Incrémenter une cellule de 1 puis imprimer

for graphique = 1 to 220
t=range("b2").value
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
range("b2").value=t+1
next

 

[mcz29]

Re : Macro pour Incrémenter une cellule de 1 puis imprimer

merci G.david mais je ne saisi pas bien la variable graphique car elle n'apparait nulle part ailleurs dans le code.

Ci-joint un fichier exemple simplifié.

 

[mcz29]

Re : Macro pour Incrémenter une cellule de 1 puis imprimer

je pense avoir trouvé, je teste ceci :

t = Range("b2").Value
For t = 1 To 6

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("b2").Value = t + 1

Next

 

[Staple1600]

Re : Macro pour Incrémenter une cellule de 1 puis imprimer

Bonsour



Juste pour préciser :

Sub la_macroG_David()
Dim graphique as Integer ' graphique = compteur
For graphique = 1 to 220
t=Range("b2").value
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("b2").value=t+1
Next
End Sub

 

[Excel_lent]

Re : Macro pour Incrémenter une cellule de 1 puis imprimer

Salut à tous et aux autres,

En simplifiant la boucle et pour n'imprimer que les graphiques voir le fichier joint.

 

[mcz29]

Résolu : Macro pour Incrémenter une cellule de 1 puis imprimer

sujet résolu, merci à tous.