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é