Discussion :

[jean30]

Bonjour à tous,
Ma demande se trouve dans le code :
En vous remerciant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Filtrage()
    Sheets("Base").Select
        Columns("I:L").AutoFilter
        Selection.AutoFilter Field:=1, Criteria1:="<>-", Operator:=xlAnd     'masquer lignes comportant - (un tiret)
 
          ' Ici, je souhaiterai avoir un message invitant à sélectionner les adresses mail.
          ' Puis une fois la sélection effectuée, poursuite de la macro.
 
        Columns("J:J").AutoFilter
        Selection.AutoFilter Field:=1, Criteria1:="X"
'copier coller des adresses mail Cc
    Sheets("MAIL").Select
        If [D2] <> "" Then
        [MailCc].ClearContents
        If [E2] <> "" Then
        [MailCc].ClearContents
    End If
    End If
    [IdentiteMail].Copy: [CollerAdresseMailCc].PasteSpecial xlValues
        With Selection.Font
            .Name = "Times New Roman"
            .Size = 10
        End With
                Selection.AutoFilter
    'sup filtre
    Columns("L:L").AutoFilter
    Columns("L:L").AutoFilter Field:=1, Criteria1:="X"
    'copier coller des adresses mail Cci
    If [D2] <> "" Then [CollerAdresseMailCci] = ClearContents
    [IdentiteMail].Copy: [CollerAdresseMailCci].PasteSpecial xlValues
        With Selection.Font
            .Name = "Times New Roman"
            .Size = 10
        End With
    'sup filtre
    Selection.AutoFilter
End Sub

[patricktoulon]

salut
vas dans vbe tape F1 et dans l'aide tape "response" tu aura ce que tu cherche

[Theze]

Bonjour,

Tu peux utiliser l'inputbox de l'application pour sélectionner une plage :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Test()
 
    Dim Plage As Range
 
    On Error Resume Next
    Set Plage = Application.InputBox("Sélectionner la plage !", "E.mails.", , , , , , 8)
 
    If Err.Number = 0 Then
        MsgBox Plage.Address(0, 0)
    Else
        MsgBox "Sélection annulée !"
    End If
 
    On Error GoTo 0
 
End Sub

[unparia]

Bonjour

Ici, je souhaiterai avoir un message invitant à sélectionner les adresses mail.
Puis une fois la sélection effectuée, poursuite de la macro.

Il me semble qu'il serait alors bien plus pratique d'afficher une listbox "multiselect" liée à la plage de cellules contenant les adresses à choisir.

[jean30]

Bonjour patricktoulon, Theze, unparia,
Je vous remercie de vous intéresser à ma problématique,
patricktoulon - response me donne : aucun résultat trouvé.
Theze - je ne comprends pas car la sélection peut être une plage ou plusieurs cellules successives ou non dans la plage.
unparia - listbox "multiselect" : je ne sais pas faire.

[patricktoulon]

re
ou a tu cherché

[jean30]

Re,
Je travaille avec Excel 2003
https://www.cjoint.com/c/HBujjw0w5qO

[jean30]

Re,
Je joint un classeur test, comme il dépasse le poids autorisé, je ne peux l'insérer.

https://www.cjoint.com/c/HBumadXXcpO

[jean30]

Re,
Merci à vous tous,
En fait, j'ai résolu le problème en modifiant la macro et en plaçant un MsgBox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Filtrage1()  ' Filtrage des emails       OKOKOKOKOK
    Sheets("MAIL").Select
    If ("D2") <> "" Then
        Range("D2", Range("D200").End(xlUp)).ClearContents
    End If
        If ("C2") <> " " Then
            Range("E2", Range("E200").End(xlUp)).ClearContents
        End If
    Sheets("Base").Select
    Columns("I:L").AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<>"
    MsgBox " Veuillez sélectionner les destinataires de votre mail", vbOKOnly + vbInformation, "Destinataires du mail"
End Sub

Puis j’appelle la seconde macro via un bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Filtrage2
Columns("J:J").AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="X"
'copier coller des adresses mail Cc
Sheets("MAIL").Select
If [D2] <> "" Then
[MailCc].ClearContents
If [E2] <> "" Then
[MailCc].ClearContents
End If
End If
[IdentiteMail].Copy: [CollerAdresseMailCc].PasteSpecial xlValues
With Selection.Font
.Name = "Times New Roman"
.Size = 10
End With
Selection.AutoFilter
'sup filtre
Columns("L:L").AutoFilter
Columns("L:L").AutoFilter Field:=1, Criteria1:="X"
'copier coller des adresses mail Cci
If [D2] <> "" Then [CollerAdresseMailCci] = ClearContents
[IdentiteMail].Copy: [CollerAdresseMailCci].PasteSpecial xlValues
With Selection.Font
.Name = "Times New Roman"
.Size = 10
End With
'sup filtre
Selection.AutoFilter
End Sub

[patricktoulon]

salut
tu n'a pas chercher dans aide sinon tu aurais trouvé
avec le msgbox yesno tu peux décider de continuer OU!! pas pas besoins d'un 2d bouton

[jean30]

Re,
Si j'ai regardé, mais je ne vois pas comment si je clique sur Non (le msgbox disparaît, je reviens sur la feuille Xl - OK je fais les sélections.
Mais comment je reviens sur le msgbox de nouveau pour cliquer sur Oui

[patricktoulon]

c'est simple le reste du code apres le msgbox tu le met dans vbyes ou vbno
ou tu fait un exit sub dans le if else

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'bblavbla bla du code
'encore du code
'encore du code
'.......
Response = MsgBox("voulez vou continuer", vbyesno, "testmessage interactif")
if response=vbyes then
'ici le reste de ton code
else
msgbox operation stopée
end if

ou celle ci conviendrait peu etre mieux ety serait plus facile a intégrer a ce que tu a deja

Code :

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

1
2
3
4
5
6
7
8
9
10
'bblavbla bla du code
'encore du code
'encore du code
'.......
Response = MsgBox("voulez vou continuer", vbyesno, "testmessage interactif")
if response=vbno then
msgbox operation stopée:exit sub 
end if 
'reste du code ici

pas compliqué