comment simplifier cette commande ?

[kinel]

bonjour à tous

pouvez vous me dire comment écrire plus simplement cette sélection ?

Range("G18:H18,G20:H20,G21:H21,G22:H22,G23:H23").Select

sachant que la sélection ("g18:h23") ne correspond pas à ce que je cherche


Merci

Kinel

 

[kinel]

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

 

[Pierrot93]

Re : comment simplifier cette commande ?

Bonjour,

bah peut être nous dire pourquoi

Range("G18:H23").Select

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

bon après midi
@+

 

[ERIC S]

Re : comment simplifier cette commande ?

Bonjour

peut-être

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

edit : bonjour Pierrot

 

[MJ13]

Re : comment simplifier cette commande ?

Bonjour kinel, Oups 😱, bonjour à tous

Comme cela:

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

 

[pierrejean]

Re : comment simplifier cette commande ?

Bonjour kinel

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

Edit: Salut Michel 🙂 ERiC 🙂 Pierrot 🙂

 

[kinel]

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

 

[Pierrot93]

Re : comment simplifier cette commande ?

Re,

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

 

[Pierrot93]

Re : comment simplifier cette commande ?

Re,

peut être ceci alors :

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

 

[kinel]

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

 

[MJ13]

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

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.

 

[Pierrot93]

Re : comment simplifier cette commande ?

Re,

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

 

[kinel]

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