Message demandant si action effectuée, puis reprise du code

Version imprimable

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

Code:

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

20/02/2018, 02h13
patricktoulon

re

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

Bonjour,

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

Code:

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

20/02/2018, 07h49
unparia

Bonjour

Citation:

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.
20/02/2018, 09h42
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.
20/02/2018, 09h54
patricktoulon

1 pièce(s) jointe(s)

re

re
ou a tu cherché
Pièce jointe 352623
20/02/2018, 10h09
jean30

Re,
Je travaille avec Excel 2003
https://www.cjoint.com/c/HBujjw0w5qO
20/02/2018, 13h01
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

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

Code:

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:

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

20/02/2018, 19h32
patricktoulon

re

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 :roll:
20/02/2018, 22h16
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

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:

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:

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é