Discussion :

[Mickrey]

Bonjour à tous.
J'ai besoin d'une macro VBA sous excel, mais je ne connais pas grand chose à ce langage, donc je m'en remets à vous.

J'essaie d'utiliser le code suivant, trouvé sur le net et adapté à la feuille excel concernée, pour envoyer un mail groupé, avec adresses mails en Bcc :

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
38
39
40
41
Private Sub CommandButton1_Click()
'compteur de ligne
i = 2
 
'les adresses a prendre en consideration
 
bcc_a_prendre = ""
 
 
'boucle pour verifier toute la liste dans le fichier
Do
 
'ajout de l'adresse dans la zone de copie a prendre en consideration
 
bcc_a_prendre = bcc_a_prendre & Range("F" & i).Value & ";"
 
 
 
 
i = i + 1
'verification qu'il y a bien une donnee dans la col A
Loop Until Range("A" & i).Value = ""
 
'comme il y a un ; en trop dans chaque champ, l'enlever mais verifier que le champs n'est pas vide
 
If Len(bcc_a_prendre) > 0 Then
bcc_a_prendre = Left(bcc_a_prendre, Len(bcc_a_prendre) - 1)
End If
 
'preparation du mail
Hyperlien = "mailto:" & "?"
Hyperlien = Hyperlien & "subject="
 
Hyperlien = Hyperlien & "&Bcc=" & bcc_a_prendre
 
 
ActiveWorkbook.FollowHyperlink Hyperlien
 
 
 
End Sub

Mon problème est le suivant : dans la feuille excel sur laquelle cette fonction, associée à un bouton, se trouve, il y a aussi des filtres qui permettent de n'afficher que certaines lignes, et d'en masquer d'autres, suivant certains critères. Seulement voilà, quand j'exécute la macro, elle applique ça sur toutes les lignes du tableau. J'aimerais en fait pouvoir utiliser ça, mais uniquement sur ce qui est visible au moment où j'appuie sur le bouton, donc uniquement sur les adresses mails triées.

Comment pourrait on modifier ce code pour y parvenir ?

Un tout grand merci d'avance

[Pierre Fauconnier]

Bonjour. Bienvenue sur DVP

Place le test suivant:

Code :

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

1
2
3
4
5
 
do
if Rows(i).Hidden = False Then bcc_a_prendre = bcc_a_prendre & Range("F" & i).Value & ";"
i = i + 1
loop until Range("A" & i).Value = ""

[Mickrey]

Ca a l'air de fonctionner, merci beaucoup