Sélections de plages

Le
Infogroup
Bonjour à tout le groupe,

J'ai 12 plages nommées Janvier, Février etc

avec le code ci-dessous, la macro bloque sur Tabsheets(J).Select
bien sûr le code est mal écrit !

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
SendKeys "^{END}", True

Next J

Quelqu'un peut-il me corriger ces quelques lignes ?

Merci par avance

Cordialement

Infogroup
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #17932251
Tu dois mettre des guillements à chacun des éléments de ta matrice

Tabsheets = Array("Janvier","Février", "Mars", "Avril", "Mai", "Juin",
"Juillet", "Août",
"Septembre", "Octobre", "Novembre", "Décembre")



"Infogroup" eEY%
Bonjour à tout le groupe,

J'ai 12 plages nommées Janvier, Février etc...

avec le code ci-dessous, la macro bloque sur Tabsheets(J).Select
bien sûr le code est mal écrit !

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
SendKeys "^{END}", True

Next J

Quelqu'un peut-il me corriger ces quelques lignes ?

Merci par avance

Cordialement

Infogroup
Infogroup
Le #17932231
merci michdenis
c'est enregistré
bonne continuation



"michdenis" news:%
Tu dois mettre des guillements à chacun des éléments de ta matrice

Tabsheets = Array("Janvier","Février", "Mars", "Avril", "Mai", "Juin",
"Juillet", "Août",
"Septembre", "Octobre", "Novembre", "Décembre")



"Infogroup" eEY%
Bonjour à tout le groupe,

J'ai 12 plages nommées Janvier, Février etc...

avec le code ci-dessous, la macro bloque sur Tabsheets(J).Select
bien sûr le code est mal écrit !

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
SendKeys "^{END}", True

Next J

Quelqu'un peut-il me corriger ces quelques lignes ?

Merci par avance

Cordialement

Infogroup




Infogroup
Le #17932221
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" news:%23qem$
merci michdenis
c'est enregistré
bonne continuation



"michdenis" news:%
Tu dois mettre des guillements à chacun des éléments de ta matrice

Tabsheets = Array("Janvier","Février", "Mars", "Avril", "Mai", "Juin",
"Juillet", "Août",
"Septembre", "Octobre", "Novembre", "Décembre")



"Infogroup" eEY%
Bonjour à tout le groupe,

J'ai 12 plages nommées Janvier, Février etc...

avec le code ci-dessous, la macro bloque sur Tabsheets(J).Select
bien sûr le code est mal écrit !

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
SendKeys "^{END}", True

Next J

Quelqu'un peut-il me corriger ces quelques lignes ?

Merci par avance

Cordialement

Infogroup







michdenis
Le #17932411
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"
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" news:%23qem$
merci michdenis
c'est enregistré
bonne continuation



"michdenis" news:%
Tu dois mettre des guillements à chacun des éléments de ta matrice

Tabsheets = Array("Janvier","Février", "Mars", "Avril", "Mai", "Juin",
"Juillet", "Août",
"Septembre", "Octobre", "Novembre", "Décembre")



"Infogroup" eEY%
Bonjour à tout le groupe,

J'ai 12 plages nommées Janvier, Février etc...

avec le code ci-dessous, la macro bloque sur Tabsheets(J).Select
bien sûr le code est mal écrit !

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
SendKeys "^{END}", True

Next J

Quelqu'un peut-il me corriger ces quelques lignes ?

Merci par avance

Cordialement

Infogroup







Publicité
Poster une réponse
Anonyme