liste de choix par validation

[andré]

Salut à toutes et à tous,

Il y a-t-il moyen d'établir une liste de choix par validation sans que les cellules vides dans la plage soient reprises (par cellules vides j'entends également celles avec formules retournant la valeur ""), et ceci sans tri préalable et sans créer de colonne supplémentaire ?

Ândré.

 

[@+Thierry]

Bonjour André, le Forum

Là je dois filer, mais fait une recherche à @Christophe@ qui nous a proposé il y a quelques mois, une très belle Liste de Validation qui fait çà si je me souviens bien...

IL n'y a pas longtemps (fin Juin) Celeda nous a fait un récapitulatif des Liste Déroulantes du Forum Et à précisé "Christophe Papa" pour cette fameuse Liste de Validation quand elle nous a mis le lien...

Bonne Pêche !!! et bonne journée
@+Thierry

 

[andré]

Salut @+Thierry,

Crois-bien que je connais l'astuce de @Christophe@ (DECALER et NBVAL).
Elle supprime les lignes vides situées dans le bas de la plage, mais pas celles situées dans la plage elle-même.

Exemple :
A1 : celeda
A2 : ""
A3 : cathy
A4 : monique
A5 : ""
A6 : thierry

Je souhaite une liste :
celeda
cathy
monique
thierry

Pas plus compliqué que cela, mais je n'y arrive pas !
Merci quand même de t'y être intéressé.
Ândré

 

[Dan]

Bonjour André,

A ma connaissance, les cellules vides seront toujours reprises dans ta liste de validation. Le tri ne change rien dans le sens où c'est la plage reprise pour la définition de la liste de validation qui prise en compte.

@+

Dan

 

[romfret]

Bonjour ce fil


Peut-etre qu'en vba : If....then pourrait marcher?
Je regarde de mon coté.


@mic@lement, romfret

 

[Dan]

André,

En voyant ta réponse à Thierry, j'ai l'impression que je n'ai pas bien compris ton 1er message.
Alors j'ai une question :
veux-tu pour ta liste de validation supprimer les cellules vides ou veux-tu les conserver telles quelles et ne pas les voir dans ta liste de validation.

Dans le 1er cas, il faudrait retravailler le fichier pour enlever (par une macro) les cellules vides de la plage de cellules utilisées pour la liste de validation tandis que dans le 2ème cas, ma réponse de ce matin reste applicable.

@+

Dan

 

[Dan]

André,

en recherchant dans mes archives je viens également de retrouver un post qui pourrait te servir :
<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=33664&t=33614>

Espérant t'avoir aidé et @+

Dan

 

[SYL'S]

Salut André et tous les gens de ce fil,

Une petite bricole de ma part, avec liste de choix sans validation...

mais je pense que ce n'est pas tout à fait le problème d'andré.

Bonne journée à tous

 

[PhiBou]

Bonjouard andré, le Forum,

Tu travailles avec l'évènementielle de la feuille Selection_Change

Si ta liste de validation (avec les blancs) est dans la colonne A:A
Par la boucle "for next" tu compactes ta liste dans la colonne J:J par exemple
Puis tu redéfinis ta validation (cellule E1)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$E$1" Then
Range("J:J").ClearContents
Compteur = 1
For i = 1 To "dernière cellule de ta liste colonne A"
If Cells(i, 1) <> "" Then
Cells(Compteur, 10) = Cells(i, 1)
Compteur = Compteur + 1
End If
Next i
With Range("E1").Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$J$1:$J$" & Compteur - 1
End With
End If
Range("A1").Select
End Sub

Y'a peut-être plus simple mais je n'ai trouvé que ça...

Bonsoir à tous

 

[romfret]

Re ce fil, le forum,


Regarde le code que je vient de créer : il sert a supprimmer les lignes où il n'y a rien dedans.


Sub supprimer_lignes_quand_ren_dedans_par_romfret()

If le nom de la cellule que tu veux inspecter = "" Then
Range("le nom de la colonne où est placer la cellule donc si c'est A1 ca donnera A:A").Activate
Select Case "le nom de la cellule que tu veux inspecter"
End Select
ActiveCell.EntireRow.Delete
End If

End Sub



Et voila le tour est joué .
Tien nous au courant pour dire si cela te convient


@mic@lement, romfret

 

[romfret]

Re,



C'était pour dire que ma ligne :

Range("le nom de la colonne où est placer la cellule donc si c'est A1 ca donnera A:A").Activate


est inutile !



voila,



romfret

 

[romfret]

Re,



Oubli mon code il est foireux .... désolé



@mic@lement, Romfret et encore désolé... :s:s

 

[PhiBou]

Bonjour andré, le Forum

Au sujet de mon code d'hier, il faut enlever le :

Range("A1").Select

(à chaque clic tu vas sur la cellule A1 et tu peux rien faire)

Bonne journée

 

[andré]

Salut à toutes et à tous,

Merci beaucoup pour vos nombreuses réponses, elles me confirment qu'il n'y a pas de formule "prête à l'emploi".
Je continuerai donc avec une colonne supplémentaire qui me sélectionne les cellules <>"", et sur laquelle j'applique la validation.

Dommage !
Ândré.

 

[andré]

Salut SYL'S,

C'est exactement ce que je veux obtenir, mais dans la liste de choix par validation, avec ou sans doublons !

Ândré.