xlValidateList

Re : xlValidateList

Bonjour,

J'ai déjà vu un probleme ce type. De mémoire, ça "marchouille" et je crois que de toutes façons, il y a une limite liée à la taille de la variable ("List" dans ton cas).
Chez moi, ça plante meme Excel (Excel 2002)
Pourquoi ne pas faire directement référence à la plage de cellule ?
Voir fichier joint.

Sub test()
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=" & Range("B4:B53").Address
.InCellDropdown = True
.ShowError = True
End With
End Sub

Re : xlValidateList

Bonjour,

le probleme c'est que ma liste est dans un autre onglet et que je ne peux pas y faire reference directement (enfin je ne crois pas...).
J'ai essayé ta solution en mettant le nom de mon onglet :
Formula1:="=" & Sheets("Projects").Range("B4:B53").address
Mais ca ne marche pas, j'obtiens les cellules de la page en cours...

Re : xlValidateList

bonjour mimi9469

Salut Catrice🙂

vois cet exemple dont tu pourrais peut-etre t'inspirer

List est declarée Public

tes macros legerement transformée sont dans les worksheet.activate des feuilles 1 et 2

Re : xlValidateList

Bonjour,

Pour faire réference à une autre feuille, je propose de passer par un nom.
Voir exemple joint.

PierreJean, dans ton exemple, si le nb de lignes augmente, j'ai le meme pb qu'à l'origine, je plante Excel.

Re : xlValidateList

Effectivement, il doit y avoir une limit a list
l'utilisation de la plage nommée resoud bien le problème

Re : xlValidateList

ca marche !!!!!!!!!!!!!!
Merci beaucoup Catrice, tu viens de me sauver la vie !!!!!!!

Re : xlValidateList

pierrejean à dit:

Effectivement, il doit y avoir une limit a list
l'utilisation de la plage nommée resoud bien le problème

Cliquez pour agrandir...

Bonjour a tous,

En cherchant à comprendre la démo de "_Thierry" (recherchev sans recherchev2 qui date de 2003), je rencontre un problème inattendu (au passage merci à _Thierry c'est fort instructif).

sa solution utilise un tableau pour alimenter la liste de validation et le résultat est tronqué si la liste est longue.

étant donné la discussion, connaissez vous une solution pour dépasser cette limite ?
Est il possible de faire la même chose avec un tableau dynamique ?

Merci d'avance

PS: c'est mon premier post pardonnez mes erreurs éventuelles

ci-dessous le code et en pièce jointe un fichier de test:

Option Explicit
'Thierry's Macro Démo sur Excel-Downloads.com, February 2003


Sub ListeRechercheV()
Dim MyArray(0 To 29) As String 'adapter
Dim Cell As Range
Dim Plage As Range
Dim WSSource As Worksheet
Dim WSCible As Worksheet
Dim i As Integer
Dim ii As Integer
Dim iii As Integer

Set WSSource = Sheets("Database")
Set Plage = Sheets("Recherche").Range("A2:A30") 'à adapter

ii = 0
For Each Cell In Plage
For i = 1 To 30 ' à adapter
If Cell.Value = "" Then Exit Sub
If Cell.Value = WSSource.CellS(i, 1) Then
MyArray(ii) = MyArray(ii) & ", " & WSSource.CellS(i, 2).Value
Cell.Offset(0, 1).Value = WSSource.CellS(i, 2)
iii = iii + 1
End If
Next i
If MyArray(ii) = "" Then
MsgBox "Pas de Ville avec ce code Postal : " & Cell.Value, vbCritical, "Thierry's Démo"
Exit Sub
End If
With Cell.Offset(0, 1).Validation
.Delete
.Add Type:=xlValidateList, _
Operator:=xlBetween, _
AlertStyle:=xlValidAlertStop, _
Formula1:=MyArray(ii)
End With
If iii > 1 Then
Cell.Offset(0, 1).Value = ""
End If
MyArray(ii) = ""
ii = 0
iii = 0
Next Cell
End Sub

Re : xlValidateList

bonjour Jeff vet

le fichier n'est pas passé

attention : Zippé de preference et < 48k

Re : xlValidateList

pierrejean à dit:

bonjour Jeff vet

le fichier n'est pas passé

attention : Zippé de preference et < 48k

Cliquez pour agrandir...

Bien le bonjour,

effectivement c'est mieux avec la pièce jointe...

faute de débutant

Merci Pierre Jean

Re : xlValidateList

bonjour Jeff vet

Une petite etude sur le sujet

commencer par la macro report puis lancer la macro recherche

Si j'ai un peu de temps un jour je testerai sur un fichier comportant tous les codes postaux (apres m'etre armé d'un peu de patience)

Re : xlValidateList

Bonjour Pierre Jean,

Merci bien pour cette étude express.

Je n'ai plus qu'a étudier ta solution.
Je me permettrais de revenir vers toi si j'ai quelques soucis de compréhension.

Merci encore pour ton aide

A bientôt sans doute

Jean-François