VBA LIST égalité

Version imprimable

17/12/2012, 12h37
rhonald

VBA LIST égalité

Bonjour,
J'ai créé une cellule liste en A1 à partir d'éléments,
Je souhaite créer en C1 une cellule liste en VBA identique à A1 sans faire référence aux éléments mais en travaillant seulement sur A1.
Je suis novice en VBA, cela me semble assez compliqué,
Quelqu'un pourrait-il m'aider SVP.
Merci pour vos réponses.

Bonjour,

Essaie avec ce code

Code:

1
2
3
4
5
6
7
8
9
Sub Test()
Dim Texte As String
    Texte = Replace(Range("A1").Validation.Formula1, ";", ",")
    With Range("C1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Texte
    End With
End Sub

Cordialement.

18/12/2012, 00h09
rhonald

Slt,
Merci pour cette réponse, ça marche.
Derniere question, est il possible d'utiliser une fonction "si" (if) pour faire référence soit a A1 si vrai sinon une autre Cellule liste (exemple B1) si faux ?
Pensez-vous que la fonction si peut être mise en plus dans ce code ?
Dite moi simplement oui ou non svp, je chercherai par tatonnement dans un premier temps.
Merci pour votre reponse.
18/12/2012, 01h28
gFZT82

1 pièce(s) jointe(s)

Voici un exemple de procédure proposant de choisir entre la liste de validation de la cellule A2 ou celui de la cellule B2.
Le choix de liste se fait en D2 et le résultat en C2.
On utilise l'évènement Worksheet.Change de la feuille 1. La procédure est lancée dès que l'utilisateur modifie la valeur de la cellule D2,
J'ai utilisé l'instruction Select Case mais If...Then...Else aurait tout aussi bien fait l'affaire.
Je te laisse analyser le code. N'hésites pas à poser des questions si nécessaire.

Cordialement.
18/12/2012, 13h20
rhonald

Merci, je regarde ça.