Discussion :

[KASMINATOR]

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 :

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
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

[Igloobel]

Bonjour,

Moi à ta place j'utiliserai :

"Application.InputBox" avec "Type:=8" qui permet de demander à l'utilisateur de selectionner sa plage

puis union des 2 plages

et puis le reste ...

Tu dis

A+

[KASMINATOR]

Bonjour Igloobel,

J'avoue que je connaissais pas Application.InputBox çà fait quelques mois que je me suis au VBA et j'aime beaucoup

Code :

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

1
2
3
Set myRange = Application.InputBox(prompt := "Sample", type := 8)
 
Application.Union(Range("A1:H1"), Range("myRange")).Select

J'ai du mal à comprendre comment faire l'union des deux plages comme l'une est fixe et l'autre une sélection

Merci beaucoup de ton aide précieuse !

[KASMINATOR]

Bonjour,

Je sais pas si mon message précédent était très clair alors n'hésitez pas à me dire.

Merci encore

[Igloobel]

Moi aussi je comprends pas vu que la réponse est dans ta question.

Que veux-tu de plus ?

[KASMINATOR]

Bah l'union ne marche pas je me retrouve certes avec une sélection mais elle n'est pas prise en compte.

Je n'arrive pas à unir la sélection :

Code :

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

Application.Union(Range("A1:H1"), Range("myRange")).Select

[pijaku]

Bonjour,
Ton instruction :

Code :

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

Set myRange = Application.InputBox(prompt := "Sample", type := 8)

, te donne un objet Range.
A utiliser tel quel.
Donc :

Code :

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

Application.Union(Range("A1:H1"), myRange)