Vba: lire des données dans une feuille Exel

Résolu
nchristedem Messages postés 24 Statut Membre -  
Abdou1415 Messages postés 1 Statut Membre -
Bonjour, j'écris actuellement un programme en VBA dans Excel. J'ai parcouru le forum et les sujets ayant des titres voisins ne m'ont pas aidé. J'ai besoin de lire à différentes étapes des valeurs stockées en colonne dans une feuille excel (pour i variant de 1 à 8760, i étant le numéro de la ligne).
Pour le calcul à l'étape 1, je dois lire la valeur de la cellule A1. Après ce calcul, i prend la valeur 2 et je dois utiliser la valeur dans A2 pour mon calcul. Je ne sais pas très bien la commande à utiliser pour réaliser cette tâche.
Excel 2003.
Configuration: Windows 2000
Firefox 3.0.10

3 réponses

  1. pilas31 Messages postés 1878 Statut Contributeur 648
     
    Bonjour,

    Peut-être une boucle du type :

    For i = 1 to 8760
    
        Cells(1,i).value    'Contient la valeur de la cellule ligne i et colonne 1 (donc Ai)
        Range ("A" & i).value    'Autre syntaxe qui donne la même valeur
    
    next i
    

    Sans précision Cells et Range donnent les informations de la feuille courante mais on peut préciser une feuille particulière avec la syntaxe :
        sheets("Feuil1").Cells(1,i).value 
        sheets("Feuil1").Range ("A" & i).value
    

    A+
    0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour,

    For i=1 to 8760
    tavar=cells(i,1)
    tes calculs
    next
    0
    1. pilas31 Messages postés 1878 Statut Contributeur 648
       
      Oups !

      Merci michel_m j'ai inversé ligne et colonne oui la bonne syntaxe est cells(i,1)

      A+
      0
  3. Abdou1415 Messages postés 1 Statut Membre
     
    bonjour
    si j'ai bien compris votre question
    ca Peut-être une boucle du type :
    'Cas ou le nbr de lignes = nbr colonnes vous pouver changer biensure)
    For i = 1 to 8
    MsgBox " pour la ligne " & i & Cells(1, i) & " ona pour la colonne " & i & "la valeure" & Cells(i, 2)
    next i

    M+
    Pour ma reponse a la question Vba : l ire des données dans une feuille Exel
    0