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