Probleme macro - Erreur d'exécution 9
Bonjour à tout le monde,
j'ai un problème sur cette macro :
Sub imprimer()
Sheets("feuil1").Activate
a = Array(14, 15, 20, 201, 807, 810, 1553)
For i = 0 To 6
[Q5] = a(i)
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
End Sub
à la fin j'ai un message d'erreur :
Erreur d'exécution 9
'l'indice n'appartient pas à la sélection" ... ?
il me souligne en jaune la ligne : [Q5] = a(i)
Que dois-je changer ?
bonjour,
tu as probablement mis une instruction option base 1, indiquant que les tableaux commencent à l'indice 1 et non 0.
solution tu adaptes ton instruction for
Sub imprimer()
Sheets("feuil1").Activate
a = Array(14, 15, 20, 201, 807, 810, 1553)
For i = 1 To 7
[Q5] = a(i)
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
End SubBonjour,
ce n'est pas cela... j'ai toujours le même problème...
Bonjour,
mets-nous ton fichier ou un fichier exemple dans lequel tu as pu reproduire le problème.
voila un fichier test ...
Bonjour
déjà tu a mis 0 To 4 il faut mettre 0 To 3
les index Array commence a 0
A+
Maurice
ah ok, c'est bon du coup ... !!
merci beaucoup.