tuto Macro boite de dialogue

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Lord_Kerrigan

XLDnaute Nouveau
Bonjour,

Je reviens vous trouvez en espérant avoir de l'aide de votre part,

Pour un projet que je suis en train de réaliser, je dispose d'un tableau excel avec plusieurs onglet dont :
Planning
projet
noms
priorité

ce que je recherche à faire c'est ouvrir une boite de dialogue avec 5 choix (3 en liste et 2 a remplir à la main)



- Ouvrir une boite de dialogue avec plusieurs choix dont 2 menu déroulants
--------- 1) Choix du projet (Menu déroulant mais l'onglet "Projet" va se remplir au fur et à mesure)
--------- 2) Choix du Responsable projet (Menu déroulant mais l'onglet "Noms" va se remplir au fur et à mesure)
--------- 3) Choix de la priorité (Menu déroulant de l'onglet "Priorité" , normalement fixe)
--------- 4) Choix de la date du début
--------- 5) Choix de la date du délai convenu

je ne trouve pas de tuto pour m'expliquer comment faire

Cordialement
 

Pièces jointes

Dernière édition:
Re : Macro ligne + boite de dialogue + Calendrier

bonjour,

mais ce n'est plus une aide à ce niveau là !?
c'est de réaliser ton projet !
et ce n'est pas le but ici !

il faut d'abord t'investir, étudier un peu, et seulement après demander de l'aide !
 
Re : Macro ligne + boite de dialogue + Calendrier

j'ai fait un belle macro comme j'ai pu, mais je ne trouve rien pour les boites de dialogues :s

ma maccro :

Sub Ajout()
'
' afficher la ligne projet type
'
Rows("3:5").Select
Selection.EntireRow.Hidden = False

' Insérer un nouveau projet
'
Rows("4:4").Select
Selection.Copy
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False


' C'est ICI que je veuxc mettre ma boite de dialogue avec mes choix


' Trier par type de priortié
'
Rows("4:60000").Select
ActiveWorkbook.Worksheets("Planning").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Planning").Sort.SortFields.Add Key:=Range("A4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Planning").Sort
.SetRange Range("A4:ES6000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1:B2").Select

' Masquer la ligne projet type
'
Rows("4:4").Select
Selection.EntireRow.Hidden = True



End Sub


j'ai editer mon message de base aussi
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
704
Réponses
21
Affichages
2 K
Retour