Bonjour les amis XLDnautes,
J'ai trouve ce code tres concis et tres interessant. Il fonctionne tres bien pour une plage unique.
Neanmoins, je souhaite conserver le titre des colonnes en ligne 4 (voir capture d'ecran de mon projet) et laisser a l'utilisateur le choix des lignes qu'il souhaite envoyer.
J'ai essaye de faire une union de plages:
'Marche po!
L'erreur est renvoyee ici que j'ecrive:
ou
Comment faire une selection d'une plage non contigue incluant l'entete des colonnes (ou excluant quelques lignes du tableau)?
"J'en aurais demander de l'aide pour ce maudit tableau!"
Merci a tous pour vos propositions.
J'ai trouve ce code tres concis et tres interessant. Il fonctionne tres bien pour une plage unique.
Neanmoins, je souhaite conserver le titre des colonnes en ligne 4 (voir capture d'ecran de mon projet) et laisser a l'utilisateur le choix des lignes qu'il souhaite envoyer.
J'ai essaye de faire une union de plages:
'Marche po!
Code:
Sub EnvoiPlages()
Dim ligne1 As Integer
Dim ligne2 As Integer
ligne1 = 6 ' Plus tard, je souhaite demander a l'utilisateur de renseigner ces champs
ligne2 = 8 ' par Userform, pour la comprehension, elles sont deja renseignees ici.
Set letout = Union(Range("B4:L4"), Range("B" & ligne1 & ":" & "L" & ligne2))
ActiveSheet.Range("letout").Select ' <== ERREUR
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Dear Sir," & vbLf & vbLf & "You can see my report as following:" & vbLf & vbLf
.Item.To = "blabla@blablagroup.net"
.Item.Subject = "Report"
.Item.Send
End With
End Sub
L'erreur est renvoyee ici que j'ecrive:
Code:
ActiveSheet.Range("letout").Select
Code:
letout.Select
Comment faire une selection d'une plage non contigue incluant l'entete des colonnes (ou excluant quelques lignes du tableau)?
"J'en aurais demander de l'aide pour ce maudit tableau!"
Merci a tous pour vos propositions.