Liste déroulante en VBA

Bonjour à tous

Que faut-il ajouter au code suivant pour que lorsque l'intruction: <<Cells(Ligne, colonne).Select>> est atteinte la liste déroulante de cette cellule s'ouvre automatiquement.
Merci d'avance
Ramdir

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Intersection()     Application.FindFormat.Clear   Application.FindFormat.Interior.Color = 65535   Ligne = Columns(1).Find(What:="", SearchFormat:=True).Row   colonne = Rows(1).Find(What:="", SearchFormat:=True).Column   Cells(Ligne, colonne).Select   End Sub

---

Bonjour,

essaies ceci

Code:

---

1 2 3 4

Application.FindFormat.Clear Application.FindFormat.Interior.ColorIndex = 3 cellule = Cells.Find(What:="", after:=Range("A65536"), SearchFormat:=True).Address Range(cellule).Select

---

colorindex était pour mes essais, donc...

bonjour


temp que tu y est tu virer ca aussi

Code:

---

1 2 3 4

colonne = Rows(1).Find(What:="", SearchFormat:=True).Column

---

puisque dans ta recherche pour la ligne tu precise deja la premiere colonne

Code:

---

1 2	Ligne = Columns(1).Find(What:="", SearchFormat:=True).Row

---