mémoriser une plage de cellule

Version imprimable

16/02/2009, 20h57
philpas3

mémoriser une plage de cellule
Bonjour,
Je débute en vba et j'ai encore beaucoup de lacune. Je voudrais mémoriser une plage de cellule dans un tableau de façon a mettre par la suite le contenu du tableau dans une listbox. J'ai trouvé ça sur le net
Code:

1 2 Dim Tableau_Plage_Titre As Variant Tableau_Plage_Titre = ActiveSheet.Range("A4:AM4")
après avec Tableau_Plage_Titre(i, j), je peux resortir les valeurs.
Mon problème est que sur cette plage "A4:AM4", j'ai des colonnes de masqué et ça ne me sert à rien de tout mémoriser.
Y a t-il une écriture qui permet de dire par exemple

Code:

Tableau_Plage_Titre = ActiveSheet.Range("A4:AM4").colonne visible

j'ai bien vu un truc de type SpecialCells(xlVisible) mais apparemment c'est que pour des lignes.
Je voudrais un truc simple

merci

Bonjour.

Simple, je ne sais pas. Je ne vois comme technique que l'itération sur les lignes et colonnes en excluant les masquées

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Test2()
    Dim Plage As Range
    ReDim Tableau(1, 1)
    Dim i As Long, j As Long
    Dim Ligne As Long, Colonne As Long
 
    Set Plage = Range("C5:g8")
    ReDim Tableau(1 To Plage.Columns(1).Cells.SpecialCells(xlCellTypeVisible).Count, 1 To Plage.Rows(1).Cells.SpecialCells(xlCellTypeVisible).Count)
    For i = 1 To Plage.Columns(1).Cells.Count
        If Plage.Cells(i, 1).EntireRow.Hidden = False Then
            Ligne = Ligne + 1
            Colonne = 0
            For j = 1 To Plage.Rows(1).Cells.Count
                If Plage.Cells(1, j).EntireColumn.Hidden = False Then
                    Colonne = Colonne + 1
                    Tableau(Ligne, Colonne) = Plage.Cells(i, j).Value
                End If
            Next j
        End If
    Next i
 
End Sub

Il faut adapter la plage ou la passer en paramètres

16/02/2009, 21h38
pgz

Bonsoir.

Tu peux essayer

Code:

Tableau_Plage_Titre = ActiveSheet.Range("A4:AM4").SpecialCells(xlCellTypeVisible)

PGZ
16/02/2009, 21h41
Pierre Fauconnier

Citation:

Envoyé par pgz

Bonsoir.

Tu peux essayer

Code:

Tableau_Plage_Titre = ActiveSheet.Range("A4:AM4").SpecialCells(xlCellTypeVisible)

PGZ

As-tu testé?

Ca ne fonctionne pas chez moi, sinon, je ne me serais pas amusé à écrire une macro... ;)
16/02/2009, 21h42
philpas3

merci

Merci de ton aide. Je devais poser la question avant de me lancer car souvent un code que j'écris en 10 lignes se résume parfois à une ligne.
Je vais utilise ton code.
Merci
16/02/2009, 21h47
Pierre Fauconnier

Citation:

Envoyé par philpas3

Merci de ton aide. Je devais poser la question avant de me lancer car souvent un code que j'écris en 10 lignes se résume parfois à une ligne.
Je vais utilise ton code.
Merci

Hum... As-tu essayé?
16/02/2009, 22h50
pgz

Citation:

Envoyé par Pierre Fauconnier

As-tu testé?

Non. Je proposais d'essayer, mais je n'ai pas testé.

PGZ

J'ai testé et cela ne marche pas.

Dans le cas simple d'une ligne (A4:AM24), on peut faire

Code:

1
2
3
4
5
6
7
8
9
Dim rng As Excel.Range, monTab() As Variant, i As Integer
 
Set rng = Application.ThisWorkbook.Worksheets("NomFeuille").Range("A4:AM4").SpecialCells(xlCellTypeVisible)
 
ReDim monTab(1 To 1, 1 To rng.Count)
 
For i = 1 To rng.Count
    monTab(1, i) = rng(1, i)
Next i

J'ai testé.

PGZ