Discussion :

[Kawabaumga]

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

[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 ).

[Kawabaumga]

Alors pour le moment voila ce que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
    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

[rvtoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

[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? :/

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set plage = Range("A8" & ":BH" & (Range("A65536").End(xlUp).Row))
For Each c In plage
'ici Ton code...
Next c