Quel est le critère de séparation des lignes ? La ligne suivante ? les ";" ? Daniel
ci après le dossier (1 des paragraphe à traiter http://www.cijoint.fr/cjlink.php?file=cj200905/cijIpTJnlH.xls merci fréro
"Daniel.C" a écrit dans le message de news:
Bonjour. Peux-tu donner un exemple de ce que tu veux ? Cordialement. Daniel
bonjour je cherche à extraire les différents titres qui sont groupés dans une seule cellule . merci de votre aide et bonne journée fréro
Daniel.C
Sub test() For Each c In Range([A1], [A65000].End(xlUp)) txt = Split(Selection(1, 1).Value, Chr(10)) For i = 0 To UBound(txt) [C65000].End(xlUp).Offset(1) = txt(i) Next i Next c End Sub Daniel
la ligne suivante
"Daniel.C" a écrit dans le message de news:eD21%
Quel est le critère de séparation des lignes ? La ligne suivante ? les ";" ? Daniel
ci après le dossier (1 des paragraphe à traiter http://www.cijoint.fr/cjlink.php?file=cj200905/cijIpTJnlH.xls merci fréro
"Daniel.C" a écrit dans le message de news:
Bonjour. Peux-tu donner un exemple de ce que tu veux ? Cordialement. Daniel
bonjour je cherche à extraire les différents titres qui sont groupés dans une seule cellule . merci de votre aide et bonne journée fréro
Sub test()
For Each c In Range([A1], [A65000].End(xlUp))
txt = Split(Selection(1, 1).Value, Chr(10))
For i = 0 To UBound(txt)
[C65000].End(xlUp).Offset(1) = txt(i)
Next i
Next c
End Sub
Daniel
la ligne suivante
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:eD21%23ILzJHA.1432@TK2MSFTNGP02.phx.gbl...
Quel est le critère de séparation des lignes ? La ligne suivante ? les ";"
?
Daniel
ci après le dossier (1 des paragraphe à traiter
http://www.cijoint.fr/cjlink.php?file=cj200905/cijIpTJnlH.xls
merci fréro
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:uXNTslJzJHA.140@TK2MSFTNGP03.phx.gbl...
Bonjour.
Peux-tu donner un exemple de ce que tu veux ?
Cordialement.
Daniel
bonjour
je cherche à extraire les différents titres qui sont groupés dans une
seule cellule .
merci de votre aide et bonne journée
fréro
Sub test() For Each c In Range([A1], [A65000].End(xlUp)) txt = Split(Selection(1, 1).Value, Chr(10)) For i = 0 To UBound(txt) [C65000].End(xlUp).Offset(1) = txt(i) Next i Next c End Sub Daniel
la ligne suivante
"Daniel.C" a écrit dans le message de news:eD21%
Quel est le critère de séparation des lignes ? La ligne suivante ? les ";" ? Daniel
ci après le dossier (1 des paragraphe à traiter http://www.cijoint.fr/cjlink.php?file=cj200905/cijIpTJnlH.xls merci fréro
"Daniel.C" a écrit dans le message de news:
Bonjour. Peux-tu donner un exemple de ce que tu veux ? Cordialement. Daniel
bonjour je cherche à extraire les différents titres qui sont groupés dans une seule cellule . merci de votre aide et bonne journée fréro
fréro
bonjour j'ai voulu tester mais il s'affiche une erreur fréro "Daniel.C" a écrit dans le message de news:
Sub test() For Each c In Range([A1], [A65000].End(xlUp)) txt = Split(Selection(1, 1).Value, Chr(10)) For i = 0 To UBound(txt) [C65000].End(xlUp).Offset(1) = txt(i) Next i Next c End Sub Daniel
la ligne suivante
"Daniel.C" a écrit dans le message de news:eD21%
Quel est le critère de séparation des lignes ? La ligne suivante ? les ";" ? Daniel
ci après le dossier (1 des paragraphe à traiter http://www.cijoint.fr/cjlink.php?file=cj200905/cijIpTJnlH.xls merci fréro
"Daniel.C" a écrit dans le message de news:
Bonjour. Peux-tu donner un exemple de ce que tu veux ? Cordialement. Daniel
bonjour je cherche à extraire les différents titres qui sont groupés dans une seule cellule . merci de votre aide et bonne journée fréro
bonjour
j'ai voulu tester mais il s'affiche une erreur
fréro
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:efKhWcNzJHA.4800@TK2MSFTNGP06.phx.gbl...
Sub test()
For Each c In Range([A1], [A65000].End(xlUp))
txt = Split(Selection(1, 1).Value, Chr(10))
For i = 0 To UBound(txt)
[C65000].End(xlUp).Offset(1) = txt(i)
Next i
Next c
End Sub
Daniel
la ligne suivante
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:eD21%23ILzJHA.1432@TK2MSFTNGP02.phx.gbl...
Quel est le critère de séparation des lignes ? La ligne suivante ? les
";" ?
Daniel
ci après le dossier (1 des paragraphe à traiter
http://www.cijoint.fr/cjlink.php?file=cj200905/cijIpTJnlH.xls
merci fréro
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:uXNTslJzJHA.140@TK2MSFTNGP03.phx.gbl...
Bonjour.
Peux-tu donner un exemple de ce que tu veux ?
Cordialement.
Daniel
bonjour
je cherche à extraire les différents titres qui sont groupés dans une
seule cellule .
merci de votre aide et bonne journée
fréro
bonjour j'ai voulu tester mais il s'affiche une erreur fréro "Daniel.C" a écrit dans le message de news:
Sub test() For Each c In Range([A1], [A65000].End(xlUp)) txt = Split(Selection(1, 1).Value, Chr(10)) For i = 0 To UBound(txt) [C65000].End(xlUp).Offset(1) = txt(i) Next i Next c End Sub Daniel
la ligne suivante
"Daniel.C" a écrit dans le message de news:eD21%
Quel est le critère de séparation des lignes ? La ligne suivante ? les ";" ? Daniel
ci après le dossier (1 des paragraphe à traiter http://www.cijoint.fr/cjlink.php?file=cj200905/cijIpTJnlH.xls merci fréro
"Daniel.C" a écrit dans le message de news:
Bonjour. Peux-tu donner un exemple de ce que tu veux ? Cordialement. Daniel
bonjour je cherche à extraire les différents titres qui sont groupés dans une seule cellule . merci de votre aide et bonne journée fréro
Daniel.C
Bonjour. Oui. Laquelle ? Poste un classeur avec la cellule pour laquelle elle se produit. Daniel
bonjour j'ai voulu tester mais il s'affiche une erreur fréro "Daniel.C" a écrit dans le message de news:
Sub test() For Each c In Range([A1], [A65000].End(xlUp)) txt = Split(Selection(1, 1).Value, Chr(10)) For i = 0 To UBound(txt) [C65000].End(xlUp).Offset(1) = txt(i) Next i Next c End Sub Daniel
la ligne suivante
"Daniel.C" a écrit dans le message de news:eD21%
Quel est le critère de séparation des lignes ? La ligne suivante ? les ";" ? Daniel
ci après le dossier (1 des paragraphe à traiter http://www.cijoint.fr/cjlink.php?file=cj200905/cijIpTJnlH.xls merci fréro
"Daniel.C" a écrit dans le message de news:
Bonjour. Peux-tu donner un exemple de ce que tu veux ? Cordialement. Daniel
bonjour je cherche à extraire les différents titres qui sont groupés dans une seule cellule . merci de votre aide et bonne journée fréro
Bonjour.
Oui. Laquelle ?
Poste un classeur avec la cellule pour laquelle elle se produit.
Daniel
bonjour
j'ai voulu tester mais il s'affiche une erreur
fréro
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:efKhWcNzJHA.4800@TK2MSFTNGP06.phx.gbl...
Sub test()
For Each c In Range([A1], [A65000].End(xlUp))
txt = Split(Selection(1, 1).Value, Chr(10))
For i = 0 To UBound(txt)
[C65000].End(xlUp).Offset(1) = txt(i)
Next i
Next c
End Sub
Daniel
la ligne suivante
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:eD21%23ILzJHA.1432@TK2MSFTNGP02.phx.gbl...
Quel est le critère de séparation des lignes ? La ligne suivante ? les
";" ?
Daniel
ci après le dossier (1 des paragraphe à traiter
http://www.cijoint.fr/cjlink.php?file=cj200905/cijIpTJnlH.xls
merci fréro
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:uXNTslJzJHA.140@TK2MSFTNGP03.phx.gbl...
Bonjour.
Peux-tu donner un exemple de ce que tu veux ?
Cordialement.
Daniel
bonjour
je cherche à extraire les différents titres qui sont groupés dans une
seule cellule .
merci de votre aide et bonne journée
fréro
Bonjour. Oui. Laquelle ? Poste un classeur avec la cellule pour laquelle elle se produit. Daniel
bonjour j'ai voulu tester mais il s'affiche une erreur fréro "Daniel.C" a écrit dans le message de news:
Sub test() For Each c In Range([A1], [A65000].End(xlUp)) txt = Split(Selection(1, 1).Value, Chr(10)) For i = 0 To UBound(txt) [C65000].End(xlUp).Offset(1) = txt(i) Next i Next c End Sub Daniel
la ligne suivante
"Daniel.C" a écrit dans le message de news:eD21%
Quel est le critère de séparation des lignes ? La ligne suivante ? les ";" ? Daniel
ci après le dossier (1 des paragraphe à traiter http://www.cijoint.fr/cjlink.php?file=cj200905/cijIpTJnlH.xls merci fréro
"Daniel.C" a écrit dans le message de news:
Bonjour. Peux-tu donner un exemple de ce que tu veux ? Cordialement. Daniel
bonjour je cherche à extraire les différents titres qui sont groupés dans une seule cellule . merci de votre aide et bonne journée fréro