Discussion :

[KekeStreet]

Bonjour,

j'utilise

Code :

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

Cells(Rows.Count, 1).End(xlUp).Row

pour trouver la dernière ligne non vide d'une colonne. Le problème est que si un filtre est actif, et bien ça renvoie la dernière ligne non vide affichée, la réelle dernière ligne non vide pouvant se retrouver masquée par le filtre.

utiliser UsedRange est encore plus dégeulasse..

Existe-il une solution "propre" ? (c'est à dire mis à part recoder une fonction qui va checker les lignes qui suivent..)

[fring]

Bonjour,

Si tu n'as qu'une seule colonne filtrée ou si toutes les colonnes filtrées possèdent le même nombre de ligne tu peux utiliser ceci :

Code :

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

Range("_filterdatabase").Rows.Count + 1

[KekeStreet]

Cette solution est tout simplement géniale merci
Je n'ai pas compris le +1 mais maintenant j'utilise la propriété range directement sans chercher les lignes ou les colonnes.

Mais j'ai un autre problème, encore avec ces môdits filtres.. si actifs, la moindre tentative de travail dans des tableau se solde par un délire "randomesque" au moment ou on écrit les données du tableau dans le classeur.

Exemple :

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
Sub Taste()
    Dim dataBase() As Variant
 
    'Charger les données
    ReDim dataBase(Worksheets.Count)
    For s = 1 To Worksheets.Count
        With Worksheets(s)
            dataBase(s) = .Range("_filterdatabase")
        End With
    Next s
 
    'Modifier les données
    '[...]
 
    'Ecrire les données
    For s = 1 To Worksheets.Count
        With Worksheets(s)
            .Range("_filterdatabase") = dataBase(s)
        End With
    Next s
    Erase dataBase
 
End Sub

Testé sur un classeur avec 2 feuilles, chacune de ces feuilles contenaient le même tableau, des titres avec filtres, quelques lignes.. sur la feuille ou les filtres ne sont pas actifs tout se passe normalement, celle ou un filtre est actif, et bien à partir de la première ligne cachée ça rempli la feuille n'importe comment

[KekeStreet]

Re,

j'ai trouvé un truc "bricolage" mais qui marche

Suffit d'enregistrer ces foutus filtres, les supprimer avant de copier le tableau, puis de les remettre.

Mais bon c'est bien galère et ça ralonge le code de quelques dizaines de lignes. J'aurais aimé qu'un raccourcit existe.

Bref résolu.

[fring]

Je n'ai pas compris le +1

Cela permet de connaître la première cellule vide sous la plage filtrée, si tu souhaites avoir la dernière cellule, de la plage filtrée, contenant une valeur il suffit de ne pas mettre "+1"