Discussion :

[lilo2000]

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

[PPz78]

Bonsoir,

Code :

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

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

[lilo2000]

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 :

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

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

[AlexL.]

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 :

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

[lilo2000]

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

Code :

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

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

[AlexL.]

Essaye en remplacant

Code :

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

selection.item(0

) par

Code :

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

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 :

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

redim var_Array(0 to nb_row,0 to nb_col)

en

Code :

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

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

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