Liste de validation

D

david84

XLDnaute Barbatruc

• 18 Mars 2012

• #2

Re : Liste de validation

Bonsoir,
recherches-tu une solution par formule ou VBA ?
A+

 

Vote positif 0 Vote négatif

R

Roll

XLDnaute Occasionnel

• 18 Mars 2012

• #3

Re : Liste de validation

Bonsoir david84,

une solution par formule si possible.
Merci

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 18 Mars 2012

• #4

Re : Liste de validation

Bonjour, Roll, David.

Une solution en PJ proposée, je crois, par J BOISGONTIER :
En K2, à valider en matriciel (Ctrl+Maj+Entrée) et à recopier vers le bas, comme source de la liste de validation.

=SI(LIGNES($1:1)<=NBVAL(Points)-NBVAL(B$1:B$9);INDEX(Points;PETITE.VALEUR(SI((NB.SI(B$1:B$9;Points)=0);LIGNE(INDIRECT("1:"&LIGNES(Points))));LIGNES($1:1)));"")

Cliquez pour agrandir...

 

Pièces jointes

• ListeValidationRestrictive.xls

  16.5 KB · Affichages: 38
• ListeValidationRestrictive.xls

  16.5 KB · Affichages: 40
• ListeValidationRestrictive.xls

  16.5 KB · Affichages: 38

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 18 Mars 2012

• #5

Re : Liste de validation

Re
petite adaptation de la proposition de Patrick afin d'éviter les vides de fin de liste.
A+

 

Pièces jointes

• ListeValidationRestrictive.xls

  32.5 KB · Affichages: 33
• ListeValidationRestrictive.xls

  32.5 KB · Affichages: 34
• ListeValidationRestrictive.xls

  32.5 KB · Affichages: 33

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Mars 2012

• #6

Re : Liste de validation

Bonsoir Roll, salut Patrick, David 🙂

Avec cette macro dans le code de la feuille :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, tablo(), n&
For Each cel In [Points]
  If Application.CountIf([B:B], cel.Value) = 0 Then
    ReDim Preserve tablo(n)
    tablo(n) = cel.Value
    n = n + 1
  End If
Next
[Points].Offset(, 1).ClearContents
[J2].Resize(n) = Application.Transpose(tablo)
End Sub

Fichier joint.

A+

 

Pièces jointes

• ListeValidation(1).xls

  26.5 KB · Affichages: 37

Vote positif 0 Vote négatif

R

Roll

XLDnaute Occasionnel

• 18 Mars 2012

• #7

Re : Liste de validation

Merci à vous deux,

je vais l'adapter au fichier que j'utilise.

A+

 

Vote positif 0 Vote négatif

R

Roll

XLDnaute Occasionnel

• 19 Mars 2012

• #8

Re : Liste de validation

Bonjour,

les formules fonctionnent très bien pour la colonne B.
Par contre j'ai omis de préciser que je dois également mettre des points dans les colonnes c, d, e ...(total 19 colonnes), et là; cela ne marche plus.
Sorry pour cet oubli.

Job75,
ton code fonctionne bien (mais si j'ajoute 2 personnes et que l'ensemble des points est attribué) excel me renvoie un message d'erreur "run-time error 5" chaque fois que je clique dans une autre case.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 19 Mars 2012

• #9

Re : Liste de validation

Bonjour,

Voir PJ

JB

 

Pièces jointes

• Copie de ListeValidation-1.xls

  29 KB · Affichages: 36

Dernière édition: 19 Mars 2012

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Mars 2012

• #10

Re : Liste de validation

Bonjour Roll, le fil,

Roll à dit:

Job75,
ton code fonctionne bien (mais si j'ajoute 2 personnes et que l'ensemble des points est attribué) excel me renvoie un message d'erreur "run-time error 5" chaque fois que je clique dans une autre case.

Cliquez pour agrandir...

D'accord, dans ce cas il faut un test sur n pour la dernière ligne :

Code:

If n Then [J2].Resize(n) = Application.Transpose(tablo)

Fichier (2).

Edit : salut JB

A+

 

Pièces jointes

• ListeValidation(2).xls

  35 KB · Affichages: 23

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Mars 2012

• #11

Re : Liste de validation

Re,

Avec des listes de validation dans plusieurs colonnes, remplacer [B:B] par ActiveCell.EntireColumn :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, tablo(), n&
For Each cel In [Points]
  If Application.CountIf(ActiveCell.EntireColumn, cel) = 0 Then
    ReDim Preserve tablo(n)
    tablo(n) = cel.Value
    n = n + 1
  End If
Next
[Points].Offset(, 1).ClearContents
If n Then [J2].Resize(n) = Application.Transpose(tablo)
End Sub

Bien noter qu'une seule liste Liste est utilisée pour toutes les validations.

Fichier (3).

A+

 

Pièces jointes

• ListeValidation(3).xls

  36.5 KB · Affichages: 35

Vote positif 0 Vote négatif