doublons

Hervé

XLDnaute Barbatruc

• 20 Octobre 2005

• #2

Bonjour charli, le forum



Place le code suivant dans le module de ta feuille 2

Clique droit sur le nom de l'onglet, puis visualiser le code.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range

If Target.Count > 1 Then Exit Sub

If Intersect(Target, Columns('c')) Is Nothing Then Exit Sub

    With Sheets('feuil1')
    Set place = .Range('c6:c' & .Range('c65536').End(xlUp).Row).Find(Target)
        If Not place Is Nothing Then
            MsgBox 'Pas bon.'
            Target.Select
            Application.EnableEvents = False
            Target.Clear
            Application.EnableEvents = True
        End If
    End With

       
   
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

C

charli

Guest

• 20 Octobre 2005

• #3

Merci beaucoup.
je fais cela (j'espère y arriver) et je te donne les résultats.
merci
charli

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 20 Octobre 2005

• #4

Bonjour le Forum,
Bonjour charli, Hervé,

une fois de plus jolie Macro Hervé

bon moi un essai en passant par les données validation.

Jocelyn [file name=charli.zip size=2730]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/charli.zip[/file]

 

Pièces jointes

• charli.zip

  2.7 KB · Affichages: 13

Vote positif 0 Vote négatif

C

charli

Guest

• 20 Octobre 2005

• #5

bonjour Jocelyn

merci à vous deux, çà marche au poil et en plus, j'ai le choix.

merci et bonne journée
charli

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 20 Octobre 2005

• #6

Bonsoir tout le monde

Ah ouais pas mal du tout la liste de validation, bien plus simple que mon gros code.

c'est tout en finesse cette astuce.

merci

salut

 

Vote positif 0 Vote négatif

C

charli

Guest

• 21 Octobre 2005

• #7

bonjour à tous

j'ai donc utilisé la validation 'personnalisé' mais j'ai rencontré un problème.

si j'entre le 80 dans la feuille 2 et qu'il y a 180 dans la feuille 1, alors il refuse.

merci et bonne journée
charli

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 21 Octobre 2005

• #8

re Bonjour,

je ne comprends pas pourquoi il te refuse 80 si 180 est enregistré dans l'autre feuille je viens de faire l'essai sur le fichier que je t'avais envoyé et je n'ai eut aucun problème.

si ton fichier n'est pas trop lourd joint le

Jocelyn

Hervé merci de ton appréciation

 

Vote positif 0 Vote négatif

C

charli

Guest

• 21 Octobre 2005

• #9

merci pour ta réponse Jocelyn.

je vois celà, peut-être cet après-midi maintenant.

bon appétit
charli

 

Vote positif 0 Vote négatif

C

charli

Guest

• 21 Octobre 2005

• #10

voici le fichier vrai et intégral
charli

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 21 Octobre 2005

• #11

re bonjour

et non le fichier n'est pas passé

Jocelyn

 

Vote positif 0 Vote négatif

C

charli

Guest

• 21 Octobre 2005

• #12

excuses

 

Vote positif 0 Vote négatif

C

charli

Guest

• 21 Octobre 2005

• #13

décidément !!!!!

 

Vote positif 0 Vote négatif

C

charli

Guest

• 21 Octobre 2005

• #14

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 21 Octobre 2005

• #15

re,

regarde le tutoriel pour joindre un fichier :

Lien supprimé



Jocelyn

 

Vote positif 0 Vote négatif