article

[grosdede]

Bonjour a tous en ce jour de repos un petit probléme a vous exposer et pour finir mon travail dans un tableau j'ai 4 colonnes code;designation;untite,prix comment ajouter un produits tout en evitant les doublons merci de votre réponse

 

[Tibo]

Salut Dédé,

Je suis parti du principe que le contrôle des doublons se faisait sur le code.

J'ai donc mis une validation ainsi qu'une mise en forme conditionnelle.

Regarde le fichier joint.

Reviens avec plus de précisions si pb

@+ [file name=Controle_doublons_20060417151202.zip size=1473]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Controle_doublons_20060417151202.zip[/file]

 

[Monique]

Bonjour,

Tu peux aussi mettre une mise en forme conditionnelle

Si la colonne B est ta colonne de codes et B2 la 1ère cellule saisie,
tu sélectionnes les 4 colonnes à partir de B2
Format - Mise en forme conditionnelle - Choisir 'La formule est' et taper
=NB.SI($B$1:$B1;$B2)>0

Par les 3 onglets, tu choisis ta mise en forme
puis OK 2 fois

 

[pierrejean]

bonjour grosdede

salut Tibo

mes hommages Monique

une solution par macro sur le code et la designation [file name=grosdede.zip size=7620]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/grosdede.zip[/file]

 

[grosdede]

Merci de ta reponse mais mon probleme c'est que j'ajoute un article par un formulaire en cliquant tout betement sur le premiere case et dans outil formulaire , ce n'est peut etre pas le meilleur des manieres car elle ne controle pas les doublons, a tu une meilleurs idee [file name=essai_20060417152609.zip size=1847]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20060417152609.zip[/file]

 

[grosdede]

bonjour ta solution est bonne mais comment je recupere ta macro

 

[pierrejean]

re

pas vu l'ombre d'un formulaire dans ton fichier

suis-je devenu bigleux ou y-a-t-il un truc ???

 

[grosdede]

merci encore ta solution est bonne mais je ne sais pas comment faire pour applquer cela a mon fichier

 

[pierrejean]

re

si c'est a moi que tu t'adresses ....

la voila

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If IsEmpty(Target) Then Exit Sub
derlin = Range('A65536').End(xlUp).Row
For n = 2 To derlin - 1
  If Target.Value = Cells(n, 1) Then
    Cells(n, 1).Select
    MsgBox (' ce code existe deja ici')
  End If
Next n
End If
If Target.Column = 2 Then
If IsEmpty(Target) Then Exit Sub
derlin = Range('B65536').End(xlUp).Row
For n = 2 To derlin - 1
  If Target.Value = Cells(n, 2) Then
    Cells(n, 2).Select
    MsgBox (' cette designation existe deja ici')
  End If
Next n
End If

End Sub

 

[porcinet82]

Bonjour a tous,

Grosdede si tu n'as pas réussit a trouver le code je suppose donc que tu ne seras pas quoi en faire. Donc pour le recupèrer tu fais Alt+f11 puis tu vas dans le module de la feuil1.

Pour t'en servir, tu le place dans le module de la feuille sur laquelle tu as tes données.

@+

 

[grosdede]

non je te rassure tu n'est pas bigleux mais quand je clique sur la cellule A1 ensuite je vais dans données formulaires et je rempli comme ca je fais comme je peux ou comme je decouvre merc encore a toi

 

[pierrejean]

re

la voici incorporée a ton fichier [file name=essai_20060417154525.zip size=7485]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20060417154525.zip[/file]

 

[porcinet82]

re,

Je croyais aussi etre bigleux comme mon ami PierreJean, tu me rassures donc.

Sinon PierreJean, une tite question, a quoi sert la ligne suivante dans ton code If IsEmpty(target) Then Exit Sub. Je ne saisie pas tres bien a quoi sert le IsEmpty(target).

Merci d'avance,

@+

 

[pierrejean]

hello porcinet

cette ligne est tres pragmatique

lors des test j'ais supprimé les valeurs que je venais d'entrer et bing

erreur compatibilité de type

laquelle erreur est supprimée avec la ligne en question

 

[grosdede]

peux tu me donner un peu plus d'expications je suis novice