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 .
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
Bonsoir
¡&car(10)&b1&car(10)&d1&....
formate avec "retour à la ligne"
Salutations
--
RaMa
"v.f.giraud" <v.f.giraud@wanadoo.fr> a écrit dans le message de
news:caicfu$af2$1@news-reader1.wanadoo.fr...
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
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
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
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" <v.f.giraud@wanadoo.fr> a écrit dans le message de
news:caicfu$af2$1@news-reader1.wanadoo.fr...
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
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
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
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" <chrisve@wanadoo.fr> a écrit dans le message de
news:OKOjWrZUEHA.4064@TK2MSFTNGP11.phx.gbl...
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" <v.f.giraud@wanadoo.fr> a écrit dans le message de
news:caicfu$af2$1@news-reader1.wanadoo.fr...
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
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