macro pour parcourir une selection

Version imprimable

29/09/2010, 20h44
lilo2000

macro pour parcourir une selection

Bonjour,

Voilà mon projet:

L'utilisateur selectionne avec la souris une serie de lignes dans une table excel. Par exemple les lignes 6 à 15 et 22 à 33... où sont stockés des enregistrements :produit,date,prix, ref... tout ce qu'on veut..

Je clique sur un bouton et la macro m'enregistre chaque ligne dans un array.
Je récupère ainsi une selection d'enregistrements genre ligne[i][j], i numero de ligne et j numero de cellule (produit,date,prix,..).

Voilà..

Il me manque ce point de départ , une fois que j'aurais l'array je pourrais me débrouiller !

Merci pour vos idées..

Bonsoir,

Code:

1
2
3
4
5
6
' Zones sélectionnées
   Nb_zone = Selection.Areas.Count
   For iz = 1 To Nb_zone
        Lig_Deb = Selection.Areas(iz).Row
        Lig_Fin = Selection.Areas(iz).Rows.Count + Lig_Deb - 1
   Next

devrait convenir

PPz

Merci mais ...
438 :J'obtiens l'erreur proprieté ou methode non géré par cet objet

Et puis je vois pas très bien où est mon array final avec les enregistrements selectionnés..
Code:

1 2 3 4 5 6 7 Sub monboutton() Nb_zone = Selection.Areas.Count For iz = 1 To Nb_zone Lig_Deb = Selection.Areas(iz).Row Lig_Fin = Selection.Areas(iz).Rows.Count + Lig_Deb - 1 Next End Sub

Bonjour,

Si j'ai bien compris tu souhaites transformer une plage de cellule sous excel en une variable de type tableau en VBA ?

Essayes cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function GetArray() as variant
 
   dim nb_row as long,nb_col as long,i as long,j as long
   dim var_Array as variant
   dim rge_First as range
 
   set rge_First=selection.item(0)
   nb_row=selection.rows.count
   nb_col=rge_First.end(xltoright).column-rge_First.column
   redim var_Array(0 to nb_row,0 to nb_col)
 
   for i=0 to nb_row
      for j=0 to nb_col
         var_array(i,j)=rge_First.offset(i,j).value
       next j
   next i
 
   GetArray=var_Array
end function

30/09/2010, 14h06
lilo2000

Merci, c'est à peu près ça que je souhaite
Néanmoins j'ai une erreur d'exécution 1004.. sur

Code:

Set rge_First = Selection.Item(0)

De plus j'aimerais bien récupérer les numéros de ligne réelle du classeur et pas seulement les numéros d'ordre de la sélection..:roll:
30/09/2010, 14h19
AlexL.

Essaye en remplacant

Code:

selection.item(0

) par

Code:

selection.cells.item(0)

Pour l'autre chose introduit une variable deb_col valant la ligne de la première cellule, et tu changes

Code:

redim var_Array(0 to nb_row,0 to nb_col)

en

Code:

redim var_Array(0 to nb_row,deb_col to deb_col+nb_col)

et ça devrait le faire (pense également à changer le j)

J'ai trouvé finalement OUF !
La solution vient de l'aide vba d'excel et s'inspire un peu de PPz78

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
areaCount = Selection.Areas.Count ' nbre de zones selectionnées (une zone peut etre un groupe de ligne)
i=1
    For Each a In Selection.Areas
        MsgBox "Area " & i & " of the selection contains " & _
            a.Rows.Count & " rows." 'nbre de lignes dans la zone
            For j = 1 To a.Rows.Count
                MsgBox a.Rows(j).Cells(1, 2) 'affiche les cellules 2 de chaque ligne
            Next j
        i = i + 1
 
    Next a

Merci à tous !