XL 2019 doublon

[phddesi]

bonjour

je souhaite de l'aide car je souhaite créer un fichier de suivi pour mon outillage.
je vous remercie d'avance

 

[job75]

Bonjour phddesi,

Voyez le fichier joint, la formule en B4 et la macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B4]) Is Nothing Then Exit Sub
Cancel = True
With Sheets("Donnée").[A:C]
    .Cells(2, 5) = "=COUNTIF(B:B,B2)>1" 'critère
    .AdvancedFilter xlFilterInPlace, .Cells(1, 5).Resize(2) 'filtre avancé
    .Cells(2, 5) = ""
    .Parent.Activate
End With
End Sub

La dernière question n'est pas claire, montrez le résultat à obtenir.

A+

 

[phddesi]

Bonjour phddesi,

Voyez le fichier joint, la formule en B4 et la macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B4]) Is Nothing Then Exit Sub
Cancel = True
With Sheets("Donnée").[A:C]
    .Cells(2, 5) = "=COUNTIF(B:B,B2)>1" 'critère
    .AdvancedFilter xlFilterInPlace, .Cells(1, 5).Resize(2) 'filtre avancé
    .Cells(2, 5) = ""
    .Parent.Activate
End With
End Sub

La dernière question n'est pas claire, montrez le résultat à obtenir.

A+

bonjour

tout d'abord bonne année à vous.

et merci j'essaie et je reviens vous.
bien cordialement

 

[job75]

Bonne année 2022 phddesi.

Pour le tri c'est peut-être ceci que vous voulez, fichier (2) :

Sub Tri_croissant()
Dim ncol%, i&, a&(), n&
Application.ScreenUpdating = False
With [Base].ListObject.Range
    If .Parent.FilterMode Then .Parent.ShowAllData 'si la feuille est filtrée
    ncol = .Columns.Count
    For i = 2 To .Rows.Count
        If .Cells(i, 1).Interior.ColorIndex = 6 Then 'couleur jaune
            ReDim Preserve a(n) 'base 0
            a(n) = i 'mémorise la ligne
            .Rows(i).Cut .Cells(i, ncol + 2)
            n = n + 1
        End If
    Next
    '---restitution---
    If n = 0 Then Exit Sub
    .Sort .Columns(1), xlAscending, Header:=xlYes 'tri croissant
    For i = 0 To UBound(a)
        .Rows(a(i)).Insert xlDown
        .Cells(a(i), ncol + 2).Resize(, ncol).Cut .Rows(a(i))
    Next
    .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime les lignes vides
    .Parent.Activate
End With
End Sub

 

[phddesi]

Bonjour phddesi,

Voyez le fichier joint, la formule en B4 et la macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B4]) Is Nothing Then Exit Sub
Cancel = True
With Sheets("Donnée").[A:C]
    .Cells(2, 5) = "=COUNTIF(B:B,B2)>1" 'critère
    .AdvancedFilter xlFilterInPlace, .Cells(1, 5).Resize(2) 'filtre avancé
    .Cells(2, 5) = ""
    .Parent.Activate
End With
End Sub

La dernière question n'est pas claire, montrez le résultat à obtenir.

A+

 

[phddesi]

je vous ai mis la réponse dans le fichier.
je veux un filtre pour garder que sur les lignes jaunes

 

[biboka]

bonjour a tous et bonne année 2022,
j'ai un petit soucis avec une formule.J'ai fais un tableau avec classement ,mais j'ai des doublons. J'e vroudrai classer les doublons par une autre collonne. C'est la que je trouve pas la solution. Je met le fichier en annexe.Merci d'avance

 

[riton00]

Bonjour le forum, biboka

Je ne vois aucun doublons sur ton tableau!!! ensuite il serait judicieux d'ouvrir un post spécifique à ta demande et non s'incruster dans un autre post qui n'est pas dédié à ta demande

Slts

 

[job75]

je veux un filtre pour garder que sur les lignes jaunes

Le filtrage par couleur est classique, voyez ce fichier (3) :

Sub Filtre_couleur()
With [Base].ListObject.Range
    .AutoFilter 1, RGB(255, 255, 0), Operator:=xlFilterCellColor
    .Parent.Activate
End With
End Sub

Salut biboka, riton00.