Discussion :

[Sianne]

Bonjour à tous,

Ayant très peu de connaissance en VBA, je sollicite votre aide pour résoudre mon problème, étant persuadé que mon cas est très simple pour vous !
Dans le fichier ci-joint, je souhaite dans l'onglet "RESULTAT" afficher toutes les lignes de la "BASE DE SAISIE" qui comportent un "x" dans la colonne "lignes à conserver".
A chaque fois qu'une personne rajoute un "x", la ligne s'affiche dans l'onglet "RESULTAT".
Il faut absolument que je garde la même ligne entre les deux onglets, c'est pourquoi, j'ai commencé à enregistrer une macro en filtrant les données de la colonne A de l'onglet "RESULTAT".

Code :

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

1
2
3
4
5
6
7
Sub essai()
'
' essai Macro
'
    ActiveSheet.ListObjects("RESULTAT").Range.AutoFilter Field:=1, Criteria1:= _
        "x"
End Sub

Je vous remercie par avance pour votre aide et reste à votre disposition pour tt complément d'information,
Bonne journée
SC

[fraflt69]

Bonjour

A tester

Code :

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

1
2
3
4
5
6
Sub CopierDonnéesFiltrées()
 
Worksheets("RESULTAT").ListObjects("RESULTAT").DataBodyRange.Delete
Worksheets("BASE DE SAISIE").ListObjects("BD_SAISIE").Range.AutoFilter field:=1, Criteria1:="=x"
Range("BD_SAISIE").SpecialCells(xlCellTypeVisible).Copy Sheets("RESULTAT").Range("A3")
End Sub

[Sianne]

Bonjour,

ça marche, un grand MERCI !
Cela va beaucoup m'aider
Bon week-end à vous

[Sianne]

Re bonjour,
Désolé de revenir vers vous.
Je n'ai pas assez clair dans mes explications.
Il faut que les lignes dans l'onglet "RESULTAT" soient les mêmes que dans "BASE DE SAISIE"
A titre d'exemple, je dois retrouver le produit B article b1 qui se trouve sur la ligne 5 de la base de saisie, sur la ligne 5 dans l'onglet "RESULTAT".
Les lignes vides dans RESULTAT sont masquées.

En espérant que vous trouviez une solution,
bonne fin de journée
SC