Il peut arriver que vous ayez besoin de concaténer des cellules.

Par exemple, vous pouvez avoir des informations dans trois colonnes, mais vous voulez qu’elles soient combinées dans la première colonne de chaque ligne. La macro suivante, StuffTogether, fera exactement cela. Il examine la plage de cellules que vous sélectionnez, puis déplace tout de chaque cellule d’une ligne vers la première cellule de la ligne.

Sub StuffTogether()

Dim FirstCol As Integer, FirstRow As Integer     Dim ColCount As Integer, RowCount As Integer     Dim ThisCol As Integer, ThisRow As Integer     Dim J As Integer, K As Integer     Dim MyText As String

FirstCol = ActiveWindow.RangeSelection.Column     FirstRow = ActiveWindow.RangeSelection.Row     ColCount = ActiveWindow.Selection.Columns.Count     RowCount = ActiveWindow.Selection.Rows.Count

For J = 1 To RowCount         ThisRow = FirstRow + J - 1         MyText = ""

For K = 1 To ColCount             ThisCol = FirstCol + K - 1             MyText = MyText & Cells(ThisRow, ThisCol).Text & " "

Cells(ThisRow, ThisCol).Value = ""

Next K         MyText = Trim(MyText)

Cells(ThisRow, FirstCol).Value = MyText     Next J End Sub

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2116) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

lien: / excelribbon-Combining_Columns [Combining Columns].