For J = LBound(Tabsheets) To UBound(Tabsheets) Tabsheets(J).Select 'Code SendKeys "^{END}", True
Next J
Quelqu'un peut-il me corriger ces quelques lignes ?
Merci par avance
Cordialement
Infogroup
michdenis
Dans ta boucle, ton tableau est de base 0, c'est à dire que le premier item de ton tableau à l'index 0 et aucune feuille de calcul a un index 0, ça commence à 1
2 alternatives :
Tu peux mettre totalement en haut de ton module ceci : Option Base 1
Et ton tableau sera automatiquement de base 1 et non 0 comme premier item ... sauf si tu déclare ton tableau explicitement comme ceci Dim R(0 to 2)
OU
Tu boucles comme ceci :
For J = LBound(Tabsheets) To UBound(Tabsheets) Tabsheets(J+1).Select 'Code
"Infogroup" a écrit dans le message de news:
J'ai corrigé la macro comme ceci
Tabsheets = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre") For J = LBound(Tabsheets) To UBound(Tabsheets) Tabsheets(J).Select 'Code Next J
mais lors de l'exécution de la macro, j'ai toujours la ligne Tabsheets(J).Select surlignée en jaune
Il y aurait encore un hic ?
"Infogroup" a écrit dans le message de news:%23qem$
merci michdenis c'est enregistré bonne continuation
"michdenis" a écrit dans le message de news:%
Tu dois mettre des guillements à chacun des éléments de ta matrice
For J = LBound(Tabsheets) To UBound(Tabsheets) Tabsheets(J).Select 'Code SendKeys "^{END}", True
Next J
Quelqu'un peut-il me corriger ces quelques lignes ?
Merci par avance
Cordialement
Infogroup
Dans ta boucle, ton tableau est de base 0, c'est à dire
que le premier item de ton tableau à l'index 0 et aucune
feuille de calcul a un index 0, ça commence à 1
2 alternatives :
Tu peux mettre totalement en haut de ton module ceci :
Option Base 1
Et ton tableau sera automatiquement de base 1 et non 0
comme premier item ... sauf si tu déclare ton tableau
explicitement comme ceci Dim R(0 to 2)
OU
Tu boucles comme ceci :
For J = LBound(Tabsheets) To UBound(Tabsheets)
Tabsheets(J+1).Select
'Code
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de news:
uJpVSpWTJHA.5920@TK2MSFTNGP06.phx.gbl...
J'ai corrigé la macro comme ceci
Tabsheets = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin",
"Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
For J = LBound(Tabsheets) To UBound(Tabsheets)
Tabsheets(J).Select
'Code
Next J
mais lors de l'exécution de la macro, j'ai toujours la ligne
Tabsheets(J).Select surlignée en jaune
Il y aurait encore un hic ?
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de
news:%23qem$fWTJHA.6060@TK2MSFTNGP06.phx.gbl...
merci michdenis
c'est enregistré
bonne continuation
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23cdPjdWTJHA.1184@TK2MSFTNGP03.phx.gbl...
Tu dois mettre des guillements à chacun des éléments de ta matrice
Dans ta boucle, ton tableau est de base 0, c'est à dire que le premier item de ton tableau à l'index 0 et aucune feuille de calcul a un index 0, ça commence à 1
2 alternatives :
Tu peux mettre totalement en haut de ton module ceci : Option Base 1
Et ton tableau sera automatiquement de base 1 et non 0 comme premier item ... sauf si tu déclare ton tableau explicitement comme ceci Dim R(0 to 2)
OU
Tu boucles comme ceci :
For J = LBound(Tabsheets) To UBound(Tabsheets) Tabsheets(J+1).Select 'Code
"Infogroup" a écrit dans le message de news:
J'ai corrigé la macro comme ceci
Tabsheets = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre") For J = LBound(Tabsheets) To UBound(Tabsheets) Tabsheets(J).Select 'Code Next J
mais lors de l'exécution de la macro, j'ai toujours la ligne Tabsheets(J).Select surlignée en jaune
Il y aurait encore un hic ?
"Infogroup" a écrit dans le message de news:%23qem$
merci michdenis c'est enregistré bonne continuation
"michdenis" a écrit dans le message de news:%
Tu dois mettre des guillements à chacun des éléments de ta matrice