Microsoft 365 Validation par liste et fonction personnalisé

jpb388

XLDnaute Accro

• 14 Août 2022

• #2

Bonjour à tous

VB:

Public Function test_liste()
    Dim Nb As Integer, i As Integer
    Dim res()
      Nb = 5
      ReDim res(Nb)
      For i = 1 To Nb
        res(i) = i
      Next i
      test_liste = res
End Function


Sub test()
    MsgBox test_liste(5)
End Sub

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 14 Août 2022

• #3

Bonjour JP

D'abord merci pour l'aide.

Je viens d'essayer mais la validation de la cellule B2 ne fonctionne pas....
Lorsque j'essaye de la mettre en place, j'obtiens le message :
La source est reconnu comme erroné. Voulez-vous continuer ?

Par contre je ne sais pas pourquoi ma "source" est erroné..????...????

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 14 Août 2022

• #4

Re,

un autre essai pour ne pas dire un autre échec...

VB:

Public Function test_liste()
Dim nb As Integer, i As Integer
Dim res() ' As Range
Dim tp
  nb = 5
  ReDim res(nb)
  For i = 1 To nb
    res(i) = i
  Next i
  tp = Join(res, ",")
  test_liste = tp
End Function

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 14 Août 2022

• #5

re
si tu veux passer par la liste de validation il te faut une zone de range
si tu veux mettre la function tu mets une liste déroulante et tu l'incrémentes avec

Private Sub ComboBox1_GotFocus()
Me.ComboBox1.List() = test_liste()
End Sub

tout dépend de ce que tu veux faire exactement de la suite
a+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 14 Août 2022

• #6

merci pour ton aide

en faite je voulais passer par une liste de validation...

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 14 Août 2022

• #7

re
dans ce cas pas besoin de macro
dans la feuille param j'ai fait une table
puis créer un nom qui définie la table elle peut grandir ou raccourcir tous les chiffres seront prix en compte
et enfin relier la liste de validation avec le nom
a+

 

Pièces jointes

• Essais formules et autres lite.xlsm

  18.5 KB · Affichages: 5

Vote positif 0 Vote négatif

Solution

tbft

XLDnaute Accro

• 15 Août 2022

• #8

Bonjour JP

Merci pour la réponse.
Dans mon projet la liste de validation dépend du résultat d'une fonction VBA car trop complexe à faire.
Donc, du coup, je vais utiliser ta philosophie:
+ Nom sur une table
+ VBA pour alimenter la table
+ Validation d'après la table

Inconvénient : réalisation en deux étapes
Avantage : vision direct sur la liste de validation

Donc merci encore pour ton écoute, ton soutien et ton aide

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 15 Août 2022

• #9

Bonjour tbft
pour moi c'est la meilleur solution
Bonne journée

 

Vote positif 0 Vote négatif