Range Select Application Union - sélection d'une plage variable
Bonjour à tous, je suis depuis 2 jours sur un dilemme.
Je n'arrive pas à solutionner mon problème qui est le suivant :
J'ai un tableau excel et j'aimerai pouvoir copier deux lignes du tableau : une qui restera fixe !
La deuxième ligne serait une sélection faite par l'utilisateur du fichier.
Après que ces deux lignes sont sélectionnés on copie et colle dans un email.
J'arrive à envoyer le mail mais uniquement avec la ligne fixe et j'aimerai vraiment que l'utilisateur du fichier puisse choisir une deuxième ligne qui pourra varier.
Macro pour l'instant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Sub envoiPlageCellules_Excel2002()
Dim Dest As String
Dim Cell As Range
For Each Cell In Range("F1:F" & Range("F65536").End(xlUp).Row)
Dest = Dest & ";" & Cell
Next Cell
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644
Application.Union(Range("A1:H1"), Demander à l'utilisateur de sélectionner la plage de valeurs.Select
With ActiveSheet.MailEnvelope
.Introduction = "Bonjour ............"
.Item.To = "Tata-@email.fr"
.Item.Subject = "Rajouter utilisateur suivant"
.Item.Send
End With
End Sub |
Merci de votre aide rigoureuse :)
Range and select impossible
Merci de ton retour mais la sélection ne s'opère toujours pas c'est le classeur en entier qui est sélectionné.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub envoiPlageCellules_Excel2002()
Dim Dest As String
Dim Cell As Range
For Each Cell In Range("F1:F" & Range("F65536").End(xlUp).Row)
Dest = Dest & ";" & Cell
Next Cell
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644
Set myRange = Application.InputBox(prompt:="Sample", Type:=8)
Application.Union(Range("A1:H1"), myRange).Select
With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = ""
.Item.Subject = ""
.Item.Send
End With
End Sub |
