triage des dossiers

[geronimo35]

bonjour,
avec avoir parcouru pas mal le forum, j'ai crée un document excel pour crée des fiches de travail ,
tout mes dossiers se range bien comme il faut dans ma feuille , je les crées en cliquant sur "entrer les renseignements".
maintenant , mon but est de lorsque j'inscrit "OK dans la colonne J , ma ligne correspondante s'efface de la feuille "liste" pour s'inscrire dans la feuille "dossiers pointés "
voila, pour l'instant , c'est mon petit souci , il y en a d'autre , entrez la date en automatique , mais je vais continuez a farfouillé se forum tres interessant.

 

[Fred0o]

Re : triage des dossiers

Bonsoir geronimo35,

Sub à mettre dans la feuille "liste" :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [J4:J10000]) Is Nothing And Target.Count = 1 Then
        Target.Offset(0, -8).Range("A1:H1").Copy Sheets("DOSSIERS Pointés").Range("B" & Sheets("DOSSIERS Pointés").Range("B10000").End(xlUp).Row + 1)
        Target.Offset(0, -8).Range("A2:I10000").Copy Target.Offset(0, -8)
    End If
End Sub

A+

 

[mapomme]

Re : triage des dossiers

Bonsoir

Tout pareil que Fred0o avec un peu plus de lignes.

 

[geronimo35]

Re : triage des dossiers

bonjour,
tout a fait ce que je voulais faire,
je m'entetais avec un bouton alors qu'il y'en a pas besion,

maintenant, je voudrais que dans la feuille "dossiers pointés", le classement se range automatiquement suivant la colonne C : numero

j'ai trouvé cela :

Sub Macro1()

   Range("B2:J41").Select

    Selection.Sort Key1:=Range("I2"), Order1:=xlDescending, Key2:=Range("H2") _
        , Order2:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False _
        , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
    Range("a1").Select
End Sub

mais sa ne fonctionne pas

merci

 

[JCGL]

Re : triage des dossiers

Bonjour à tous,

A la suite du code l'ami Fred :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [J4:J10000]) Is Nothing And Target.Count = 1 Then
        Target.Offset(0, -8).Range("A1:H1").Copy Sheets("DOSSIERS Pointés").Range("B" & Sheets("DOSSIERS Pointés").Range("B10000").End(xlUp).Row + 1)
        Target.Offset(0, -8).Range("A2:I10000").Copy Target.Offset(0, -8)
    End If
    With ActiveWorkbook.Worksheets("DOSSIERS Pointés")
        Range("B3:I1000").Select
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("C4:C1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange Range("B3:I1000")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        Range("B4").Select
    End With
End Sub

A + à tous

 

[geronimo35]

Re : triage des dossiers

bonjour JCGL

j'ai essayé de faire la manip mais la je bug,

j'ai mis les deux sub a suivre , c'est surement pas ce qu'il faut faire .

 

[JCGL]

Re : triage des dossiers

Bonjour à tous,

Le code déposé remplace le code de Fred0o

A + à tous

 

[geronimo35]

Re : triage des dossiers

bonjour et merci,

comment inserer le petit onglet dans la colonne J😡

 

[JCGL]

Re : triage des dossiers

Bonjour à tous,

C'est une liste de validation
Je n'ai plus XL 2007 mais fais une recherche dans le ruban

A + à tous