Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Help me please - sélection d'une plage variable

KASMINATOR

XLDnaute Nouveau
Bonjour à tous, je suis depuis 14h sur un dilemme.

Je n'arrive pas à solutionner mon problème qui est le suivant :

J'aimerai pouvoir copier deux lignes d'un tableau : une qui restera fixe !
La deuxième ligne serait une sélection faite par l'utilisateur du fichier.

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"), sélectionnez 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
 

KASMINATOR

XLDnaute Nouveau
Bonjour Dranreb,

Merci de ton aide, j'ai essayé hier soir cette solution mais non plus... échec

J'ai essayé aussi cette solution : 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"), avec la plage sélectionnée.Select


With ActiveSheet.MailEnvelope
.Introduction = "Bonjour ............"
.Item.To = "Tata-@email.fr"
.Item.Subject = "Rajouter utilisateur suivant"
.Item.Send
End With
End Sub
 

KASMINATOR

XLDnaute Nouveau
Je viens d'essayer sur mon classeur et toujours rien... çà me sélectionne le classeur en entier.

Je sélectionne bien une seule ligne pourtant....

Je me retrouve avec le tableau en entier dans l'email

Dernière macro :

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
Union(Range("A1:H1"), Selection).Select
With ActiveSheet.MailEnvelope
.Introduction = "Bonjour la cellule Data-Management, nous aimerions permettre la connexion à l'e-CRF de l'étude ACTIDIANE de l'utilisateur ci-dessous"
.Item.To = "TTata-management@chu-poitiers.fr"
.Item.Subject = "ACTIDIANE - Rajouter utilisateur ECRF"
.Item.Send
End With
End Sub
 

Dranreb

XLDnaute Barbatruc
Chez moi la méthode MailEnvelope de l'objet Worksheet plante systématiquement et je ne sais rien de la manière dont elle devrait fonctionner si elle ne plantait pas. Peut être utilise-t-elle des fournitures de OutLook, que je sais ne pas avoir sur mon Office.
Peut être faudrait-il copier les ligne dans une feuille spéciale dédiée à cette opération, je ne sais pas.
 

KASMINATOR

XLDnaute Nouveau
Voici le fichier :

En gros j'aimerai créer une alerte mail pour demander à mon ami de l'association de l'ajouter ou de le retire juste en sélectionnant la ligne et en gardant les entêtes du répertoire
 

Pièces jointes

  • Répertoire Help me.xls
    91 KB · Affichages: 27
  • Répertoire Help me.xls
    91 KB · Affichages: 19
  • Répertoire Help me.xls
    91 KB · Affichages: 29

KASMINATOR

XLDnaute Nouveau
Si quelqu'un à une idée je suis toujours preneur svp :

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

La selectio n'aboutit pas j'ai toujours la sélection complète du tableau qui est copié dans l'email
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…