Liste déroulante

[flavie]

bjr le forum
en VBA,
je voudrais faire une liste déroulante dans une cellule sur une "feuill2" avec comme données d'entrée la colonne A de la "feuill1".

Sélectionner ensuite une donnée et la mettre dans une variable.

comment faire ?

 

[Lord Nelson]

Salut Flavie,

Afficher la barre d'outils "Boite à outils contrôles",
Sélectionner l'objet "Zone de liste déroulante" et le dessiner à l'endroit voulu,
Clic droit sur l'objet pour choisir "Propriétés",
Renseigner la propriété "ListFillRange" avec la plage de cellule contenant les données à afficher,
Renseigner la propriété "LinkedCell" pour faire venir le résultat de la sélection dans la cellule appropriée,
Enfin, cliquer sur "Désactiver le mode création" de la barre d'outils contrôle pour rendre la liste opérationnelle.

A+
Horatio

 

[flavie]

Merci Horatio, t'es un ange
mais pb, je ne peux connaître le nom de la feuille (celle-ci est copiée dans mon classeur après l'execution d'une macro)
Ou alors la solution est que je renomme cette feuille, mais connais pas l'instruction et sa synthaxe.
kiss
Flav

 

[Lord Nelson]

Re Flav,

Pour récupérer les noms des feuilles, on peut utiliser une boucle, par exemple :

Sub NomsDesFeuilles()
'Affiche les noms des feuilles à partir de la cellule active
Dim WS As Worksheet, I As Integer
For Each WS In Sheets
ActiveCell.Offset(I, 0) = WS.Name
I = I + 1
Next
End Sub

Cette macro parcourt le classeur et inscrit le nom de chaque feuille.

Pour changer le nom de la feuille active, tu peux le faire comme ceci :

Sub RenommerFeuille()
Dim NouveauNom As String
NouveauNom = InputBox("Nouveau Nom :", "Renommer", ActiveSheet.Name)
If NouveauNom <> "" Then
ActiveSheet.Name = NouveauNom
End If
End Sub

Peut-être qu'une de ces pistes pourra te mettre sur la voie...

A+
Horatio