Bonjour,
J'aimerai comprendre pourquoi avec la macro ci-dessous quand je m ets un
critère de recherche sur une colonne, dans mon cas la colonne A, avec u n
filtre automatique et que le résultat trouve rien, ma macro m'indiqu e un
nombre de cellules visibles de plus 1670000 au lieu de 0 cellules visible s
comme je l'espérais . Le problème se pose uniquement dans ce cas sino n elle
fonctionne correctement si on peut dire.
Je ne souhaite pas une autre solution de votre part mais j'aimera i
comprendre mon erreur avant tout sur cette macro. Merci pour ceux qui m'o nt
apporté une autre solution mais ce n'est pas ce que je souhaite aujourd 'hui.
Merci d'avance pour votre aide.
Sub CellulesVisibles()
'
' Permet de savoir le nombre de cellules visibles suite au filtre
automatique
'
Dim Rng As Object
Dim NumRowsFiltre As Long
Set Rng = ActiveSheet.Range("A1:A" & Range("A" & Rows.Count).End(xlUp). Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
MsgBox "Il y a :" & NumRowsFiltre & " cellule(s) de visbile(s)"
Set Rng = Nothing
End Sub
Bonjour,
J'aimerai comprendre pourquoi avec la macro ci-dessous quand je m ets un
critère de recherche sur une colonne, dans mon cas la colonne A, avec u n
filtre automatique et que le résultat trouve rien, ma macro m'indiqu e un
nombre de cellules visibles de plus 1670000 au lieu de 0 cellules visible s
comme je l'espérais . Le problème se pose uniquement dans ce cas sino n elle
fonctionne correctement si on peut dire.
Je ne souhaite pas une autre solution de votre part mais j'aimera i
comprendre mon erreur avant tout sur cette macro. Merci pour ceux qui m'o nt
apporté une autre solution mais ce n'est pas ce que je souhaite aujourd 'hui.
Merci d'avance pour votre aide.
Sub CellulesVisibles()
'
' Permet de savoir le nombre de cellules visibles suite au filtre
automatique
'
Dim Rng As Object
Dim NumRowsFiltre As Long
Set Rng = ActiveSheet.Range("A1:A" & Range("A" & Rows.Count).End(xlUp). Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
MsgBox "Il y a :" & NumRowsFiltre & " cellule(s) de visbile(s)"
Set Rng = Nothing
End Sub
Bonjour,
J'aimerai comprendre pourquoi avec la macro ci-dessous quand je m ets un
critère de recherche sur une colonne, dans mon cas la colonne A, avec u n
filtre automatique et que le résultat trouve rien, ma macro m'indiqu e un
nombre de cellules visibles de plus 1670000 au lieu de 0 cellules visible s
comme je l'espérais . Le problème se pose uniquement dans ce cas sino n elle
fonctionne correctement si on peut dire.
Je ne souhaite pas une autre solution de votre part mais j'aimera i
comprendre mon erreur avant tout sur cette macro. Merci pour ceux qui m'o nt
apporté une autre solution mais ce n'est pas ce que je souhaite aujourd 'hui.
Merci d'avance pour votre aide.
Sub CellulesVisibles()
'
' Permet de savoir le nombre de cellules visibles suite au filtre
automatique
'
Dim Rng As Object
Dim NumRowsFiltre As Long
Set Rng = ActiveSheet.Range("A1:A" & Range("A" & Rows.Count).End(xlUp). Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
MsgBox "Il y a :" & NumRowsFiltre & " cellule(s) de visbile(s)"
Set Rng = Nothing
End Sub
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
***L'étendue de toute ta variable Rng est représentée par la première
cellule A1 jusqu'à la dernière cellule Ax
***Comme tu n'as pas d'enregistrement visible sur ta plage de données
Range("A1:A").....) se trouve à représenter toute la colonne A:A et en
plus
tu demandes de retourner toutes les cellules visibles (une sorte d'union
entre A1:A65536 et toutes les cellules visibles)
Il t'aurait suffi d'écrire :
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row).SpecialCells(xlVisible)
NumRowsFiltre = Rng.Rows.Count - 1
Et là ça fait toute la différence ! ;-))
Non seulement tu limites l'étendue de la variable Rng à A1:Ax mais
explicitement
aux cellules visibles de cette plage... c'est très "différent" de ton
autre syntaxe !
seulement le nombre de cellules visibles dans ta plage Rng
tu as cette opportunité :
Msgbox ActiveSheet.AutoFilter.Range.SpecialCells(xlVisible).Count - 1
Tu pourrais aussi utiliser :
ActiveSheet.Range("_FilterDataBase").SpecialCells(xlVisible).Count
("_FilterDataBase") est une plage nommée qu'excel crée au moment de
l'exécution du filtre de toute la plage sur laquelle le filtre prenait
place.
Cette plage nommée est redéfini à chaque fois que le filtre est exécuté.
Ce nom "_FilterDatBase" n'est pas visible par l'interface de calcul, mais
exécute cette ligne de code et tu va le voir !
'------------------------------
For Each n In ActiveWorkbook.Names
MsgBox n.Name
Next
'-------------------------------
En VBA, tu peux créer un nom et le rendre non visible, regarde les
paramètres de "Add" dans Names.ADD...
Ou
Msgbox application.subtotal(.......)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
"olivier" a écrit dans le message de groupe de
discussion :
4989c359$0$4085$
Bonjour,
J'aimerai comprendre pourquoi avec la macro ci-dessous quand je mets un
critère de recherche sur une colonne, dans mon cas la colonne A, avec un
filtre automatique et que le résultat trouve rien, ma macro m'indique un
nombre de cellules visibles de plus 1670000 au lieu de 0 cellules visibles
comme je l'espérais . Le problème se pose uniquement dans ce cas sinon
elle
fonctionne correctement si on peut dire.
Je ne souhaite pas une autre solution de votre part mais j'aimerai
comprendre mon erreur avant tout sur cette macro. Merci pour ceux qui
m'ont
apporté une autre solution mais ce n'est pas ce que je souhaite
aujourd'hui.
Merci d'avance pour votre aide.
Sub CellulesVisibles()
'
' Permet de savoir le nombre de cellules visibles suite au filtre
automatique
'
Dim Rng As Object
Dim NumRowsFiltre As Long
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
MsgBox "Il y a :" & NumRowsFiltre & " cellule(s) de visbile(s)"
Set Rng = Nothing
End Sub
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
***L'étendue de toute ta variable Rng est représentée par la première
cellule A1 jusqu'à la dernière cellule Ax
***Comme tu n'as pas d'enregistrement visible sur ta plage de données
Range("A1:A").....) se trouve à représenter toute la colonne A:A et en
plus
tu demandes de retourner toutes les cellules visibles (une sorte d'union
entre A1:A65536 et toutes les cellules visibles)
Il t'aurait suffi d'écrire :
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row).SpecialCells(xlVisible)
NumRowsFiltre = Rng.Rows.Count - 1
Et là ça fait toute la différence ! ;-))
Non seulement tu limites l'étendue de la variable Rng à A1:Ax mais
explicitement
aux cellules visibles de cette plage... c'est très "différent" de ton
autre syntaxe !
seulement le nombre de cellules visibles dans ta plage Rng
tu as cette opportunité :
Msgbox ActiveSheet.AutoFilter.Range.SpecialCells(xlVisible).Count - 1
Tu pourrais aussi utiliser :
ActiveSheet.Range("_FilterDataBase").SpecialCells(xlVisible).Count
("_FilterDataBase") est une plage nommée qu'excel crée au moment de
l'exécution du filtre de toute la plage sur laquelle le filtre prenait
place.
Cette plage nommée est redéfini à chaque fois que le filtre est exécuté.
Ce nom "_FilterDatBase" n'est pas visible par l'interface de calcul, mais
exécute cette ligne de code et tu va le voir !
'------------------------------
For Each n In ActiveWorkbook.Names
MsgBox n.Name
Next
'-------------------------------
En VBA, tu peux créer un nom et le rendre non visible, regarde les
paramètres de "Add" dans Names.ADD...
Ou
Msgbox application.subtotal(.......)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
"olivier" <atchoum67@voila.fr> a écrit dans le message de groupe de
discussion :
4989c359$0$4085$ba4acef3@news.orange.fr...
Bonjour,
J'aimerai comprendre pourquoi avec la macro ci-dessous quand je mets un
critère de recherche sur une colonne, dans mon cas la colonne A, avec un
filtre automatique et que le résultat trouve rien, ma macro m'indique un
nombre de cellules visibles de plus 1670000 au lieu de 0 cellules visibles
comme je l'espérais . Le problème se pose uniquement dans ce cas sinon
elle
fonctionne correctement si on peut dire.
Je ne souhaite pas une autre solution de votre part mais j'aimerai
comprendre mon erreur avant tout sur cette macro. Merci pour ceux qui
m'ont
apporté une autre solution mais ce n'est pas ce que je souhaite
aujourd'hui.
Merci d'avance pour votre aide.
Sub CellulesVisibles()
'
' Permet de savoir le nombre de cellules visibles suite au filtre
automatique
'
Dim Rng As Object
Dim NumRowsFiltre As Long
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
MsgBox "Il y a :" & NumRowsFiltre & " cellule(s) de visbile(s)"
Set Rng = Nothing
End Sub
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
***L'étendue de toute ta variable Rng est représentée par la première
cellule A1 jusqu'à la dernière cellule Ax
***Comme tu n'as pas d'enregistrement visible sur ta plage de données
Range("A1:A").....) se trouve à représenter toute la colonne A:A et en
plus
tu demandes de retourner toutes les cellules visibles (une sorte d'union
entre A1:A65536 et toutes les cellules visibles)
Il t'aurait suffi d'écrire :
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row).SpecialCells(xlVisible)
NumRowsFiltre = Rng.Rows.Count - 1
Et là ça fait toute la différence ! ;-))
Non seulement tu limites l'étendue de la variable Rng à A1:Ax mais
explicitement
aux cellules visibles de cette plage... c'est très "différent" de ton
autre syntaxe !
seulement le nombre de cellules visibles dans ta plage Rng
tu as cette opportunité :
Msgbox ActiveSheet.AutoFilter.Range.SpecialCells(xlVisible).Count - 1
Tu pourrais aussi utiliser :
ActiveSheet.Range("_FilterDataBase").SpecialCells(xlVisible).Count
("_FilterDataBase") est une plage nommée qu'excel crée au moment de
l'exécution du filtre de toute la plage sur laquelle le filtre prenait
place.
Cette plage nommée est redéfini à chaque fois que le filtre est exécuté.
Ce nom "_FilterDatBase" n'est pas visible par l'interface de calcul, mais
exécute cette ligne de code et tu va le voir !
'------------------------------
For Each n In ActiveWorkbook.Names
MsgBox n.Name
Next
'-------------------------------
En VBA, tu peux créer un nom et le rendre non visible, regarde les
paramètres de "Add" dans Names.ADD...
Ou
Msgbox application.subtotal(.......)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
"olivier" a écrit dans le message de groupe de
discussion :
4989c359$0$4085$
Bonjour,
J'aimerai comprendre pourquoi avec la macro ci-dessous quand je mets un
critère de recherche sur une colonne, dans mon cas la colonne A, avec un
filtre automatique et que le résultat trouve rien, ma macro m'indique un
nombre de cellules visibles de plus 1670000 au lieu de 0 cellules visibles
comme je l'espérais . Le problème se pose uniquement dans ce cas sinon
elle
fonctionne correctement si on peut dire.
Je ne souhaite pas une autre solution de votre part mais j'aimerai
comprendre mon erreur avant tout sur cette macro. Merci pour ceux qui
m'ont
apporté une autre solution mais ce n'est pas ce que je souhaite
aujourd'hui.
Merci d'avance pour votre aide.
Sub CellulesVisibles()
'
' Permet de savoir le nombre de cellules visibles suite au filtre
automatique
'
Dim Rng As Object
Dim NumRowsFiltre As Long
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
MsgBox "Il y a :" & NumRowsFiltre & " cellule(s) de visbile(s)"
Set Rng = Nothing
End Sub
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
***L'étendue de toute ta variable Rng est représentée par la première
cellule A1 jusqu'à la dernière cellule Ax
***Comme tu n'as pas d'enregistrement visible sur ta plage de données
Range("A1:A").....) se trouve à représenter toute la colonne A:A et en
plus
tu demandes de retourner toutes les cellules visibles (une sorte d'union
entre A1:A65536 et toutes les cellules visibles)
Il t'aurait suffi d'écrire :
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row).SpecialCells(xlVisible)
NumRowsFiltre = Rng.Rows.Count - 1
Et là ça fait toute la différence ! ;-))
Non seulement tu limites l'étendue de la variable Rng à A1:Ax mais
explicitement
aux cellules visibles de cette plage... c'est très "différent" de ton
autre syntaxe !
seulement le nombre de cellules visibles dans ta plage Rng
tu as cette opportunité :
Msgbox ActiveSheet.AutoFilter.Range.SpecialCells(xlVisible).Count - 1
Tu pourrais aussi utiliser :
ActiveSheet.Range("_FilterDataBase").SpecialCells(xlVisible).Count
("_FilterDataBase") est une plage nommée qu'excel crée au moment de
l'exécution du filtre de toute la plage sur laquelle le filtre prenait
place.
Cette plage nommée est redéfini à chaque fois que le filtre est exécuté.
Ce nom "_FilterDatBase" n'est pas visible par l'interface de calcul, mais
exécute cette ligne de code et tu va le voir !
'------------------------------
For Each n In ActiveWorkbook.Names
MsgBox n.Name
Next
'-------------------------------
En VBA, tu peux créer un nom et le rendre non visible, regarde les
paramètres de "Add" dans Names.ADD...
Ou
Msgbox application.subtotal(.......)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
"olivier" a écrit dans le message de groupe de
discussion :
4989c359$0$4085$
Bonjour,
J'aimerai comprendre pourquoi avec la macro ci-dessous quand je mets un
critère de recherche sur une colonne, dans mon cas la colonne A, avec un
filtre automatique et que le résultat trouve rien, ma macro m'indique un
nombre de cellules visibles de plus 1670000 au lieu de 0 cellules visibles
comme je l'espérais . Le problème se pose uniquement dans ce cas sinon
elle
fonctionne correctement si on peut dire.
Je ne souhaite pas une autre solution de votre part mais j'aimerai
comprendre mon erreur avant tout sur cette macro. Merci pour ceux qui
m'ont
apporté une autre solution mais ce n'est pas ce que je souhaite
aujourd'hui.
Merci d'avance pour votre aide.
Sub CellulesVisibles()
'
' Permet de savoir le nombre de cellules visibles suite au filtre
automatique
'
Dim Rng As Object
Dim NumRowsFiltre As Long
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
MsgBox "Il y a :" & NumRowsFiltre & " cellule(s) de visbile(s)"
Set Rng = Nothing
End Sub
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
***L'étendue de toute ta variable Rng est représentée par la première
cellule A1 jusqu'à la dernière cellule Ax
***Comme tu n'as pas d'enregistrement visible sur ta plage de données
Range("A1:A").....) se trouve à représenter toute la colonne A:A et en
plus
tu demandes de retourner toutes les cellules visibles (une sorte d'union
entre A1:A65536 et toutes les cellules visibles)
Il t'aurait suffi d'écrire :
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row).SpecialCells(xlVisible)
NumRowsFiltre = Rng.Rows.Count - 1
Et là ça fait toute la différence ! ;-))
Non seulement tu limites l'étendue de la variable Rng à A1:Ax mais
explicitement
aux cellules visibles de cette plage... c'est très "différent" de ton
autre syntaxe !
seulement le nombre de cellules visibles dans ta plage Rng
tu as cette opportunité :
Msgbox ActiveSheet.AutoFilter.Range.SpecialCells(xlVisible).Count - 1
Tu pourrais aussi utiliser :
ActiveSheet.Range("_FilterDataBase").SpecialCells(xlVisible).Count
("_FilterDataBase") est une plage nommée qu'excel crée au moment de
l'exécution du filtre de toute la plage sur laquelle le filtre prenait
place.
Cette plage nommée est redéfini à chaque fois que le filtre est exécuté.
Ce nom "_FilterDatBase" n'est pas visible par l'interface de calcul, mais
exécute cette ligne de code et tu va le voir !
'------------------------------
For Each n In ActiveWorkbook.Names
MsgBox n.Name
Next
'-------------------------------
En VBA, tu peux créer un nom et le rendre non visible, regarde les
paramètres de "Add" dans Names.ADD...
Ou
Msgbox application.subtotal(.......)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
"olivier" <atchoum67@voila.fr> a écrit dans le message de groupe de
discussion :
4989c359$0$4085$ba4acef3@news.orange.fr...
Bonjour,
J'aimerai comprendre pourquoi avec la macro ci-dessous quand je mets un
critère de recherche sur une colonne, dans mon cas la colonne A, avec un
filtre automatique et que le résultat trouve rien, ma macro m'indique un
nombre de cellules visibles de plus 1670000 au lieu de 0 cellules visibles
comme je l'espérais . Le problème se pose uniquement dans ce cas sinon
elle
fonctionne correctement si on peut dire.
Je ne souhaite pas une autre solution de votre part mais j'aimerai
comprendre mon erreur avant tout sur cette macro. Merci pour ceux qui
m'ont
apporté une autre solution mais ce n'est pas ce que je souhaite
aujourd'hui.
Merci d'avance pour votre aide.
Sub CellulesVisibles()
'
' Permet de savoir le nombre de cellules visibles suite au filtre
automatique
'
Dim Rng As Object
Dim NumRowsFiltre As Long
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
MsgBox "Il y a :" & NumRowsFiltre & " cellule(s) de visbile(s)"
Set Rng = Nothing
End Sub
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
***L'étendue de toute ta variable Rng est représentée par la première
cellule A1 jusqu'à la dernière cellule Ax
***Comme tu n'as pas d'enregistrement visible sur ta plage de données
Range("A1:A").....) se trouve à représenter toute la colonne A:A et en
plus
tu demandes de retourner toutes les cellules visibles (une sorte d'union
entre A1:A65536 et toutes les cellules visibles)
Il t'aurait suffi d'écrire :
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row).SpecialCells(xlVisible)
NumRowsFiltre = Rng.Rows.Count - 1
Et là ça fait toute la différence ! ;-))
Non seulement tu limites l'étendue de la variable Rng à A1:Ax mais
explicitement
aux cellules visibles de cette plage... c'est très "différent" de ton
autre syntaxe !
seulement le nombre de cellules visibles dans ta plage Rng
tu as cette opportunité :
Msgbox ActiveSheet.AutoFilter.Range.SpecialCells(xlVisible).Count - 1
Tu pourrais aussi utiliser :
ActiveSheet.Range("_FilterDataBase").SpecialCells(xlVisible).Count
("_FilterDataBase") est une plage nommée qu'excel crée au moment de
l'exécution du filtre de toute la plage sur laquelle le filtre prenait
place.
Cette plage nommée est redéfini à chaque fois que le filtre est exécuté.
Ce nom "_FilterDatBase" n'est pas visible par l'interface de calcul, mais
exécute cette ligne de code et tu va le voir !
'------------------------------
For Each n In ActiveWorkbook.Names
MsgBox n.Name
Next
'-------------------------------
En VBA, tu peux créer un nom et le rendre non visible, regarde les
paramètres de "Add" dans Names.ADD...
Ou
Msgbox application.subtotal(.......)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
"olivier" a écrit dans le message de groupe de
discussion :
4989c359$0$4085$
Bonjour,
J'aimerai comprendre pourquoi avec la macro ci-dessous quand je mets un
critère de recherche sur une colonne, dans mon cas la colonne A, avec un
filtre automatique et que le résultat trouve rien, ma macro m'indique un
nombre de cellules visibles de plus 1670000 au lieu de 0 cellules visibles
comme je l'espérais . Le problème se pose uniquement dans ce cas sinon
elle
fonctionne correctement si on peut dire.
Je ne souhaite pas une autre solution de votre part mais j'aimerai
comprendre mon erreur avant tout sur cette macro. Merci pour ceux qui
m'ont
apporté une autre solution mais ce n'est pas ce que je souhaite
aujourd'hui.
Merci d'avance pour votre aide.
Sub CellulesVisibles()
'
' Permet de savoir le nombre de cellules visibles suite au filtre
automatique
'
Dim Rng As Object
Dim NumRowsFiltre As Long
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
NumRowsFiltre = Rng.SpecialCells(xlVisible).Count - 1
MsgBox "Il y a :" & NumRowsFiltre & " cellule(s) de visbile(s)"
Set Rng = Nothing
End Sub
> Il t'aurait suffi d'écrire :
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row).SpecialCells(xlVisible)
NumRowsFiltre = Rng.Rows.Count - 1
> Il t'aurait suffi d'écrire :
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row).SpecialCells(xlVisible)
NumRowsFiltre = Rng.Rows.Count - 1
> Il t'aurait suffi d'écrire :
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row).SpecialCells(xlVisible)
NumRowsFiltre = Rng.Rows.Count - 1
Il t'aurait suffi d'écrire :
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row).SpecialCells(xlVisible)
NumRowsFiltre = Rng.Rows.Count - 1
Il t'aurait suffi d'écrire :
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row).SpecialCells(xlVisible)
NumRowsFiltre = Rng.Rows.Count - 1
Il t'aurait suffi d'écrire :
Set Rng = ActiveSheet.Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row).SpecialCells(xlVisible)
NumRowsFiltre = Rng.Rows.Count - 1