Discussion :

[cobra38]

Bonjour à tous,

Un petit souci que certains d'autres vous qualifieraient de basic

J'ai un tableau de x colonnes
Je souhaite recopier les lignes automatiquement après l'appui sur un bouton "ajout'
Jusque là tout va bien mais lorsque j'effectue un filtre sur une colonne cela ne marche plus
un petit fichier joint sera je pense plus explicite


Votre aide me serait précieuse

Merci encore par avance

A+

[Invité]

Bonjour,

C'est normal, le code :

Code :

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

DerLig = Range("A65500").End(xlUp).Row + 1

ne vous renvoie pas obligatoirement la dernière ligne renseignée en colonne A, en fonction de ce que votre filtre affiche.

Faites un essai en pas-à-pas en filtrant les lignes vides.

la variable DerLig renverra = 4

Deux solutions :

réafficher tout :

Code :

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

1
2
3
4
If Worksheets("Feuil1").FilterMode = True Then
    Worksheets("Feuil1").ShowAllData
End If
DerLig = Range("A65500").End(xlUp).Row + 1

ou (ce code renvoie la dernière ligne renseignée même s'il y a des lignes vides entre des lignes renseignées et/ou si les lignes sont filtrées. Regardez ici les explications de Ouskel'n'or : http://www.developpez.net/forums/sho...d.php?t=331890).

Code :

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

DerLig = Range("A1").SpecialCells(xlCellTypeLastCell).Row+1

[cobra38]

Merci encore pour les explications

En fait , si je rajoute toutes les lignes , je perd l'interet de pouvoir effectuer une recopie de la ligne qui m'interesse
Le filtrage me permet de selectionner la ligne à recopier
Une autre solution serait peut-être de filtrer et de selectionner par une case à cocher la ligne à recopier
Mais là je ne sais pas faire........


A+

[Invité]

OK, mais justement avez-vous essayé simplement la 2ème solution qui est (et donc de ne pas utiliser du tout la 1ère solution) :

Code :

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

DerLig = Range("A1").SpecialCells(xlCellTypeLastCell).Row+1

au lieu de :

Code :

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

DerLig = Range("A65500").End(xlUp).Row + 1

[cobra38]

Oui , je viens de refaire un essai
cela se traduit toujours par la prise en compte de la dernière ligne
autrement dit , il ne tient pas compte du filtre donc des données filtrées

désolé
A+

[Pierre Fauconnier]

A ce stade de la discussion, pourrais-tu repréciser en français ce que tu souhaites réaliser?

[fring]

Bonsoir tlm,

Il y a un truc qui me chipote dans le code du fichier joint, dans un premier temps on copie la ligne de la cellule active

Code :

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

1
2
If Not Intersect(ActiveCell, Range("A5:D" & DerLig)) Is Nothing Then
    Range(Cells(Lig, "A"), Cells(Lig, "D")).Copy Destination:=Cells(DerLig, "A")

et ensuite on écrase les valeurs de cette ligne copiée par :

Code :

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

1
2
3
4
    Cells(DerLig, "A") = Cells(DerLig - 1, "A")
    Cells(DerLig, "B") = Cells(DerLig - 1, "B")
    Cells(DerLig, "C") = Cells(DerLig - 1, "C")
    Cells(DerLig, "D") = Cells(DerLig - 1, "D")

Pierre (que je salue au passage ) à raison de demander plus de précisions parce que là c'est nébuleux.

[cobra38]

Mon problème est donc le suivant :

Je souhaite rajouter une ligne de façon automatique ( bouton ) en recopiant les données de la dernière ligne active
La ligne recopiée est le resultat d'un filtre actif à partir d'une colonne quelconque


A+

[Pierre Fauconnier]

Bonjour

Si j'ai bien compris, voici un code qui recopie la dernière ligne visible suite à un tri sur la ligne qui suit la dernière ligne utilisée en A...

Code :

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

1
2
    Range("a65536").End(xlUp).EntireRow.Copy _
        Destination:=Range(Range("a65536").End(xlUp)(2), Range("a65536")).SpecialCells(xlCellTypeVisible)(1)

Est-ce cela que tu souhaites?

[cobra38]

Nickel..................

Mille et un mercis pour ce code d'enfer
mais quelques explications pour le neofite que je suis me permettrait de ne pas appliquer sans comprendre
Peux-tu si j'osais me donner la démarche qui t'a amenée à ce resultat
et surtout pourquoi le code proposait ne fonctionner pas


Encore merci à tous pour cet aide

A+

[Pierre Fauconnier]

Puisque l'on doit copier la dernière ligne visible à la suite de l'application du filtre, on est d'accord que la cellule visible suivante est forcément vide, et est forcément celle qui suit la toute dernière cellule saisie, masquée ou pas. C'est dans cette cellule (ou ligne) que l'on copiera la dernière valeur visible.

Il est acquis que

Code :

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

Range("a65536").End(xlUp)

pointe vers la dernière cellule visible en A.

Il faut donc sélectionner la première cellule visible qui suit celle-là. Pour cela, on va déterminer la plage des cellules visibles entre la ligne qui suit la dernière visible remplie (la dernière du filtre, donc) et le bas de la colonne.
On obtient cette plage de cellules en utilisant un objet Range avec une syntaxe différente que lorsque l'on renvoie l'adresse directe d'une plage. La syntaxe utilisée ici passe deux cellules en arguments de l'objet Range, la cellule du coin supérieur gauche et la cellule du coin inférieur droit de la plage, grâce à

Code :

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

Range(Range("a65536").End(xlUp)(2), Range("a65536")).SpecialCells(xlCellTypeVisible)

. Cette plage renverra toujours (sauf si saisie sur 65536 lignes) plusieurs cellules. Il faut pointer vers la première de cette plage, ce qui est fait en ajoutant (1) à la plage, pour "isoler" la première cellule de cette plage...

Pour une compatibilité XL2007, on peut utiliser le code

Code :

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

1
2
Range("a" & Rows.Count).End(xlUp).EntireRow.Copy _
        Destination:=Range(Range("a" & Rows.Count).End(xlUp)(2), Range("a" & Rows.Count)).SpecialCells(xlCellTypeVisible)(1)

qui tient compte du nombre de lignes disponibles sur une feuille, quelle que soit la version XL utilisée.
Ok?

[cobra38]

Merci tes explications

Je mesure ici le chemin qui me separe de l'excellence

Bravo et merci encore à tous pour ce forum et votre aide précieuse..

A+

[Pierre Fauconnier]

Il y avait peut-être plus simple, mais je n'ai pas trouvé...

Bonne continuation