comment simplifier cette commande ?

K

kinel

XLDnaute Occasionnel

• 27 Décembre 2012

• #2

Re : comment simplifier cette commande ?

re bonjour

je reformule ma question
j'utilise ce code pour transmettre des donnée via Mail CDO

Dim cell As Range
Dim strbody As String
For Each cell In Sheets("feuil6").Range("B4:d4,B5:d5,B6:d6")
strbody = strbody & cell.Value & vbNewLine
Next

en fait, sur la feuil6 je voudrais envoyer la dernière ligne écrite dans le tableau B4:d300

merci de votre aide

Kinel

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Décembre 2012

• #3

Re : comment simplifier cette commande ?

Bonjour,

bah peut être nous dire pourquoi

Code:

Range("G18:H23").Select

ne correspond pas... on pourra peut être voir autre chose...

bon après midi
@+

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 27 Décembre 2012

• #4

Re : comment simplifier cette commande ?

Bonjour

peut-être

Range("G18:H18,G20:H23").Select

edit : bonjour Pierrot

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 27 Décembre 2012

• #5

Re : comment simplifier cette commande ?

Bonjour kinel, Oups 😱, bonjour à tous

Comme cela:

Code:

Range("G18:H18,G20:H23").Select

 

Dernière édition: 27 Décembre 2012

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Décembre 2012

• #6

Re : comment simplifier cette commande ?

Bonjour kinel

Range("G18:H18,G20:H23").Select

Edit: Salut Michel 🙂 ERiC 🙂 Pierrot 🙂

 

Dernière édition: 27 Décembre 2012

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 27 Décembre 2012

• #7

Re : comment simplifier cette commande ?

bonjour pierre93

oui dans la seconde question vous comprendrez pourquoi
car le résultat dans g18:h23 me met dabord toutes les cellules g puis en dessous toutes les cellules h
en fait si je pouvais selectionner la dernière ligne écrite ça me conviendrait encore mieux

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Décembre 2012

• #8

Re : comment simplifier cette commande ?

Re,

bonjour à tous🙂
Aarf, perso j'ai zappé qu'il n'y avait pas la ligne 19....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Décembre 2012

• #9

Re : comment simplifier cette commande ?

Re,

peut être ceci alors :

Code:

Range("G65536").End(xlUp).Resize(, 2).Select

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 27 Décembre 2012

• #10

Re : comment simplifier cette commande ?

merci à tous pour ces propositions rapides

pierrot je crois bien que ça doit ressembler à ça mais regarde mon second message
mais ça coince

Dim cell As Range
Dim strbody As String
For Each cell In Sheets("feuil6").Range("C65536").End(xlUp).Resize(, 2).Select
strbody = strbody & cell.Value & vbNewLine
Next

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 27 Décembre 2012

• #11

Re : comment simplifier cette commande ?

Bonjour à tous

C'était trop facile pour moi 🙂.

Dim cell As Range
Dim strbody As String
For Each cell In Sheets("feuil6").Range("B4:d4,B5:d5,B6:d6")
strbody = strbody & cell.Value & vbNewLine
Next

en fait, sur la feuil6 je voudrais envoyer la dernière ligne écrite dans le tableau B4:d300

Cliquez pour agrandir...

Déjà, la je ne comprend rien mais vraiment rien 😕.

Alors, si tu avais mis un fichier avec le pourquoi du comment tu aurais surement dèjà ta réponse.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Décembre 2012

• #12

Re : comment simplifier cette commande ?

Re,

enlève le ".select", mais la tu va faire ta boucle sur les colonnes C et D

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 27 Décembre 2012

• #13

Re : comment simplifier cette commande ?

bien vu
sans le select ça fonctionne parfaitement
désolé pour le fichier exemple mon classeur est trop gros et ça m'aurait pris trop de temps pour l'anonymiser

avec le code suivant c'est pil poil

Dim cell As Range
Dim strbody As String
For Each cell In Sheets("feuil6").Range("C65536").End(xlUp).Resize(, 2)
strbody = strbody & cell.Value & vbNewLine
Next

merci à tous

Kinel

 

Vote positif 0 Vote négatif