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

K

KASMINATOR

XLDnaute Nouveau

• 28 Mars 2018

• #2

Si je n'ai pas été suffisamment clair dans ma description n'hésitez pas à me demander.

 

Vote positif 0 Vote négatif

K

KASMINATOR

XLDnaute Nouveau

• 29 Mars 2018

• #3

Up

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 29 Mars 2018

• #4

Bonjour.
Si la ligne est sélectionnée avant le lancement de la macro, essayez
Union(Range("A1:H1"), Selection).Select
À tester.

 

Vote positif 0 Vote négatif

K

KASMINATOR

XLDnaute Nouveau

• 29 Mars 2018

• #5

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 29 Mars 2018

• #6

Enfin si je sélectionne par exemple A10:H10 et que j'exécute Macro1, j'ai bien A1:H1;A10:H10 sélectionnées

VB:

Sub Macro1()
Union(Range("A1:H1"), Selection).Select
End Sub

 

Vote positif 0 Vote négatif

K

KASMINATOR

XLDnaute Nouveau

• 29 Mars 2018

• #7

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

 

Vote positif 0 Vote négatif

K

KASMINATOR

XLDnaute Nouveau

• 29 Mars 2018

• #8

Merci Dranreb en tout cas de m'aider

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 29 Mars 2018

• #9

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.

 

Vote positif 0 Vote négatif

K

KASMINATOR

XLDnaute Nouveau

• 29 Mars 2018

• #10

Je peux te montrer mon classeur si tu veux ?

 

Vote positif 0 Vote négatif

K

KASMINATOR

XLDnaute Nouveau

• 29 Mars 2018

• #11

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

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 29 Mars 2018

• #12

Ça ne marche pas sur mon Excel

 

Vote positif 0 Vote négatif

K

KASMINATOR

XLDnaute Nouveau

• 30 Mars 2018

• #13

Je suis à nouveau à la case départ.... merci Dranreb quand même

 

Vote positif 0 Vote négatif

K

KASMINATOR

XLDnaute Nouveau

• 4 Avril 2018

• #14

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

 

Vote positif 0 Vote négatif

K

KASMINATOR

XLDnaute Nouveau

• 9 Avril 2018

• #15

Up

 

Vote positif 0 Vote négatif