Discussion :

[AntMi]

Je suis de retour avec une nouvelle question :

Lorsque j'execute cette maccro :

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
Sub mail()
 
With Sheets("Reglementaire").MailEnvelope
 
.Introduction = "bonjour , ci-joint un tableau" 'Texte du mail
    .Item.To = "x.x@domaine.fr" 'Adresse
    .Item.Subject = " à prévoir" 'sujet du mail
    .Item.Send
 
    End With
    ' On prépare le mail à envoyer
End Sub
 
Function corps(x As Range) As Variant
    Dim i As Byte
 
For i = Cells(86, 4).Value To Cells(86, 5).Value 'lignes de mon tableau
    With Worksheets(1).Cells(i, 11) 'Avec comme condition la valeur que prend la colone "11"
 
        Select Case .Value
 
            Case -30 To 0
        Set MaPlage = Columns("A:K").Rows(i)
        moncorps = moncorps & " " & x.MaPlage 'Envoi de la ligne si la valeur en colone "11" est comprise entre 0 et -30
 
 
        moncorps = moncorps & Chr(10)
 
            Case Else
 
        moncorps = moncorps & " " 'ne rien écrire
 
 
        End Select
 
    End With
Next i
End Function

Suite à l'exécution de cette maccro, Excel m'affiche une boite de dialogue : Cette feuille de calcul contient des lignes ou colones masquées que le destinataire pour rendre visibles. Souhaitez vous continuer?

1) Je ne comprend pas la phrase
2) Du coup je suis obligé de faire Ok et il ne m'envoie pas l'extraction souhaitée. Avez vous une idée de ce qui bloque ?

Je vous remercie par avance

[Jean-Philippe André]

Salut,

l'ensemble de ta plage est-elle non cachée ?

Pour envoyer une plage de cellules par mail, j'utilise la fonction disponible depuis la
http://excel.developpez.com/faq/inde...geCellulesMail
http://www.developpez.net/forums/d96...omplement-faq/

tu devrais pouvoir effectuer la même chose sans problème

[AntMi]

EXCEL m'affiche toujours ce message d'erreur et m'envoie l'intégralité du tableau ....