Boite de dialogue

Bonjour à tous

J aimerai inséré une boite de dialogue qui vienne remplir les infos pour effectuer un filtre. mon fichier est trop gros pour mettre un exemple, quelq'un peut il donner un coup de main, je joint ma macro dites moi si cela peut convenir.

Sub chercher()
'
' chercher Macro
Range("N4").Select
    Sheets("Mars").Select
' CETTE LIGNE CI DESSOUS A METTRE UNE BOITE 

    ActiveSheet.ListObjects("T_MARS").Range.AutoFilter Field:=1, Criteria1:= _
        "FRCDG21"
'Sélectionner la première cellule vide au bas de la colonne
 Range("A1").End(xlDown).Offset(0, 27).Select
 'partir de A1 selectionne la derniere ligne non vide se decalle de 27 colonne et remonre en a1
 ' selectionne pour revenir en A1
    Range(Selection, Cells(1)).Select
Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("A Chercher").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("M2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],INVENTAIRE!C[-11],2,FALSE)"
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillDown
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$AB$152").AutoFilter Field:=13, Criteria1:="#N/A"
    ActiveSheet.Range("$A$1:$AB$152").AutoFilter Field:=3, Criteria1:="FRCDG21"
    Columns("I:I").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("INVENTAIRE").Select
    Rows("3:300").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("T_Inventaire[[#Headers],[Unit Number]]").Select
    Sheets("A Chercher").Select
    Selection.Copy
    Sheets("INVENTAIRE").Select
    Columns("B:B").Select
    ActiveSheet.Paste

End Sub

Bonjour,

Peux-tu stp utiliser les balises de codes comme ceci : [ code ]TON CODE[ /code], (sans les espaces) de façon à ce que tout ça soit plus lisible ?

Ensuite, essaye de nous faire un fichier simplifié et anonymisé afin que l'on voit à quoi ressemble ta présentation.

Un simple code comme ça n'est pas parlant, il nous faut un support pour t'aider au mieux

Bonjour,

Quelques conseils ...

Mets ton code dans les balises (tape sur l'icone </> ci-dessus)

Indente ton code

Simplifie le après enregistrement de la macro

Et mets quand même un fichier

Maintenant si tu veux filtrer, il y a beaucoup plus simple !

edit : bonjour SlimShady69, nous sommes d'accord !

Merci les gars en effet Streelson je me suis Lancer dans une macro mais pour l’instant ça ne fonctionne pas très bien donc je suis preneur si tu as d’autres solutions merci

La solution est dans le fichier proposé, à adapter ... donne nous un bout de ton fichier si tu souhaites avoir plus d'aide. Ou sinon je t'expliquerai comment faire à partir de ma proposition.

bonjour et merci de nouveau

j envoi déjà mon fichier test que j ai reussi a reduire au mini

oups non passe pas

voila

je t explique ce que j aimerai ai 3 feuilles dans mon fichier le premier flotte active que je téléchargé chaque jour,

le deuxième inventaire, le matin je scanne mon parc a l aide d une douchette

et j aimerai que dans mon fichier "a rechercher" ca vienne me dire les voitures que j ai scanné et qui ne sont pas positionné dans mon fichier flotte comme étant sur mon parc "Check Out Location"

reviens vers moi si tu n as pas compris

D autres part que voulez vous dire part

Peux-tu stp utiliser les balises de codes comme ceci : [ code ]TON CODE[ /code], (sans les espaces) de façon à ce que tout ça soit plus lisible ?

merci

patogaze77 a écrit :

D autres part que voulez vous dire part

Peux-tu stp utiliser les balises de codes comme ceci : [ code ]TON CODE[ /code], (sans les espaces) de façon à ce que tout ça soit plus lisible ?

merci

Les balises se trouvent ,juste au-dessus de cette boite de dialogue. Il s'agit de l'icone </>

Pourquoi l'EG-525-CR est présent 2 fois ?

Quelle est la clé de recherche ?

Ajoute une colonne à ton tableau orange, avec la formule suivante

Dans la 3ème feuille

et ajoute la macro

Merci

première chose l immat en double pas grave, il peut arriver qu' un véhicule soit scanné 2 fois après je vais extraire les doublons avant traitement

deuxième chose dans la formule a quoi correspont Tableau1

patogaze77 a écrit :

deuxième chose dans la formule a quoi correspont Tableau1

Si besoin de plus de précision donne un fichier excel (pas des images)

ok j ai retranscrit ton fichier je suis largué la l exemple me parlera plus desole

Premier fichier = des images

Deuxième fichier = pas de données

Bon, je te donne le fichier que j'avais fait !

merci désole

Je n arrive pas a faire tourner la macro

je ne trouve pas l erreur

Sub Worksheet_Activate()

Sheets("inventaire").Range("Tableau2[#All").AdvancedFilter Action:=xlFiltrerCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:************k4"), Unique:=False

End Sub

cdlt

Forcément, dans ce fichier c'est

Private Sub Worksheet_Activate()
    Sheets("inventaire").Range("Tableau2[#All]").AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:J4"), _
        Unique:=False
End Sub

Bonjour J ai réussi a faire tourner le fichier impeccable, mais je n arrive pas a faire tourner la macro, elle doit fonctionner a l ouverture de la page c est bien ca?

une autre question y a t il une possibilité de créer une boite sur la macro ci dessous

ActiveSheet.ListObjects("T_MARS").Range.AutoFilter Field:=1, Criteria1:= _

"ITRFT57"

Merci encore