Microsoft 365 Macro excel pour liste déroulante dans sujet outlook

Bonjour,

Il vous faut adapter les propriétés de la Combobox et charger les deux colonnes.

Par exemple:

BoundColumn reste à 1, elle correspond à la valeur que vous restituerez (BB92)
ColumnCount = 2 (vos deux colonnes)
ColumnWidths 0;100 avec 0 on rend invisible la première colonne.

Bonjour Tous,
En complément . . .

.AddItem "[A1]"
.List(0, 1) = "Paris" 'on commence à 0
.AddItem "[A2]"
.List(1, 1) = "Lyon" 'on incrémente donc 1

Bruno

Bonjour,

Merci pour vos réponses.
Je suis vraiment désolé mais je ne comprends pas bien le principe.
Il faut que j'active une deuxième colonne si j'ai bien compris, mais je ne prend pas les valeurs dans un tableau, je les ai mise dans le code directement.

Peut être que je n'ai pas compris la réponse

Et Youky je ne comprends pas non plus ce que tu veux dire...

Désole et je suis preneur si vous pouvez m'expliquer !!

Merci

Voici un fichier c'est plus parlant
Bonne suite
Bruno

Une autre variante avec listbox et cases à cocher
Bruno

ok je comprend mieux
je vais essayer de l'appliquer à mon projet !!

merci

J'ai bien compris le principe mais ma macro dans Outlook ne fonctionne plus...
Je ne sais vraiment pas pourquoi...
J'avais bien le menu déroulant qui apparaissait toute à l'heure mais maintenant impossible de faire apparaitre quoi que ce soit....

J'ai créer un formulaire utilisateur dans lequel j'ai mis mon menu déroulant et mon bouton
J'ai mis mon code dans le formulaire utilisateur :
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
End With
End Sub

Private Sub CommandButton1_Click()
GCbbIndex = ComboBox1.ListIndex
GSelSubject = ComboBox1.Value
Unload Me
End Sub

J'ai rajouté le code quand la rubrique cette session outlook
Public WithEvents GExplorer As Explorer
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GInlineMail = Item
End Sub

et j'ai rajouté un module avec le code suivant :
Public GCbbIndex As Long
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
Dim xItem As MailItem
Dim xMail As Outlook.MailItem
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set xMail = GInlineMail
Debug.Print "Explorer"
Case "Inspector"
Set xMail = Application.ActiveInspector.CurrentItem
Debug.Print "Inspector"
End Select
UserForm1.Show
If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
xMail.Subject = GSelSubject
End If
End Sub


Et quand je créer mon bouton dans Outlook avec mon projet vba, il ne se passe plus rien....

J'ai redémarré mon pc au cas ou....

Help !!! Merci

Bien que la variable soit Public GSelSubject As String
celle_çi doit être perdu si on passe dans Outlook..
Les autres Public aussi d'ailleurs . . . .
Je pense qu'il faut tout gérer depuis Excel mais sans fichier et le peu d'explication c'est jouer aux devinettes.
Bruno

En fait j'avais fait tout mon projet dans visual basic en cliquant sur Windows + f11
En fait il ne faut pas que je fasse comme ca ?
C'est ce que vous me dites ?
Voulez vous que j'exporte mon projet vb pour vous le communiquer ?

Je vous dis ca mais je ne sais même pas si c'est possible