Bonjour,
Je travaille Excel 2013,
J'ai besoin du filtre automatique "#N/A" dans la colonne "F", si filtrer le "#N/A" aucune donnée avec l'en-tête, "Goto 0 :" le code fait...
mais, mon code ne fonctionne pas, goto 0:
Sous-testss()
'Insérer un filtre et #N/A Copier et Coller
'VBA - Désactiver le filtre automatique à partir du code
Si ActiveSheet.AutoFilterMode Alors
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Activer le filtre automatique
Si fin
'Filtre automatique des cellules vides de la 2e colonne
Atténuer LastRow aussi longtemps
LastRow = Range("B" & Rows.Count).End(xlUp).Row
On Error Resume Next 'if filter then no data go next
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Cellules non applicables filtrer puis sélectionner les cellules visibles
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select
'Arrête le copier-coller si la plage filtrée n'a pas de données
Si Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Alors
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
'Faire quelque chose de code.........
Application.CutCopyMode = Faux
autre
ActiveSheet.AutoFilterMode=Faux
Aller à 0 :
Si fin
'Faire quelque chose de code.........
0:
End Sub
Merci de m'aider merci d'avance
Arrêtez le copier-coller si la plage filtrée n'a pas de data.zip
Arrêtez le copier-coller si la plage filtrée n'a pas de data.zip
Je travaille Excel 2013,
J'ai besoin du filtre automatique "#N/A" dans la colonne "F", si filtrer le "#N/A" aucune donnée avec l'en-tête, "Goto 0 :" le code fait...
mais, mon code ne fonctionne pas, goto 0:
Sous-testss()
'Insérer un filtre et #N/A Copier et Coller
'VBA - Désactiver le filtre automatique à partir du code
Si ActiveSheet.AutoFilterMode Alors
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Activer le filtre automatique
Si fin
'Filtre automatique des cellules vides de la 2e colonne
Atténuer LastRow aussi longtemps
LastRow = Range("B" & Rows.Count).End(xlUp).Row
On Error Resume Next 'if filter then no data go next
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Cellules non applicables filtrer puis sélectionner les cellules visibles
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select
'Arrête le copier-coller si la plage filtrée n'a pas de données
Si Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Alors
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
'Faire quelque chose de code.........
Application.CutCopyMode = Faux
autre
ActiveSheet.AutoFilterMode=Faux
Aller à 0 :
Si fin
'Faire quelque chose de code.........
0:
End Sub
Merci de m'aider merci d'avance
Arrêtez le copier-coller si la plage filtrée n'a pas de data.zip
Arrêtez le copier-coller si la plage filtrée n'a pas de data.zip