Modification à apporter lors d'un double clic

Bonjour,

j'aimerais faire des modifications quand je doubleclick sur un numero,
si il y a un doublons dans Entrer qu'il apparait dans doublons

ex; 2 x 3 et aussi si je RAZ ,que les numeros disparait aussi dans doublons , si possible, si je fais un mauvais numéro d'annuler le dernier numéro

Edit modo : présentation correcte d'une demande

Bonjour,

Si j'ai bien compris, votre code modifié:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim nb As Long, pl As Range, c As Range, c2 As Range
    Dim tab_entree As Range, resultat As Range, doublons As Range, tableau1 As Range
    Dim lig As Long, col As Long, i As Long, j As Long, k As Long
    If Not Intersect(Range("tableau1"), Target) Is Nothing Then
        Cancel = True
        If Application.CountIf(Range("tab_entree"), Target.Value) >= 1 Then
            nb = Application.CountA(Range("doublons"))
            Range("doublons").Cells(Int(nb / 10) + 1, nb Mod 10 + 1) = Target.Value
            Exit Sub
        End If
        nb = Application.CountA(Range("tab_entree"))
        Range("tab_entree").Cells(Int(nb / 10) + 1, nb Mod 10 + 1) = Target.Value
        lig = (Target - 1) Mod 4 + 1: col = Int((Target - 1) / 4) + 1
        For i = 9 To 24 Step 5
            Set pl = Cells(i, 7).Resize(4, 10)
            Set c = pl.Find(Target.Value, , xlValues, xlWhole)
            If c Is Nothing Then
                MsgBox "Non trouvé dans " & pl.Address
                Range("tab_entree").Cells(Int(nb / 10) + 1, nb Mod 10 + 1).ClearContents
            Else
                c.Interior.Color = vbGreen
                k = 0
                For j = 0 To 3
                    If Cells(i + j, c.Column).Interior.Color = vbGreen Then
                        k = k + 1
                    Else
                        Set c2 = Cells(i + j, c.Column)
                    End If
                Next j
                If k = 3 Then
                    c2.Interior.Color = vbRed
                    nb = Application.CountA(Range("resultat"))
                    If Application.CountIf(Range("resultat"), c2.Value) = 0 Then
                        Range("resultat").Cells(Int(nb / 10) + 1, nb Mod 10 + 1) = c2.Value
                    End If
                End If
            End If
        Next i
    End If
End Sub

Cdlt

Bonjour Arturo83

il faut qu'il inscrit dans entrer aussi.

Vos explications sont un peu brèves, ça mériterait quelques commentaires de votre part.

La seule chose que je vois c'est s'il y a des doublons les laisser dans la plage "#ENTER", c'est bien ça?

Si c'est ça alors:

Bonjour Arturo83

merci de m'aider voici 1 exemple

Bonjour,,

Alors ceci:

Cdlt

Bonjour, Arturo83

Merci encore,

c'est exactement ça que je voulais.

encore une faveur si vous voulez,

voici mon exemple

Bonjour,

Voilà;

Passez le sujet en "Résolu" si ça vous convient

Cdlt

Vos explications ne sont pas assez précises,

-doit-on effacer les valeurs correspondant aux N° en rouge dans le tableau "Résultats"?

-doit-on enlever la couleur rouge dans les 4 tableaux?

Dans le fichier joint, la couleur rouge est supprimée dans les 4 tableaux, et les n° en rouge conservés dans le tableau "Résultats".

Bonjour, Arturo83

Nouvelle explication

ton tableau 2,1 foctionne très bien c'est seulement avec les doublons

ex; si je clic 9,10,11, resultat =12,16 c'est ok

si je Rajoute le 9 qui devient doublon, ensuite

je clic sur Dernirere Entrer

le dernier 9 devrais s'effacer de mon ENTRER et du doublon

mais mon resultat 12,16 devrais rester la a cause du 9,10,11

j'espere que mon explication est meilleur

Edit modo : merci de mettre l'explication de la demande sur le fil et non dans le fichier

Bonjour michelrj

Merci de vous conformer à la charte SVP et d'exprimer vos besoins sur le fil et non dans votre fichier

Nota ; j'ai modifié le post précédent

Bonjour,

Donc, mon dernier fichier déposé hier à 12h32 fait exactement ce que vous demandez. L'avez-vous testé?

Cdlt

Bonjour , Arturo83

le fichier 2,2 c'est ok pour les doublons

mais

ex; si je clic 9,10,11,

je clic sur Dernirere Entrer

le 12,et 16 devrais dispparaitre du resultat

comme dans le fichier 2,1 parce que la suite est couper

il y a seulement 9,10 dans mon ENTRER

Bonjour,

Oui mais, auparavant, il me semble que vous aviez écrit le contraire.

Alors, je ne sais plus quoi faire.

[s=co-548dd4][/s]

Bonjour , Arturo83

voici se qui devrais se produire

si je clic 9,10,11 résultats = 12,16 doublons = rien

si je clic 9,10,11 ensuite je clic sur(Dernière Entrer) résultats = rien doublons = rien

si je clic 9,10,11,9 résultats= 12,16 doublons 9

si je clic 9,10,11,9 ensuite je clic sur (Dernière Entrer) résultat= 12,16 doublon = rien

Bonjour , Arturo83

voici se qui devrais se produire

si je clic 9,10,11 résultats = 12,16 doublons = rien

si je clic 9,10,11 ensuite je clic sur(Dernière Entrer) résultats = rien doublons = rien

si je clic 9,10,11,9 résultats= 12,16 doublons 9

si je clic 9,10,11,9 ensuite je clic sur (Dernière Entrer) résultat= 12,16 doublon = rien

Bonjour,

Ceci est-il mieux?

Passez le sujet en "Résolu" si ça vous convient.

Cdlt

Bonjour , Arturo83
C'est mieux

si je clic 9,10,11 résultats = 12,16 doublons = rien c'est ok

si je clic 9,10,11 ensuite je clic sur(Dernière Entrer) résultats = rien doublons = rien c'est ok

si je clic 9,10,11,9 résultats= 12,16 doublons 9 c'est ok

si je clic 9,10,11,9 ensuite je clic sur (Dernière Entrer) résultat= 12,16 doublon = rien c'est ok

si je clic 9,10,11,20,21,34 résultats= 12,16,27 doublons rien c'est ok

si je clic 9,10,11,20,21,34 ensuite je clic sur (Dernière Entrer)

ça devrais être résultat= 12,16 doublon = rien

Voilà, j'ai déplacé une ligne de code.