Discussion :

[sofiafav]

Bonjour à tout le monde,

Je suis nouvelle dans le forum et vraiment novice en excel vba (j'ai commencé hier )
J'aurais voulu trier deux bases (j'ai copié juste quelques lignes, en réalité elles sont énormes) à partir d'un critère et les sortir dans deux autres feuilles du même classeur.
1. J'ai 5 onglets, la première avec l'interface, ici il faudrait rentrer un numéro
2.Il faudrait chercher dans la première base (onglet flo) y filtrer a partir de ce numéro (cont en colonne A) y ramener toutes ces lignes dans la feuille résultats flo
3.même principe que 2 mais en utilisant l'autre base (onglet ass) y ramener toutes ces lignes dans la feuille résultats ass.

Je ne sais pas si c'est clair, je vous remercie d'avance de tous vos commentaires

Je vous ajoute le fichier test

A plus,

Sofia

[sofiafav]

En fait j'ai réussi à faire mon code et il fonctionne bien, le voilà pour si quelqu'un veut s'en servir.


Private Sub CommandButton1_Click()

If TextBox1.Text = "" Then
MsgBox "Vous devez renseigner la case."
Exit Sub
End If
'Liste de Sinistres
Sheets("flo").Select
Range("Q1") = TextBox1.Value

selection.AutoFilter Field:=1, Criteria1:=Range("Q1"), Operator:=xlAnd

Cells.Select
selection.Copy
Sheets("résultats flo").Select
Range("A1").Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select

'Liste de Sinistres Assistance

Sheets("assist").Select
Range("Q1") = TextBox1.Value

selection.AutoFilter Field:=1, Criteria1:=Range("Q1"), Operator:=xlAnd

Cells.Select
selection.Copy
Sheets("résultats ass").Select
Range("A1").Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save

End Sub


Par contre, j'ai une question, j'aimerais que me feuilles flo et assist soient des feuilles cachées mais si je les cache, la macro ne fonctionne plus, quelqu'un pourrais m'aider?

merci d'avance

Sofia