OVH Cloud OVH Cloud

grouper des données

3 réponses
Avatar
v.f.giraud
Bonjour à tous,


Voila , j'ai un fichier de clients ( 700 lignes ) où sur chacune est marqué
en premiere colonne la raison sociale sur la "B" le nom du dirigeant, la "C"
l'adresse ,ainsi de suite.

Je voudrais en fait regrouper toute les informations de chaque lignes dans
les cellules de la colonne "A".

en esperant vivement que cela est possible, je vous remercie pour vos bonnes
idées .

Oscar

3 réponses

Avatar
RaMa
Bonsoir
¡&car(10)&b1&car(10)&d1&....
formate avec "retour à la ligne"
Salutations
--
RaMa
"v.f.giraud" a écrit dans le message de
news:caicfu$af2$
Bonjour à tous,


Voila , j'ai un fichier de clients ( 700 lignes ) où sur chacune est
marqué

en premiere colonne la raison sociale sur la "B" le nom du dirigeant, la
"C"

l'adresse ,ainsi de suite.

Je voudrais en fait regrouper toute les informations de chaque lignes dans
les cellules de la colonne "A".

en esperant vivement que cela est possible, je vous remercie pour vos
bonnes

idées .

Oscar




Avatar
ChrisV
Bonjour Oscar,

Si tu désires obtenir les infos de chaque colonne de la ligne
correspondante, en colonne A, sous la forme:
Raison sociale (espace) Non dirigeant (espace) Adresse (espace) etc...
puis ligne 2, etc...

Sub concaT()
Dim i As Long, c As Range, y As Integer, t As String
Application.ScreenUpdating = False
For i = 1 To [A65536].End(xlUp).Row
t = ""
y = Range("IV" & i).End(xlToLeft).Column
For Each c In Range(Cells(i, 1), Cells(i, y))
t = t & " " & c.Value
Next c
Range("A" & i) = Mid(t, 2, 9 ^ 9)
Range(Cells(i, 2), Cells(i, y)).Clear
Next i
End Sub

Si tu désires obtenir les infos de chaque colonne de la ligne
correspondante, en colonne A, sous la forme:
Raison sociale
Non dirigeant
Adresse
etc...
puis ligne 2, etc...

Sub concaT()
Dim i As Long, c As Range, y As Integer, t As String
Application.ScreenUpdating = False
For i = 1 To [A65536].End(xlUp).Row
t = ""
y = Range("IV" & i).End(xlToLeft).Column
For Each c In Range(Cells(i, 1), Cells(i, y))
t = t & Chr(10) & c.Value
Next c
Range("A" & i) = Mid(t, 2, 9 ^ 9)
Range(Cells(i, 2), Cells(i, y)).Clear
Next i
End Sub


ChrisV



"v.f.giraud" a écrit dans le message de
news:caicfu$af2$
Bonjour à tous,


Voila , j'ai un fichier de clients ( 700 lignes ) où sur chacune est
marqué

en premiere colonne la raison sociale sur la "B" le nom du dirigeant, la
"C"

l'adresse ,ainsi de suite.

Je voudrais en fait regrouper toute les informations de chaque lignes dans
les cellules de la colonne "A".

en esperant vivement que cela est possible, je vous remercie pour vos
bonnes

idées .

Oscar




Avatar
v.f.giraud
Grand merci,

Je ne sais pas ou tu vas chercher ces formules mais en tous cas elle
magique.
Cest exactement ce que je voulais.

Bonne journée

Oscar


"ChrisV" a écrit dans le message de
news:
Bonjour Oscar,

Si tu désires obtenir les infos de chaque colonne de la ligne
correspondante, en colonne A, sous la forme:
Raison sociale (espace) Non dirigeant (espace) Adresse (espace) etc...
puis ligne 2, etc...

Sub concaT()
Dim i As Long, c As Range, y As Integer, t As String
Application.ScreenUpdating = False
For i = 1 To [A65536].End(xlUp).Row
t = ""
y = Range("IV" & i).End(xlToLeft).Column
For Each c In Range(Cells(i, 1), Cells(i, y))
t = t & " " & c.Value
Next c
Range("A" & i) = Mid(t, 2, 9 ^ 9)
Range(Cells(i, 2), Cells(i, y)).Clear
Next i
End Sub

Si tu désires obtenir les infos de chaque colonne de la ligne
correspondante, en colonne A, sous la forme:
Raison sociale
Non dirigeant
Adresse
etc...
puis ligne 2, etc...

Sub concaT()
Dim i As Long, c As Range, y As Integer, t As String
Application.ScreenUpdating = False
For i = 1 To [A65536].End(xlUp).Row
t = ""
y = Range("IV" & i).End(xlToLeft).Column
For Each c In Range(Cells(i, 1), Cells(i, y))
t = t & Chr(10) & c.Value
Next c
Range("A" & i) = Mid(t, 2, 9 ^ 9)
Range(Cells(i, 2), Cells(i, y)).Clear
Next i
End Sub


ChrisV



"v.f.giraud" a écrit dans le message de
news:caicfu$af2$
Bonjour à tous,


Voila , j'ai un fichier de clients ( 700 lignes ) où sur chacune est
marqué

en premiere colonne la raison sociale sur la "B" le nom du dirigeant, la
"C"

l'adresse ,ainsi de suite.

Je voudrais en fait regrouper toute les informations de chaque lignes
dans


les cellules de la colonne "A".

en esperant vivement que cela est possible, je vous remercie pour vos
bonnes

idées .

Oscar