XL 2019 Copier ligne entière en fonction d'une cellule

D

danielco

XLDnaute Accro

• 28 Janvier 2021

• #2

Bonjour,

Si les données ne sont pas effacées de la feuille de base, elles vont se recopier à chaque exécution de la macro ?

Daniel

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 28 Janvier 2021

• #3

Salut, sans un fichier ( édulcoré ), difficile de vous donner un coup de main .
Nous n'avons certainement pas tous les éléments circonstanciels .
Je suppose qu'il y a une clé ou une date d'enregistrement pour chaque ligne de produit pour éviter ce qu'a fait remarqué @danielco avec pertinence.

 

Vote positif 0 Vote négatif

O

oliverfull

XLDnaute Nouveau

• 29 Janvier 2021

• #4

Salut Daniel,

je fais un filtre par un click sur un bouton et sur la feuille il n' y a que les les éléments filtrés qui sont visibles. Ce sont ces derniers que je copies et je colle sur une autre feuille pour imprimer. Par exemple, si je choisis tous les noms commençant par A à la cellule A, le filtre n'affiche que ces noms et je copie pour transférer les données dans une feuille pour impression. Sinon une autre solution est faire le filtre sur listbox à partir d'un comboBox et n'imprimer uniquement que les données affichés. j'espère que mes explications pourront aider. Merci d'avance

 

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 29 Janvier 2021

• #5

Bonsoir,

Ce sont ces derniers que je copies et je colle sur une autre feuille pour imprimer.

Cliquez pour agrandir...

Au lieu de faire cela tu fais directement un filtre élaboré sur la feuille concernée de façon très rapide et sûre.

 

Vote positif 0 Vote négatif

O

oliverfull

XLDnaute Nouveau

• 30 Janvier 2021

• #6

Salut,

en pièce jointe le fichier exemple

merci d'avance

 

Pièces jointes

• FICHIER EXEMPLE.xlsx

  9.7 KB · Affichages: 22

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 30 Janvier 2021

• #7

Avec la valeur voulue (encaissement ou décaissement) en I1 :

VB:

Sub text()
  Dim Plage As Range
  Application.ScreenUpdating = False
  With Sheets("Feuil1")
    Set Plage = .Range("A2", .Cells(.Rows.Count, 2).End(xlUp)).Resize(, 6)
    Plage.AutoFilter
    Plage.AutoFilter 2, .[I1]
    Set Plage = Plage.SpecialCells(xlCellTypeVisible)
    Plage.Copy Sheets("Feuil2").[A1]
  End With
  Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

O

oliverfull

XLDnaute Nouveau

• 30 Janvier 2021

• #8

Salut danielco

Je suis en train de vérifier. je te fais signe si ca marche
Merci

 

Vote positif 0 Vote négatif