XL 2019 doublon

phddesi · 1 Janvier 2022

bonjour

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

job75 · 2 Janvier 2022

Bonjour phddesi,

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

VB:

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+

job75 · 2 Janvier 2022

Bonjour phddesi,

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

VB:

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 · 2 Janvier 2022

job75 à dit:
Bonjour phddesi,

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

VB:

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 · 2 Janvier 2022

Bonne année 2022 phddesi.

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

VB:

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 · 2 Janvier 2022

job75 à dit:
Bonjour phddesi,

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

VB:

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 · 2 Janvier 2022

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

biboka · 2 Janvier 2022

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 · 2 Janvier 2022

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 · 2 Janvier 2022

phddesi à dit:
je veux un filtre pour garder que sur les lignes jaunes

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

VB:

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

Salut biboka, riton00.

XL 2019 doublon

phddesi

XLDnaute Junior

Pièces jointes

job75

job75

XLDnaute Barbatruc

Pièces jointes

phddesi

XLDnaute Junior

job75

XLDnaute Barbatruc

Pièces jointes

phddesi

XLDnaute Junior

Pièces jointes

phddesi

XLDnaute Junior

biboka

XLDnaute Nouveau

Pièces jointes

riton00

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

XL 2019 doublon

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

Pièces jointes

XLDnaute Junior

XLDnaute Nouveau

Pièces jointes

XLDnaute Impliqué

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency