IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

problème worksheet cachée ? [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Novembre 2007
    Messages
    22
    Détails du profil
    Informations forums :
    Inscription : Novembre 2007
    Messages : 22
    Par défaut problème worksheet cachée ?
    Bonjour à toutes et à tous,


    J'ai un petit problème avec une macro excel, et malgré bcp de recherche, ne trouve pas la solution. Help !

    J'ai fait une macro pour copier certaines données d'une feuille (Feuil2) vers une autre (Feuil1) :


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    Sub ExtractionDonnees()
     
    For j = 0 To 650
     
    Worksheets("Feuil1").Cells(1, j + 3).Value = Worksheets("Feuil2").Cells(3, 13 + 51 * j).Value
    Worksheets("Feuil1").Cells(2, j + 3).Value = Worksheets("Feuil2").Cells(2, 10 + 51 * j).Value
    Worksheets("Feuil1").Cells(3, j + 3).Value = Worksheets("Feuil2").Cells(2, 11 + 51 * j).Value
    Worksheets("Feuil1").Cells(4, j + 3).Value = Worksheets("Feuil2").Cells(2, 12 + 51 * j).Value
    Worksheets("Feuil1").Cells(5, j + 3).Value = Worksheets("Feuil2").Cells(3, 19 + 51 * j).Value
    Worksheets("Feuil1").Cells(6, j + 3).Value = Worksheets("Feuil2").Cells(3, 20 + 51 * j).Value
    Worksheets("Feuil1").Cells(7, j + 3).Value = Worksheets("Feuil2").Cells(3, 21 + 51 * j).Value
    Worksheets("Feuil1").Cells(8, j + 3).Value = Worksheets("Feuil2").Cells(3, 22 + 51 * j).Value
    Worksheets("Feuil1").Cells(9, j + 3).Value = Worksheets("Feuil2").Cells(3, 23 + 51 * j).Value
    Worksheets("Feuil1").Cells(10, j + 3).Value = Worksheets("Feuil2").Cells(3, 24 + 51 * j).Value
    Worksheets("Feuil1").Cells(11, j + 3).Value = Worksheets("Feuil2").Cells(4, 45 + 51 * j).Value
    Worksheets("Feuil1").Cells(12, j + 3).Value = Worksheets("Feuil2").Cells(5, 45 + 51 * j).Value
    Worksheets("Feuil1").Cells(13, j + 3).Value = Worksheets("Feuil2").Cells(6, 45 + 51 * j).Value
    Worksheets("Feuil1").Cells(14, j + 3).Value = Worksheets("Feuil2").Cells(7, 45 + 51 * j).Value
    Worksheets("Feuil1").Cells(15, j + 3).Value = Worksheets("Feuil2").Cells(8, 45 + 51 * j).Value
    Worksheets("Feuil1").Cells(16, j + 3).Value = Worksheets("Feuil2").Cells(9, 45 + 51 * j).Value
    Worksheets("Feuil1").Cells(17, j + 3).Value = Worksheets("Feuil2").Cells(4, 46 + 51 * j).Value
    Worksheets("Feuil1").Cells(18, j + 3).Value = Worksheets("Feuil2").Cells(5, 46 + 51 * j).Value
    Worksheets("Feuil1").Cells(19, j + 3).Value = Worksheets("Feuil2").Cells(6, 46 + 51 * j).Value
    Worksheets("Feuil1").Cells(20, j + 3).Value = Worksheets("Feuil2").Cells(7, 46 + 51 * j).Value
    Worksheets("Feuil1").Cells(21, j + 3).Value = Worksheets("Feuil2").Cells(8, 46 + 51 * j).Value
    Worksheets("Feuil1").Cells(22, j + 3).Value = Worksheets("Feuil2").Cells(9, 46 + 51 * j).Value
     
        Next j
     
    End Sub
    Et j'obtiens le message d'erreur suivant :
    "Erreur définie par l'application et par l'objet"

    et quand je rentre dans la macro, je vois la première ligne "worksheets... " surlignée en jaune.
    Quand je clique droit sur "Worksheets" et sur "définition", le message "impossible d'aller a 'worksheets' qui est caché" s'affiche.

    J'ai déja essayé de mettre des choses du genre
    Worksheets("Feuil1").Visible = True

    Mais rien n'y fait !

    Une idée ??

    Merci pour votre aide

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Quel est la valeur de J lors de l'erreur ?
    Ne dépasses tu pas le nombre de colonne ?

  3. #3
    Membre averti
    Inscrit en
    Novembre 2007
    Messages
    22
    Détails du profil
    Informations forums :
    Inscription : Novembre 2007
    Messages : 22
    Par défaut
    Salut,

    Je ne sais pas où lire la valeur de j ?

    J'ai remplacé j variant de 1 à 5 pour essayer, mais ça ne change rien (le classeur "Feuil2" fait environ 31000 lignes donc ça devrait suffire... )

    Une autre idée ?

    Merci

  4. #4
    Membre averti
    Inscrit en
    Novembre 2007
    Messages
    22
    Détails du profil
    Informations forums :
    Inscription : Novembre 2007
    Messages : 22
    Par défaut
    J'avais tout simplement inversé les lignes et colonnes en fait, du coup c'était bien ça, je dépassais l'indice max... (Quelle erreur bête...)

    Merci !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. problème de cache lors du chargement d'applet
    Par ellocin dans le forum Applets
    Réponses: 4
    Dernier message: 05/04/2007, 12h31
  2. [Tomcat 5.5.16] Problème de cache
    Par vallica dans le forum Tomcat et TomEE
    Réponses: 3
    Dernier message: 29/05/2006, 14h59
  3. Problème Mémoire Cache
    Par Ryadus dans le forum Ordinateurs
    Réponses: 6
    Dernier message: 13/12/2005, 16h21
  4. Problème de cache avec Oracle 8i
    Par lper dans le forum Bases de données
    Réponses: 3
    Dernier message: 08/11/2004, 16h50
  5. Problème de cache avec oracle 8 i
    Par lper dans le forum Oracle
    Réponses: 11
    Dernier message: 08/11/2004, 16h45

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo