Bonjour Amadeus;
Merci bcpppppp pour cette solution elle correspond exactement a ce dont j'ai besoin c'est superrrrrrrr
une dernière question stp
comment je peux faire pour enregistrer tout ca dans une macro de façon a ce que ce soit exécuté automatiquement j'essaye de le faire mais je sais pas comment dans ce cas précis :s
Cordialement.
-- 20 Mai 2010, 10:18 --
reBonjour,
je viens de trouver une sollution :
Sub Macro1()
Dim liste As String, c as Range
For Each c In Range("B2:B" & Range("B65536").End(xlUp).Row)
liste = c.Value
With c.Offset(0, 1).Validation 'validation en colonne C
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=liste
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next
End Sub
c'est exactement ce dont j'avais besoin.
Une autre question svp : ce code me donne la liste en face de chaque cellule mais elle ne contient que les mots de la cellule en face genre c3 contient seulement les mots contenu dans b3.
comment faire pour regrouper l'ensemble de ces liste en une seule de facon a avoir tous les choix possibles dans la meme liste?
Merci d'avance a tout le monde