Bonjour à tous, nouveau sur ce forum j'ai terriblement besoin de votre aide pour l'utilisation de la fonction listbox.
Bien évidemment j'ai déja chercher un peu partout su le forum et je n'ai pas trouvé de réponse.
Je cherche un moyen de créer une listbox qui recueille les imformations à partir d'un critère d'une cellule.
Exemple par rapport au fichier ci-joint :Regarde la pièce jointe test.xlsm
. Si cellule A19 = poire, alors liste déroulante cellule C19 = mure,sucre,bon
autre exemple
.Si cellule A20 = peche, alors liste déroulante cellule C20 = bonne, très bonne.
J'ai réussi à créer pour la cellule B19 une liste déroulante à partir de donner que j'ai moi même définie, mais je n'arrive pas à créer la liste par rapport aux données de la feuille.
Merci pour vos réponses.
Cordialement.
Bien évidemment j'ai déja chercher un peu partout su le forum et je n'ai pas trouvé de réponse.
Je cherche un moyen de créer une listbox qui recueille les imformations à partir d'un critère d'une cellule.
Exemple par rapport au fichier ci-joint :Regarde la pièce jointe test.xlsm
. Si cellule A19 = poire, alors liste déroulante cellule C19 = mure,sucre,bon
autre exemple
.Si cellule A20 = peche, alors liste déroulante cellule C20 = bonne, très bonne.
Code:
Sub Bouton1_Clic()
Sheets("feuil1").Select
Sheets("feuil1").Copy after:=Sheets("feuil1")
Sheets("feuil1 (2)").Select
Sheets("feuil1 (2)").Name = "copie"
Application.EnableEvents = False ' => désactive les événements
With Sheets("copie")
m = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
p = .Cells(.Rows.Count, "B").End(xlUp).Row + 6
With .Range(.Cells(m, 2), .Cells(p, 2)).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="CONTROLER,ANALYSER,AJOUTER,VERIFIER"
End With
End With
End Sub
J'ai réussi à créer pour la cellule B19 une liste déroulante à partir de donner que j'ai moi même définie, mais je n'arrive pas à créer la liste par rapport aux données de la feuille.
Merci pour vos réponses.
Cordialement.