Boite de dialogue Excel [Résolu/Fermé]

Signaler
Messages postés
6
Date d'inscription
mardi 20 mai 2008
Statut
Membre
Dernière intervention
27 août 2008
-
Messages postés
9968
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
14 mai 2021
-
Bonjour,

Bonjour,

Je souhaiterai que ma macro vba se lance automatiquement lorsque l'on clique sur une cellule d'une même colonne. Et je ne parviens pas à ce que l'élément coché dans ma boîte de dialogue vienne s'inscrire automatiquement dans ma cellule.

Voilà ce que j'ai tenté comme macro

Sub Rdv()

Dim i As Integer
Dim TopPos As Integer
Dim PrintDlg As DialogSheet
Dim cb As OptionButton
Dim Choix1, Choix2

Application.ScreenUpdating = False

Set PrintDlg = ActiveWorkbook.DialogSheets.Add

ArrChoix = Array("", "07h30-08h30", "08h30-10h30", "10h30-12h30", "13h30-15h30", "15h30-17h30")

TopPos = 40
For i = 1 To 5
PrintDlg.OptionButtons.Add 78, TopPos, 150, 16.5
PrintDlg.OptionButtons(i).Text = ArrChoix(i)
TopPos = TopPos + 13
Next i

PrintDlg.Buttons.Left = 240

With PrintDlg.DialogFrame
.Height = Application.Max _
(68, PrintDlg.DialogFrame.Top + TopPos - 34)
.Width = 230
Caption = "Choisissez une option"
End With

PrintDlg.Buttons("Button 2").BringToFront
PrintDlg.Buttons("Button 3").BringToFront
PrintDlg.Show

For i = 1 To 5
If PrintDlg.OptionButtons(i).Value = xlOn Then
Choix1 = PrintDlg.OptionButtons(i).Text
End If
Next
If Choix1 = "" Then
MsgBox "Aucun choix n'a été fait"
Else
MsgBox "Choix effectué : " & Choix1
End If

Application.DisplayAlerts = False
PrintDlg.Delete
Application.DisplayAlerts = True
End Sub

Merci d'avance.

Clem

5 réponses

Messages postés
33
Date d'inscription
jeudi 13 décembre 2007
Statut
Membre
Dernière intervention
23 mai 2008
2
Bonjour,

comme j ai du mal a comprendre quel est ton souci ,peux tu expliquer differement ton pb pour que je puisse t aider!
la macro que tu veux lancer automatiquement est celle que tu as ecrite ou bien est ce que tu veux inscrire suite a la macro ecrite precedement la valeur choisi ex:10h30-12h30 dans une cellule qui est le nom du macrosoit la macro:08h30-10h30ou la macro 10h30-12h30 ...


a+ et bonne excellll
CDZ
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
9968
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
14 mai 2021
1 141
Bonjour,
Ma proposition sur le document joint https://www.cjoint.com/?fvacS7C2gO
Vous double-cliquez sur une cellule de votre choix de la feuille 1.
A vous de découvrir votre code modifié et le code sur double clic de la feuill1.
Messages postés
9968
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
14 mai 2021
1 141
Bonjour sk8_in_back,
J'ai rencontré une erreur "438", dû à de la précipitation.
Elle est corrigée dans se dossier : https://www.cjoint.com/?fvnX6yZosp
Messages postés
6
Date d'inscription
mardi 20 mai 2008
Statut
Membre
Dernière intervention
27 août 2008

Merci beaucoup au fait, j'ai été malpoli ^^.

A bientôt.
Messages postés
9968
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
14 mai 2021
1 141
Bonjour,
Merci, de rien.