Concatener

4 réponses

Setec Essarts

15/12/2003 à 11:09

Bonjour,
je cherche une macro qui me permette de concatener automatiquement une plage
de cellules, avec résultat sous format valeur dans la cellule au dessus de
cette plage, avec des Alt+Entrée entre chaque valeur de cellule.

Merci d'avance

Vincent JACQUES

4 réponses

gilbert

15/12/2003 à 12:11

bonjour ???

Dans un module standard

Sub Concatener()
Range("A1:C1").Select 'plage à adapter
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
Selection.Merge
End Sub

@+++

--
+---------------------------------------------------------------------------
---------------------------+
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP
+---------------------------------------------------------------------------
---------------------------+
"Setec Essarts" a écrit dans le message de news:
3fdd8857$0$7148$

Bonjour,
je cherche une macro qui me permette de concatener automatiquement une
plage

de cellules, avec résultat sous format valeur dans la cellule au dessus de
cette plage, avec des Alt+Entrée entre chaque valeur de cellule.

Merci d'avance

Vincent JACQUES

Philippe.R

15/12/2003 à 23:43

Bonsoir Vincent,

Sub concatetsaute()
'MPFE le 15/12/2003
Dim rOh As Long, uMn As Integer
On Error Resume Next
rOh = ActiveCell.Row
uMn = ActiveCell.Column
With Selection
For i = rOh To Selection.Rows.Count
For j = uMn To Selection.Columns.Count
Cells(rOh - 1, uMn + 1) = Cells(rOh - 1, uMn + 1) & Chr(10) & Chr(13) & Cells(i, j).Value
Next j
Next i
End With
End Sub

Devrait pouvoir convenir
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Setec Essarts" a écrit dans le message de
news:3fdd8857$0$7148$

Bonjour,
je cherche une macro qui me permette de concatener automatiquement une plage
de cellules, avec résultat sous format valeur dans la cellule au dessus de
cette plage, avec des Alt+Entrée entre chaque valeur de cellule.

Merci d'avance

Vincent JACQUES

Philippe.R

15/12/2003 à 23:45

Re,
Téléchargement capricieux, je n'avais pas vu la suite et les réponses données.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Setec Essarts" a écrit dans le message de
news:3fdd8857$0$7148$

Bonjour,
je cherche une macro qui me permette de concatener automatiquement une plage
de cellules, avec résultat sous format valeur dans la cellule au dessus de
cette plage, avec des Alt+Entrée entre chaque valeur de cellule.

Merci d'avance

Vincent JACQUES

Setec Essarts

22/12/2003 à 09:10

Merci à toi, anyway,
j'y étais finalement arrivé

Cordialement

Vincent

"Philippe.R" a écrit dans le message de news:

Re,
Téléchargement capricieux, je n'avais pas vu la suite et les réponses
données.

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Setec Essarts" a écrit dans le message de
news:3fdd8857$0$7148$
Bonjour,
je cherche une macro qui me permette de concatener automatiquement une
plage

de cellules, avec résultat sous format valeur dans la cellule au dessus
de

cette plage, avec des Alt+Entrée entre chaque valeur de cellule.

Merci d'avance

Vincent JACQUES

Concatener

4 réponses

Veuillez sélectionner un problème