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 :

probleme erreur d'indice


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Septembre 2009
    Messages
    67
    Détails du profil
    Informations forums :
    Inscription : Septembre 2009
    Messages : 67
    Par défaut probleme erreur d'indice
    Bonjour à tous,
    J'ai une macro qui doit transferer les données de la feuille "stock_Journalier" colonne A: B vers la feuille "Tagesbestand" appartir de la ligne 7 incluant les colonnes b c d e f en sachant que la feuille "Stock_journalier" appartient à un classeur X et "Tagesbestant" à un classeur Y (dans le fichier que je joins j'ai mis les 2 feuilles dans un même classeur pour éviter un trop grand poids ) A noter aussi que la date indiquée dans le fichier stock journalier est une date aujourdhui() Pourtant dès le dèpart j'ai une erreur
    erreur 9 "l'indice n'appartient pas à la séléction" pourtant j'ai mis en select la feuille Stock_journalier Pourriez vous m'aider car je suis encore trop novice pour régler cela tous seul
    Voici le code

    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
    Workbooks.Open "C:\Documents and Settings\PC42\Bureau\suivi stock\X.xls"
          ActiveWorkbook.RefreshAll
          Workbooks.Open "T:\suivi_stock_2009\Y.xls"
          Dim tabtemp As Variant
         Dim tabResult As Variant
         Dim L As Byte
         Dim MaDate As Date
         Dim C  As Range
        Worksheets("stock.journalier").Select
    With Worksheets("stock.journalier")
    tabtemp = .Range("A:B" & .Range("B65536").End(xlUp).Row).Value
    End With
    MaDate = CDate(tabtemp(1, 1))
      ReDim Preserve tabResult(1, UBound(tabtemp, 1))
      tabResult(1, 1) = MaDate
    For L = 2 To UBound(tabtemp, 1)
        tabResult(1, L) = tabtemp(L, 3)
    Next
    With Worksheets("octobre")
    Set C = .Range("A7:A" & .Range("A65536").End(xlUp).Row).Find(MaDate)
    If Not C Is Nothing Then
        For L = 2 To UBound(tabResult, 2)
         C.Offset(0, L - 1) = tabResult(1, L)
       Next
    End If
    End With
    End Sub
    Merci pour votre aide
    Fichiers attachés Fichiers attachés

  2. #2
    Membre averti
    Inscrit en
    Octobre 2009
    Messages
    58
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 58
    Par défaut
    Bonjour,

    Attention à ne pas confondre feuille et classeur !
    Tu dois d'abord activer le bon classeur avant de récupérer les colonnes sur la feuille correspondante. Actuellement tu ouvres le classeur X, puis le classeur Y (c'est donc le classeur actif) puis tu essayes d'activer la feuille "stock.journalier" dans ce classeur Y alors qu'elle se trouve dans le X si je comprend bien?

    Dans ton exemple ci-joint il faudrait faire quelque chose du genre workbooks("stock_journalier").worksheets("Octobre").range(...)

Discussions similaires

  1. Probleme: erreur avec CreateFile("COM1",..)
    Par zandoli dans le forum Windows
    Réponses: 1
    Dernier message: 11/10/2006, 15h00
  2. Probleme erreur java.lang.NullPointerException
    Par Tsukaasa dans le forum Langage
    Réponses: 4
    Dernier message: 25/05/2006, 18h19
  3. probleme erreur 130
    Par koaster dans le forum Administration
    Réponses: 1
    Dernier message: 24/04/2006, 10h09
  4. [VBA]probleme : erreur 2001 operation annulée
    Par julio78 dans le forum Access
    Réponses: 6
    Dernier message: 09/01/2006, 15h21
  5. Probleme erreur 241.
    Par FilipeVV dans le forum MS SQL Server
    Réponses: 15
    Dernier message: 18/02/2005, 11h50

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