XL 2016 son quand un doublon apparait

[sylgui2002]

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

 

[Hasco]

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

 

[job75]

Bonjour sylgui2002, Roblochon,

Voyez le fichier joint et cette macro dans le code de la feuille :

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+

 

[sylgui2002]

bonjour
merci pour les 2 versions, je vais les tester, et je reviendrais vers vous pour vous donner le verdict.

 

[sylgui2002]

re, j'ai testé les 2 et celle de job75 me crrospond le mieux, par contre commentre faire pour la textbox1 se reinitialise après chaque saisie. Car j'ai mis me.textbox1.value ="" et ca ne fonctionne pas. Merci d'avance

 

[job75]

par contre commentre faire pour la textbox1 se reinitialise après chaque saisie

Après chaque saisie sûrement pas mais pas de problème après un double-clic dans la TextBox :

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = ""
End Sub