Discussion :

[philpas3]

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 :

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

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 :

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

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

[Pierre Fauconnier]

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 :

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

[pgz]

Bonsoir.

Tu peux essayer

Code :

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

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

PGZ

[Pierre Fauconnier]

Bonsoir.

Tu peux essayer

Code :

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

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

[pgz]

As-tu testé?

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

PGZ

[pgz]

J'ai testé et cela ne marche pas.

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

Code :

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

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

[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

[Pierre Fauconnier]

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