Discussion :

[patsyl77]

Bonjour,

J'utilise ce code VBA pour extraire des donné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
23
24
25
26
27
28
Private Sub ExtraireEAlt_Click()
Dim ongletA As Worksheet, ongletB As Worksheet
Dim celluleRecherche As range
Dim premiereAdresse As String
 
    Set ongletA = ThisWorkbook.Sheets("C_PP") 'Feuille source
    Set ongletB = ThisWorkbook.Sheets("TabDefauts") 'Feuille destination
 
 
    Set celluleRecherche = ongletA.Columns("AJ").Find("1", , xlValues, xlWhole, , , False)
                        'Colonne ou se trouve la condition + Find("la condition
 
    If Not celluleRecherche Is Nothing Then
        premiereAdresse = celluleRecherche.Address
 
 
        Do 'ongletB.range("Colonne ou vont se coller les valeurs
            ongletB.range("K" & ongletB.Rows.Count).End(xlUp).Offset(1, 0).Value = ongletA.range("AK" & celluleRecherche.Row)
                                                                    'Colonne ou se trouve la valeur à copier si condition Ok
 
 
            Set celluleRecherche = ongletA.Columns("AJ").FindNext(celluleRecherche)
                                        'Colonne ou se trouve la condition
 
        Loop Until celluleRecherche.Address = premiereAdresse
    End If
 
End Sub

La fonction ne me renvoie plus les informations recherchées lorsques les colonnes qui me servent à filtrer mes données sont masquées.

Comment puis-je forcer le calcul en améliorant ce code sans avoir à démasquer les colonnes manuellement ?

Je vous remmercie de votre aide par avance.

Cordialement,
PatSyl77

[patricktoulon]

bonjour


un truc très simple ça serai de mettre les colonne que tu a cacher a visible et
mettre leurs width a "0"
ce qui corespond a les rendre invisibles a l'oeil mais accessible en vba



au plaisir

[patsyl77]

Bonjour,

Patrick merci pour ton aide, en fait j'ai beaucoup de données à visualiser sur mon tableur.
J'ai réduit la largeur des colonnes à 1 pour que VBA puisse voir les filtres qui se trouvent dans ces colonnes, ce qui revient un peu au même que ta solution.
Mon tableur n'est cependant pas très convivial comme ça.
En fait je cherche à modifier cette macro pour qu'elle puisse travailler sur les colonnes masquées qui me donneront ainsi plus de visibilité et de clarté à mon tableur.

Cordialement,

PatSyl77

[patricktoulon]

bonjour
je comprend plus ce que tu veux

tu me dis que tu a un tableau avec des colonnes que tu veux garder masquer
mais cependant tu veux pouvoir les modifier

je te dis de les mettre a zéro au niveau de l'affichage ça reviens a la même chose que les masquer sauf que tu peut travailler dessus par macro


enfin il faut être un peu plus clair si tu veux une réponse adaptée


au plaisir

bon comme je vois que tu persiste a vouloir garder des colonne masquées alors
a suposer que sa soit les colonnes E et G

a l'activate tu sheets
Columns("E:G").EntireColumn.Hidden = True

et ta macro

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
27
28
29
30
31
32
 
Private Sub ExtraireEAlt_Click()
application.screenupdating=false
Columns("E:G").EntireColumn.Hidden = False
 
Dim ongletA As Worksheet, ongletB As Worksheet
Dim celluleRecherche As range
Dim premiereAdresse As String
 
    Set ongletA = ThisWorkbook.Sheets("C_PP") 'Feuille source
    Set ongletB = ThisWorkbook.Sheets("TabDefauts") 'Feuille destination
 
 
    Set celluleRecherche = ongletA.Columns("AJ").Find("1", , xlValues, xlWhole, , , False)
                        'Colonne ou se trouve la condition + Find("la condition
 
    If Not celluleRecherche Is Nothing Then
        premiereAdresse = celluleRecherche.Address
 
 
        Do 'ongletB.range("Colonne ou vont se coller les valeurs
            ongletB.range("K" & ongletB.Rows.Count).End(xlUp).Offset(1, 0).Value = ongletA.range("AK" & celluleRecherche.Row)
                                                                    'Colonne ou se trouve la valeur à copier si condition Ok
 
 
            Set celluleRecherche = ongletA.Columns("AJ").FindNext(celluleRecherche)
                                        'Colonne ou se trouve la condition
 
        Loop Until celluleRecherche.Address = premiereAdresse
    End If
 Columns("E:G").EntireColumn.Hidden = True
End Sub

au plaisir