Bonsoir à tous le monde
Pour valider une cellule de la plage b17 à b32 j’utilise une liste
(Données>Validation>Liste) Formule=ListeClients
Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque je
sélectionne une deuxième fois un code qui figure déjà
Dans une cellule de la plage b17 à b32 un message m’averti que ce code et
déjà saisi.
J’ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n’a
pas marché.
Je voulais éviter les doublons lors de la sélection
'----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub If Application.CountIf([b17:b32], Target) > 1 Then MsgBox "Existant" Target = "" End If End Sub '----------- Salutations JJ
"ABED HADDOU" a écrit dans le message de news:
Bonsoir à tous le monde Pour valider une cellule de la plage b17 à b32 j'utilise une liste (Données>Validation>Liste) Formule=ListeClients Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque je
sélectionne une deuxième fois un code qui figure déjà Dans une cellule de la plage b17 à b32 un message m'averti que ce code et déjà saisi. J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n 'a
pas marché.
Merci par d'avance
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'-----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub
If Application.CountIf([b17:b32], Target) > 1 Then
MsgBox "Existant"
Target = ""
End If
End Sub
'-----------
Salutations
JJ
"ABED HADDOU" <ABEDHADDOU@discussions.microsoft.com> a écrit dans le message
de news:2D4C3E4E-FE6E-48B8-B275-212D5724994A@microsoft.com...
Bonsoir à tous le monde
Pour valider une cellule de la plage b17 à b32 j'utilise une liste
(Données>Validation>Liste) Formule=ListeClients
Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque
je
sélectionne une deuxième fois un code qui figure déjà
Dans une cellule de la plage b17 à b32 un message m'averti que ce code et
déjà saisi.
J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n
'a
Je voulais éviter les doublons lors de la sélection
'----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub If Application.CountIf([b17:b32], Target) > 1 Then MsgBox "Existant" Target = "" End If End Sub '----------- Salutations JJ
"ABED HADDOU" a écrit dans le message de news:
Bonsoir à tous le monde Pour valider une cellule de la plage b17 à b32 j'utilise une liste (Données>Validation>Liste) Formule=ListeClients Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque je
sélectionne une deuxième fois un code qui figure déjà Dans une cellule de la plage b17 à b32 un message m'averti que ce code et déjà saisi. J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n 'a
pas marché.
Merci par d'avance
Abed_H
ABED HADDOU
Bonjour * Jacky * et merci pour ta réponse mais je cherche une une solution par excel (formule) quelque chose du genre = nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub If Application.CountIf([b17:b32], Target) > 1 Then MsgBox "Existant" Target = "" End If End Sub '----------- Salutations JJ
"ABED HADDOU" a écrit dans le message de news:
Bonsoir à tous le monde Pour valider une cellule de la plage b17 à b32 j'utilise une liste (Données>Validation>Liste) Formule=ListeClients Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque je
sélectionne une deuxième fois un code qui figure déjà Dans une cellule de la plage b17 à b32 un message m'averti que ce code et déjà saisi. J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n 'a
pas marché.
Merci par d'avance
Abed_H
Bonjour * Jacky * et merci pour ta réponse
mais je cherche une une solution par excel (formule) quelque chose du genre
= nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'-----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub
If Application.CountIf([b17:b32], Target) > 1 Then
MsgBox "Existant"
Target = ""
End If
End Sub
'-----------
Salutations
JJ
"ABED HADDOU" <ABEDHADDOU@discussions.microsoft.com> a écrit dans le message
de news:2D4C3E4E-FE6E-48B8-B275-212D5724994A@microsoft.com...
Bonsoir à tous le monde
Pour valider une cellule de la plage b17 à b32 j'utilise une liste
(Données>Validation>Liste) Formule=ListeClients
Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque
je
sélectionne une deuxième fois un code qui figure déjà
Dans une cellule de la plage b17 à b32 un message m'averti que ce code et
déjà saisi.
J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n
'a
Bonjour * Jacky * et merci pour ta réponse mais je cherche une une solution par excel (formule) quelque chose du genre = nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub If Application.CountIf([b17:b32], Target) > 1 Then MsgBox "Existant" Target = "" End If End Sub '----------- Salutations JJ
"ABED HADDOU" a écrit dans le message de news:
Bonsoir à tous le monde Pour valider une cellule de la plage b17 à b32 j'utilise une liste (Données>Validation>Liste) Formule=ListeClients Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque je
sélectionne une deuxième fois un code qui figure déjà Dans une cellule de la plage b17 à b32 un message m'averti que ce code et déjà saisi. J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n 'a
pas marché.
Merci par d'avance
Abed_H
Jacky
Re... Ben, si la plage est déjà occupée par une "validation liste" Amha c'est la seule solution ou alors une MFC et la peinturlurer en rouge. Ou alors j'ai pas compris.
JJ
"ABED HADDOU" a écrit dans le message de news:
Bonjour * Jacky * et merci pour ta réponse mais je cherche une une solution par excel (formule) quelque chose du genre
= nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub
If Application.CountIf([b17:b32], Target) > 1 Then MsgBox "Existant" Target = "" End If End Sub '----------- Salutations JJ
"ABED HADDOU" a écrit dans le message
de news:
Bonsoir à tous le monde Pour valider une cellule de la plage b17 à b32 j'utilise une liste (Données>Validation>Liste) Formule=ListeClients Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque
je
sélectionne une deuxième fois un code qui figure déjà Dans une cellule de la plage b17 à b32 un message m'averti que ce code et
déjà saisi. J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n
'a
pas marché.
Merci par d'avance
Abed_H
Re...
Ben, si la plage est déjà occupée par une "validation liste"
Amha c'est la seule solution ou alors une MFC et la peinturlurer en rouge.
Ou alors j'ai pas compris.
JJ
"ABED HADDOU" <ABEDHADDOU@discussions.microsoft.com> a écrit dans le message
de news:FA6DDE32-C0DB-4658-928E-5DB6A3A2010B@microsoft.com...
Bonjour * Jacky * et merci pour ta réponse
mais je cherche une une solution par excel (formule) quelque chose du
genre
= nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'-----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit
Sub
If Application.CountIf([b17:b32], Target) > 1 Then
MsgBox "Existant"
Target = ""
End If
End Sub
'-----------
Salutations
JJ
"ABED HADDOU" <ABEDHADDOU@discussions.microsoft.com> a écrit dans le
message
de news:2D4C3E4E-FE6E-48B8-B275-212D5724994A@microsoft.com...
Bonsoir à tous le monde
Pour valider une cellule de la plage b17 à b32 j'utilise une liste
(Données>Validation>Liste) Formule=ListeClients
Je voulais éviter les doublons lors de la sélection c'est-à-dire
lorsque
je
sélectionne une deuxième fois un code qui figure déjà
Dans une cellule de la plage b17 à b32 un message m'averti que ce code
et
déjà saisi.
J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais
cà n
Re... Ben, si la plage est déjà occupée par une "validation liste" Amha c'est la seule solution ou alors une MFC et la peinturlurer en rouge. Ou alors j'ai pas compris.
JJ
"ABED HADDOU" a écrit dans le message de news:
Bonjour * Jacky * et merci pour ta réponse mais je cherche une une solution par excel (formule) quelque chose du genre
= nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub
If Application.CountIf([b17:b32], Target) > 1 Then MsgBox "Existant" Target = "" End If End Sub '----------- Salutations JJ
"ABED HADDOU" a écrit dans le message
de news:
Bonsoir à tous le monde Pour valider une cellule de la plage b17 à b32 j'utilise une liste (Données>Validation>Liste) Formule=ListeClients Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque
je
sélectionne une deuxième fois un code qui figure déjà Dans une cellule de la plage b17 à b32 un message m'averti que ce code et
déjà saisi. J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n
'a
pas marché.
Merci par d'avance
Abed_H
JB
Bonjour,
http://cjoint.com/?gwlNIPSPfl
En colonne A, un item ne peut pas être choisi plusieurs fois -On crée une liste différence entre la liste de base et la liste de ceux déjà choisis. Sélectionner E2:E8 =INDEX(ListeTous;PETITE.VALEUR(SI(ESTNA(EQUIV(ListeTous;ListeChoisis;0)); EQUIV(ListeTous;ListeTous;0);"");LIGNE(INDIRECT("1:"&LIGNES(ListeTous))))) Valider avec Maj+Ctrl+entrée
Listes en A2:A5: Données/Validation/Liste ÞCALER($E$2;;;NB.SI($E$2:$E$7;"<>#NOMBRE!"))
Cordialement JB
Bonjour * Jacky * et merci pour ta réponse mais je cherche une une solution par excel (formule) quelque chose du gen re = nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exi t Sub If Application.CountIf([b17:b32], Target) > 1 Then MsgBox "Existant" Target = "" End If End Sub '----------- Salutations JJ
"ABED HADDOU" a écrit dans le message de news:
Bonsoir à tous le monde Pour valider une cellule de la plage b17 à b32 j'utilise une liste (Données>Validation>Liste) Formule=ListeClients Je voulais éviter les doublons lors de la sélection c'est-à-dir e lorsque je
sélectionne une deuxième fois un code qui figure déjà Dans une cellule de la plage b17 à b32 un message m'averti que ce c ode et déjà saisi. J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients ) mais cà n 'a
pas marché.
Merci par d'avance
Abed_H
Bonjour,
http://cjoint.com/?gwlNIPSPfl
En colonne A, un item ne peut pas être choisi plusieurs fois
-On crée une liste différence entre la liste de base et la liste de
ceux déjà choisis.
Sélectionner E2:E8
=INDEX(ListeTous;PETITE.VALEUR(SI(ESTNA(EQUIV(ListeTous;ListeChoisis;0)); EQUIV(ListeTous;ListeTous;0);"");LIGNE(INDIRECT("1:"&LIGNES(ListeTous)))))
Valider avec Maj+Ctrl+entrée
Listes en A2:A5: Données/Validation/Liste
=DECALER($E$2;;;NB.SI($E$2:$E$7;"<>#NOMBRE!"))
Cordialement JB
Bonjour * Jacky * et merci pour ta réponse
mais je cherche une une solution par excel (formule) quelque chose du gen re
= nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'-----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exi t Sub
If Application.CountIf([b17:b32], Target) > 1 Then
MsgBox "Existant"
Target = ""
End If
End Sub
'-----------
Salutations
JJ
"ABED HADDOU" <ABEDHADDOU@discussions.microsoft.com> a écrit dans le message
de news:2D4C3E4E-FE6E-48B8-B275-212D5724994A@microsoft.com...
Bonsoir à tous le monde
Pour valider une cellule de la plage b17 à b32 j'utilise une liste
(Données>Validation>Liste) Formule=ListeClients
Je voulais éviter les doublons lors de la sélection c'est-à-dir e lorsque
je
sélectionne une deuxième fois un code qui figure déjà
Dans une cellule de la plage b17 à b32 un message m'averti que ce c ode et
déjà saisi.
J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients ) mais cà n
'a
En colonne A, un item ne peut pas être choisi plusieurs fois -On crée une liste différence entre la liste de base et la liste de ceux déjà choisis. Sélectionner E2:E8 =INDEX(ListeTous;PETITE.VALEUR(SI(ESTNA(EQUIV(ListeTous;ListeChoisis;0)); EQUIV(ListeTous;ListeTous;0);"");LIGNE(INDIRECT("1:"&LIGNES(ListeTous))))) Valider avec Maj+Ctrl+entrée
Listes en A2:A5: Données/Validation/Liste ÞCALER($E$2;;;NB.SI($E$2:$E$7;"<>#NOMBRE!"))
Cordialement JB
Bonjour * Jacky * et merci pour ta réponse mais je cherche une une solution par excel (formule) quelque chose du gen re = nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exi t Sub If Application.CountIf([b17:b32], Target) > 1 Then MsgBox "Existant" Target = "" End If End Sub '----------- Salutations JJ
"ABED HADDOU" a écrit dans le message de news:
Bonsoir à tous le monde Pour valider une cellule de la plage b17 à b32 j'utilise une liste (Données>Validation>Liste) Formule=ListeClients Je voulais éviter les doublons lors de la sélection c'est-à-dir e lorsque je
sélectionne une deuxième fois un code qui figure déjà Dans une cellule de la plage b17 à b32 un message m'averti que ce c ode et déjà saisi. J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients ) mais cà n 'a
pas marché.
Merci par d'avance
Abed_H
Jacky
Bonjour JB Chapeau pour le fichier joint. Il y a de quoi faire. Merci JJ
"JB" a écrit dans le message de news: Bonjour,
http://cjoint.com/?gwlNIPSPfl
En colonne A, un item ne peut pas être choisi plusieurs fois -On crée une liste différence entre la liste de base et la liste de ceux déjà choisis. Sélectionner E2:E8 =INDEX(ListeTous;PETITE.VALEUR(SI(ESTNA(EQUIV(ListeTous;ListeChoisis;0));EQU IV(ListeTous;ListeTous;0);"");LIGNE(INDIRECT("1:"&LIGNES(ListeTous))))) Valider avec Maj+Ctrl+entrée
Listes en A2:A5: Données/Validation/Liste ÞCALER($E$2;;;NB.SI($E$2:$E$7;"<>#NOMBRE!"))
Cordialement JB
Bonjour * Jacky * et merci pour ta réponse mais je cherche une une solution par excel (formule) quelque chose du genre
= nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub
If Application.CountIf([b17:b32], Target) > 1 Then MsgBox "Existant" Target = "" End If End Sub '----------- Salutations JJ
"ABED HADDOU" a écrit dans le message
de news:
Bonsoir à tous le monde Pour valider une cellule de la plage b17 à b32 j'utilise une liste (Données>Validation>Liste) Formule=ListeClients Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque
je
sélectionne une deuxième fois un code qui figure déjà Dans une cellule de la plage b17 à b32 un message m'averti que ce code et
déjà saisi. J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n
'a
pas marché.
Merci par d'avance
Abed_H
Bonjour JB
Chapeau pour le fichier joint.
Il y a de quoi faire.
Merci
JJ
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1150969393.455944.275900@r2g2000cwb.googlegroups.com...
Bonjour,
http://cjoint.com/?gwlNIPSPfl
En colonne A, un item ne peut pas être choisi plusieurs fois
-On crée une liste différence entre la liste de base et la liste de
ceux déjà choisis.
Sélectionner E2:E8
=INDEX(ListeTous;PETITE.VALEUR(SI(ESTNA(EQUIV(ListeTous;ListeChoisis;0));EQU
IV(ListeTous;ListeTous;0);"");LIGNE(INDIRECT("1:"&LIGNES(ListeTous)))))
Valider avec Maj+Ctrl+entrée
Listes en A2:A5: Données/Validation/Liste
ÞCALER($E$2;;;NB.SI($E$2:$E$7;"<>#NOMBRE!"))
Cordialement JB
Bonjour * Jacky * et merci pour ta réponse
mais je cherche une une solution par excel (formule) quelque chose du
genre
= nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'-----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit
Sub
If Application.CountIf([b17:b32], Target) > 1 Then
MsgBox "Existant"
Target = ""
End If
End Sub
'-----------
Salutations
JJ
"ABED HADDOU" <ABEDHADDOU@discussions.microsoft.com> a écrit dans le
message
de news:2D4C3E4E-FE6E-48B8-B275-212D5724994A@microsoft.com...
Bonsoir à tous le monde
Pour valider une cellule de la plage b17 à b32 j'utilise une liste
(Données>Validation>Liste) Formule=ListeClients
Je voulais éviter les doublons lors de la sélection c'est-à-dire
lorsque
je
sélectionne une deuxième fois un code qui figure déjà
Dans une cellule de la plage b17 à b32 un message m'averti que ce code
et
déjà saisi.
J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais
cà n
Bonjour JB Chapeau pour le fichier joint. Il y a de quoi faire. Merci JJ
"JB" a écrit dans le message de news: Bonjour,
http://cjoint.com/?gwlNIPSPfl
En colonne A, un item ne peut pas être choisi plusieurs fois -On crée une liste différence entre la liste de base et la liste de ceux déjà choisis. Sélectionner E2:E8 =INDEX(ListeTous;PETITE.VALEUR(SI(ESTNA(EQUIV(ListeTous;ListeChoisis;0));EQU IV(ListeTous;ListeTous;0);"");LIGNE(INDIRECT("1:"&LIGNES(ListeTous))))) Valider avec Maj+Ctrl+entrée
Listes en A2:A5: Données/Validation/Liste ÞCALER($E$2;;;NB.SI($E$2:$E$7;"<>#NOMBRE!"))
Cordialement JB
Bonjour * Jacky * et merci pour ta réponse mais je cherche une une solution par excel (formule) quelque chose du genre
= nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub
If Application.CountIf([b17:b32], Target) > 1 Then MsgBox "Existant" Target = "" End If End Sub '----------- Salutations JJ
"ABED HADDOU" a écrit dans le message
de news:
Bonsoir à tous le monde Pour valider une cellule de la plage b17 à b32 j'utilise une liste (Données>Validation>Liste) Formule=ListeClients Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque
je
sélectionne une deuxième fois un code qui figure déjà Dans une cellule de la plage b17 à b32 un message m'averti que ce code et
déjà saisi. J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n
'a
pas marché.
Merci par d'avance
Abed_H
ABED HADDOU
merci beaucoup Monsieur JB je viens de voir ta réponse et le fichier Joint c'est exactement ce que je cherchais. pravo et chapau comme elle dit jacky.
Abed_H
"JB" wrote:
Bonjour,
http://cjoint.com/?gwlNIPSPfl
En colonne A, un item ne peut pas être choisi plusieurs fois -On crée une liste différence entre la liste de base et la liste de ceux déjà choisis. Sélectionner E2:E8 =INDEX(ListeTous;PETITE.VALEUR(SI(ESTNA(EQUIV(ListeTous;ListeChoisis;0));EQUIV(ListeTous;ListeTous;0);"");LIGNE(INDIRECT("1:"&LIGNES(ListeTous))))) Valider avec Maj+Ctrl+entrée
Listes en A2:A5: Données/Validation/Liste ÞCALER($E$2;;;NB.SI($E$2:$E$7;"<>#NOMBRE!"))
Cordialement JB
Bonjour * Jacky * et merci pour ta réponse mais je cherche une une solution par excel (formule) quelque chose du genre = nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub If Application.CountIf([b17:b32], Target) > 1 Then MsgBox "Existant" Target = "" End If End Sub '----------- Salutations JJ
"ABED HADDOU" a écrit dans le message de news:
Bonsoir à tous le monde Pour valider une cellule de la plage b17 à b32 j'utilise une liste (Données>Validation>Liste) Formule=ListeClients Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque je
sélectionne une deuxième fois un code qui figure déjà Dans une cellule de la plage b17 à b32 un message m'averti que ce code et déjà saisi. J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n 'a
pas marché.
Merci par d'avance
Abed_H
merci beaucoup Monsieur JB je viens de voir ta réponse et le fichier Joint
c'est exactement ce que je cherchais. pravo et chapau comme elle dit jacky.
Abed_H
"JB" wrote:
Bonjour,
http://cjoint.com/?gwlNIPSPfl
En colonne A, un item ne peut pas être choisi plusieurs fois
-On crée une liste différence entre la liste de base et la liste de
ceux déjà choisis.
Sélectionner E2:E8
=INDEX(ListeTous;PETITE.VALEUR(SI(ESTNA(EQUIV(ListeTous;ListeChoisis;0));EQUIV(ListeTous;ListeTous;0);"");LIGNE(INDIRECT("1:"&LIGNES(ListeTous)))))
Valider avec Maj+Ctrl+entrée
Listes en A2:A5: Données/Validation/Liste
ÞCALER($E$2;;;NB.SI($E$2:$E$7;"<>#NOMBRE!"))
Cordialement JB
Bonjour * Jacky * et merci pour ta réponse
mais je cherche une une solution par excel (formule) quelque chose du genre
= nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'-----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub
If Application.CountIf([b17:b32], Target) > 1 Then
MsgBox "Existant"
Target = ""
End If
End Sub
'-----------
Salutations
JJ
"ABED HADDOU" <ABEDHADDOU@discussions.microsoft.com> a écrit dans le message
de news:2D4C3E4E-FE6E-48B8-B275-212D5724994A@microsoft.com...
Bonsoir à tous le monde
Pour valider une cellule de la plage b17 à b32 j'utilise une liste
(Données>Validation>Liste) Formule=ListeClients
Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque
je
sélectionne une deuxième fois un code qui figure déjà
Dans une cellule de la plage b17 à b32 un message m'averti que ce code et
déjà saisi.
J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n
'a
merci beaucoup Monsieur JB je viens de voir ta réponse et le fichier Joint c'est exactement ce que je cherchais. pravo et chapau comme elle dit jacky.
Abed_H
"JB" wrote:
Bonjour,
http://cjoint.com/?gwlNIPSPfl
En colonne A, un item ne peut pas être choisi plusieurs fois -On crée une liste différence entre la liste de base et la liste de ceux déjà choisis. Sélectionner E2:E8 =INDEX(ListeTous;PETITE.VALEUR(SI(ESTNA(EQUIV(ListeTous;ListeChoisis;0));EQUIV(ListeTous;ListeTous;0);"");LIGNE(INDIRECT("1:"&LIGNES(ListeTous))))) Valider avec Maj+Ctrl+entrée
Listes en A2:A5: Données/Validation/Liste ÞCALER($E$2;;;NB.SI($E$2:$E$7;"<>#NOMBRE!"))
Cordialement JB
Bonjour * Jacky * et merci pour ta réponse mais je cherche une une solution par excel (formule) quelque chose du genre = nb.si(a17:a32;a17)=1
Abed_H
Bonjour,
Je voulais éviter les doublons lors de la sélection
'----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect([b17:b32], Target) Is Nothing Or Target.Count > 1 Then Exit Sub If Application.CountIf([b17:b32], Target) > 1 Then MsgBox "Existant" Target = "" End If End Sub '----------- Salutations JJ
"ABED HADDOU" a écrit dans le message de news:
Bonsoir à tous le monde Pour valider une cellule de la plage b17 à b32 j'utilise une liste (Données>Validation>Liste) Formule=ListeClients Je voulais éviter les doublons lors de la sélection c'est-à-dire lorsque je
sélectionne une deuxième fois un code qui figure déjà Dans une cellule de la plage b17 à b32 un message m'averti que ce code et déjà saisi. J'ai essayé avec = ET (nb.si($b$17 :$b$32 ;b17)=1 ;ListeClients) mais cà n 'a