Lignes selectionnées copiées dans une même cellule (ALT + ENTREE)

M

mothinx

XLDnaute Nouveau

• 24 Octobre 2014

• #2

Re : Lignes selectionnées copiées dans une même cellule (ALT + ENTREE)

Petit ajout:
Après recherche, la chaine de caractere à ajouter pour le retour chariot est " & Chr(10) & "

 

Vote positif 0 Vote négatif

M

mothinx

XLDnaute Nouveau

• 24 Octobre 2014

• #3

Re : Lignes selectionnées copiées dans une même cellule (ALT + ENTREE)

J'ai réussi à faire le principe pour une seule cellule selectionnée:

Sub retour_chariot()

ActiveCell.Value = ActiveCell.Value & Chr(10) & ActiveCell.Offset(1, 0).Value

End Sub

Maintenant, il faut trouver un moyen de le faire pour plusieurs ligne selectionnées, et que la première prennent la valeur de celles d'en dessous avec Chr(10) entre.

 

Vote positif 0 Vote négatif

M

mothinx

XLDnaute Nouveau

• 24 Octobre 2014

• #4

Re : Lignes selectionnées copiées dans une même cellule (ALT + ENTREE)

Et bien j'ai trouvé la solution comme un grand.

Voici le code:

Sub retour_chariot_plage_select()

Dim nb As Integer
nb = Selection.Rows.Count
For i = nb - 1 To 1 Step -1
ActiveCell.Offset(i - 1, 0).Value = ActiveCell.Offset(i - 1, 0).Value & Chr(10) & ActiveCell.Offset(i, 0).Value
ActiveCell.Offset(i, 0).ClearContents

Next
End Sub

En tant que GRAND débutant (je n'ai commencé que depuis ce matin à me pencher sur le VBA), merci de critiquer ce code et me dire si il est améliorable (bon je vous l'avoue il ne fait que 5 lignes...)

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 25 Octobre 2014

• #5

Re : Lignes selectionnées copiées dans une même cellule (ALT + ENTREE)

Bonjour mothinx

Attention l'integer est limité à 32276 il me semble, il vaut peut être mieux mettre double (voir la définition des variables avec leurs plages).

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2014

• #6

Re : Lignes selectionnées copiées dans une même cellule (ALT + ENTREE)

Bonjour à tous

MJ13
Selon Microsoft (voir l'aide VBE ou leur site internet dédié: Ce lien n'existe plus)
Les Rows/Columns se déclarent en Long
Donc
nb as Long
ou
nb&

 

Dernière édition: 25 Octobre 2014

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 25 Octobre 2014

• #7

Re : Lignes selectionnées copiées dans une même cellule (ALT + ENTREE)

Re, Bonjour JM

Oui, j'ai dit cela comme j'aurais pu dire autre chose. Faut un peu chercher dans la vie .

Personnellement nb&, comme cela ne me parle pas, cela m'étonnerait que je l'écrive ainsi.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2014

• #8

Re : Lignes selectionnées copiées dans une même cellule (ALT + ENTREE)

Re

MJ13
Pourtant depuis 2007, la FAQ XLD nous enseigne cette langue
https://www.excel-downloads.com/threads/vba-types-de-variables.81052/

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 25 Octobre 2014

• #9

Re : Lignes selectionnées copiées dans une même cellule (ALT + ENTREE)

Re JM

J'ai cliqué sur ton lien et je me suis aperçu que j'avais raison, sache que je suis un intutif .

Alors c'est pas la peine d"en faire un foin .

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2014

• #10

Re : Lignes selectionnées copiées dans une même cellule (ALT + ENTREE)

Re

MJ13
Je n'en fais pas un foin, je poste juste un lien.
Tout simplement par ce que tu ne seras le seul lecteur du fil
Comme la FAQ d'XLD regorge de nombreuses pépites , il se trouvera surement des membres du forum contents d'y faire un tour.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 26 Octobre 2014

• #11

Re : Lignes selectionnées copiées dans une même cellule (ALT + ENTREE)

Re JM

voir la définition des variables avec leurs plages

Cliquez pour agrandir...

Pourtant, j'avais bien précisé au départ. Donc, c'était sous-entendu. Après il y a tellement de façons de faire, je ne vais pas toutes les énumérer .

 

Vote positif 0 Vote négatif