parcourir fichier Excel

Version imprimable

30/04/2010, 13h30
Kawabaumga

parcourir fichier Excel

Bonjour,

j'ai un fichier Excel que je souhaiterai parcourir en VB.
L'objectif est de parcourir ligne après ligne ce fichier.
Pour chaque ligne je veux pouvoir récupérer une colonne précise...

Je sais que je peux accéder à une Cellule d'une feuille grâce à : xlSheet.Cells(ligne, colonne)

N'existe-t'il pas un moyen de récupérer toutes les lignes, sachant que ce nombre de ligne peut être variable?

Merci d'avance
30/04/2010, 13h48
rvtoulon

Bjr,
la réponse est oui on peux, mais que doit-on récupérer? avec quels critères? quel est la colonne à récupérer? Dans quelle feuilles?

plus tu seras précis dans ta demande plus l'aide que l'on t'apporteras le sera aussi et on iras droit au but (vive l'om :mrgreen:).

Alors pour le moment voila ce que j'ai :

Code:

1
2
3
4
5
6
7
8
9
10
   Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    'Selection du fichier
    Set xlBook = xlApp.Workbooks.Open("Mon fichier")
    'Selection de la feuille PROMO
    Set xlSheet = xlBook.Worksheets("Ma feuille")

- Sur la feuille, je veux récupérer TOUTES les lignes
- Pour chaque ligne les informations vont de la colonne A à la colonne BH.
- Il faudrait que j'arrive à récupérer un objet représentant la ligne entière et que je puisse accéder à une colonne particulière un peu comme avec Cells(ligne, Colonne)

Pour le moment j'ai ce code:

Code:

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
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    'Selection du fichier
    Set xlBook = xlApp.Workbooks.Open(fileName)
    'Selection de la feuille PROMO
    Set xlSheet = xlBook.Worksheets("PROMO")
 
    ' Parcours des lignes
    Dim line As Long
    Dim nbLine As Long
 
    line = 8
    nbLine = xlSheet.Range("A65536").End(xlUp).Row
    Do While line <= nbLine
        MsgBox xlSheet.Cells(line, 10) & "  -  " & line
        line = line + 1
    Loop
 
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

Je pense qu'il est possible de faire qqch de façon beaucoup plus propre :)

Re, je sais pas si j'ai compris
un code qui parcours à partir de la ligne 8 jusque la derniere ligne pleine de la colonne A. Je donne a la variable recup le contenu de la Cellule J & line et l'affiche grace à un message box.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim line As Long Dim Derlign As Long Derlign = xlSheet.Range("A65536").End(xlUp).Row 'Avec la feuille xlsheet With xlSheet 'je parcours chaque ligne à partir de la 8eme jusque la dernière utilisée For line = 8 To Derlign ' je donne à recup la valeur de la colonne J à la ligne line recup = .Range("J" & line) 'j'affiche le contenu de recup MsgBox recup Next line End With
j'ai compris que tu souhaites récuperer une colonne en particulier apparemment la 10 eme d'apres ton code donc la colonne J .

30/04/2010, 14h40
Kawabaumga

Dans mon exemple, j'ai prit l'exemple de la colonne J mais j'ai un certain nombre d'informations à récupérer.
N'y a t'il pas d'autres moyen pour parcourir toutes les lignes que d'utiliser un compteur? :/
30/04/2010, 15h14
rvtoulon
Tu peux parcourrir chaque cellule d'une plage de cellule ou d'une colonne ou d'une ligne.
exemple pour parcourir chaque cellule d'une plage :
Code:

1 2 3 4 Set plage = Range("A8" & ":BH" & (Range("A65536").End(xlUp).Row)) For Each c In plage 'ici Ton code... Next c
30/04/2010, 15h23
Kawabaumga

Il n'y a pas de façon de récupérer chaque ligne comme une range
et pour chaque nouvelle range récupérer, accéder à une colonne particulière?

J'espère être suffisament clair
30/04/2010, 15h46
rvtoulon

Honnêtement c peux être possible mais là je vois pas.
Désolé de ne pas t'aider mieux, d'autres le feront mieux que moi :aie:
bon courage

tu pourrais faire qq chose comme :

Code:

1
2
3
4
5
6
 
intDernLigColA = Worksheets("tafeuille").Cells("A65536").End(xlUp)
 
for i = 1 to intDernLigColA 
   valeur arecuperer = Worksheets("tafeuille").range(tacolonne & i)
next i

03/05/2010, 09h09
Kawabaumga
Citation:
Envoyé par nath-0-0

tu pourrais faire qq chose comme :

Code:

1 2 3 4 5 6 intDernLigColA = Worksheets("tafeuille").Cells("A65536").End(xlUp) for i = 1 to intDernLigColA valeur arecuperer = Worksheets("tafeuille").range(tacolonne & i) next i
Ceci correspond à ce que rvtoulon a donné précédement mais en compressé :)

Je vois comment récupérer une "range" d'info. Maintenant si je récupère une range du genre "A8:K8", comment est ce que je peux accéder aux diverses données de chaque élément contenu dans cette range? A savoir que je ne peux pas procéder avec un for each...
03/05/2010, 12h02
nath-0-0
oh désolée, je n'avais pas fait attention..

Je ne comprends pas très bien ce que tu veux faire.
Avec la boucle tu peux accéder à chaque valeur de la "range".

Ensuite si tu veux d'autres infos que celle contenues dans la cellule comme par exemple savoir si elle est locked ou pas , tu mets :
Code:

1 2 bEstceLocked = Worksheets("tafeuille").range(tacolonne & i).locked
03/05/2010, 16h29
Kawabaumga

Ce que je voulais faire c'est avoir une boucle qui me permet de récupérer ligne apres ligne, et ensuite d'accéder a n'importe quelle colonne grace a son index mais... c'etait uniquement pour éviter d'avoir des Range("A"&maligne) :)