Salut à tous,
Prenons tout d'abord un exemple simple et on généralisera après:
J'ai 3 cellules avec du texte dans chaque cellule.
Je souhaite que le texte de ces 3 cellules se retrouve dans une cellule de 3 lignes (avec l'option 'alt + enter' sous excel ou encore chr(10) en VBA)
J'obtiens un code de ce type:
Je souhaite généraliser l'exemple ci-dessus comme suit: Pour x cellules avec du texte, je souhaite obtenir une fusion de ce texte dans une cellule de x ligne.
Mon problème est de stocker le texte de chaque cellule et d'aller le coller dans une cellule à la suite en allant à la ligne à chaque fois.
Cela sachant que je sélectionne ma plage de cellule avec une input box comme suit:
Quelqu'un a une solution?
A+
Message édité par: jeromegmc, à: 02/09/2005 15:40
Prenons tout d'abord un exemple simple et on généralisera après:
J'ai 3 cellules avec du texte dans chaque cellule.
Je souhaite que le texte de ces 3 cellules se retrouve dans une cellule de 3 lignes (avec l'option 'alt + enter' sous excel ou encore chr(10) en VBA)
J'obtiens un code de ce type:
Code:
Range('A1') = Range('B1') + Chr(10) + Range('B2') + Chr(10) + Range('B3')
Je souhaite généraliser l'exemple ci-dessus comme suit: Pour x cellules avec du texte, je souhaite obtenir une fusion de ce texte dans une cellule de x ligne.
Mon problème est de stocker le texte de chaque cellule et d'aller le coller dans une cellule à la suite en allant à la ligne à chaque fois.
Cela sachant que je sélectionne ma plage de cellule avec une input box comme suit:
Code:
Set mycells = Application.InputBox(prompt:='Sélectionnez la plage de cellules.', _
Title:='Plage de cellules', Left:=500, Top:=300, Type:=8)
Quelqu'un a une solution?
A+
Message édité par: jeromegmc, à: 02/09/2005 15:40