Discussion :

[ramdir2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Michel_M]

Bonjour,

essaies ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[patricktoulon]

bonjour


temp que tu y est tu virer ca aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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