XL 2016 son quand un doublon apparait

sylgui2002

XLDnaute Nouveau
Bonjour tout le monde,
Je viens vers vous car j'ai un problème avec une code vba que je n'arrive pas à mettre en pratique. Voilà mon problème. J'ai une liste de numéro qui correspond à des pcs. Et je voudrais que, lors des mes contrôles de rangées, si le pc apparait en rouge dans la colonne (ce qui voudrait dire qu'il est bien présent sur cette feuille); qu'un son se produise pour signifier qu'il est bien là. ca me permettrait de ne pas regarder à chaque fois sur l'ecran si la cellule est rouge. Voila un petit fichier pour expliquer un peu mieux mes propos.
Merci d'avance
 

Pièces jointes

  • exemple.xlsm
    24.7 KB · Affichages: 5

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Dans le fichier joint une plage nommée 'Numéros' et définie par la formule : =DECALER('CAR1'!$A$1;;;MAX(NBVAL('CAR1'!$A:$A);1))
et un combobox alimenté par cette plage définie et dont on ne voit pas la liste, il se comporte comme un textBox amélioré.
Si le numéro du pc est trouvé un beep et émis et le numéro de ligne est inscrit en B1.

Cordialement
 

Pièces jointes

  • Exemple.xlsm
    24.4 KB · Affichages: 12

job75

XLDnaute Barbatruc
Bonjour sylgui2002, Roblochon,

Voyez le fichier joint et cette macro dans le code de la feuille :
VB:
Private Sub TextBox1_Change()
With [A1].CurrentRegion.Columns(1)
    Select Case Application.CountIf(.Cells, TextBox1)
        Case 0: .Interior.ColorIndex = xlNone
        Case Else
            Beep 'son
            Application.ScreenUpdating = False
            .Cells(1).Insert xlDown
            With Range(.Cells(0), .Cells)
                .AutoFilter 1, TextBox1 'filtre automatique
                .SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 44 'orange
                .Cells(1).Delete xlUp
                .Parent.AutoFilterMode = False 'retire le filtre
            End With
    End Select
End With
End Sub
La macro colore toutes les occurrences.

A+
 

Pièces jointes

  • exemple(1).xlsm
    24.8 KB · Affichages: 8

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG