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
Daniel.C
Bonjour. En A2, tes mots en vrac ils ont un séparateur, sinon, on est mal ? Et si il y trop de mots, par rapport au nombre de séparateurs ? Essaie (j'ai supposé que les séparateurs de A2 étaient des espaces) :
Sub test() Dim Tablo, Chaine As String, i As Integer [A1] = "*" & [A1] Tablo = Split([A2]) For i = 0 To UBound(Tablo) Chaine = Chaine & Mid([A1], i + 1, 1) & Tablo(i) Next i [A2] = Right(Chaine, Len(Chaine) - 1) [A1] = Right([A1], Len([A1]) - 1) End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour (ou bonne nuit ?) en A1 j'ai une série de caratéres ",; <>"
en A2 j'ai une série de mots en vracs.
j'aimerai écrire la chose suivante :
pour chacun des caractéres de A1
faire le split de A2 (copier dans un tableau split( a2 ; caractère-de- A1)
puis reconstituer (par concaténation je supose) une zone en A2 (c'est bien A2)
et repartir à la ligne "pour"
voila je ne c pas si je suis bien clair a cette heure ci ...
Merci José
Bonjour.
En A2, tes mots en vrac ils ont un séparateur, sinon, on est mal ? Et si il
y trop de mots, par rapport au nombre de séparateurs ?
Essaie (j'ai supposé que les séparateurs de A2 étaient des espaces) :
Sub test()
Dim Tablo, Chaine As String, i As Integer
[A1] = "*" & [A1]
Tablo = Split([A2])
For i = 0 To UBound(Tablo)
Chaine = Chaine & Mid([A1], i + 1, 1) & Tablo(i)
Next i
[A2] = Right(Chaine, Len(Chaine) - 1)
[A1] = Right([A1], Len([A1]) - 1)
End Sub
Cordialement.
Daniel
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
0fc47904-61ed-4185-990b-bd5c0b750c60@r9g2000prd.googlegroups.com...
Bonjour (ou bonne nuit ?)
en A1 j'ai une série de caratéres ",; <>"
en A2 j'ai une série de mots en vracs.
j'aimerai écrire la chose suivante :
pour chacun des caractéres de A1
faire le split de A2 (copier dans un tableau split( a2 ; caractère-de-
A1)
puis reconstituer (par concaténation je supose) une zone en A2 (c'est
bien A2)
et repartir à la ligne "pour"
voila je ne c pas si je suis bien clair a cette heure ci ...
Bonjour. En A2, tes mots en vrac ils ont un séparateur, sinon, on est mal ? Et si il y trop de mots, par rapport au nombre de séparateurs ? Essaie (j'ai supposé que les séparateurs de A2 étaient des espaces) :
Sub test() Dim Tablo, Chaine As String, i As Integer [A1] = "*" & [A1] Tablo = Split([A2]) For i = 0 To UBound(Tablo) Chaine = Chaine & Mid([A1], i + 1, 1) & Tablo(i) Next i [A2] = Right(Chaine, Len(Chaine) - 1) [A1] = Right([A1], Len([A1]) - 1) End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour (ou bonne nuit ?) en A1 j'ai une série de caratéres ",; <>"
en A2 j'ai une série de mots en vracs.
j'aimerai écrire la chose suivante :
pour chacun des caractéres de A1
faire le split de A2 (copier dans un tableau split( a2 ; caractère-de- A1)
puis reconstituer (par concaténation je supose) une zone en A2 (c'est bien A2)
et repartir à la ligne "pour"
voila je ne c pas si je suis bien clair a cette heure ci ...
Merci José
Alfred WALLACE
Bonjour Daniel, merci de ton aide et désolé de ma réponse tardive.
je vais voir comment exploiter ton exemple
cordialement José
On 4 avr, 16:52, "Daniel.C" wrote:
Bonjour. En A2, tes mots en vrac ils ont un séparateur, sinon, on est mal ? Et si il y trop de mots, par rapport au nombre de séparateurs ? Essaie (j'ai supposé que les séparateurs de A2 étaient des espaces) :
Sub test() Dim Tablo, Chaine As String, i As Integer [A1] = "*" & [A1] Tablo = Split([A2]) For i = 0 To UBound(Tablo) Chaine = Chaine & Mid([A1], i + 1, 1) & Tablo(i) Next i [A2] = Right(Chaine, Len(Chaine) - 1) [A1] = Right([A1], Len([A1]) - 1) End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour (ou bonne nuit ?) en A1 j'ai une série de caratéres ",; <>"
en A2 j'ai une série de mots en vracs.
j'aimerai écrire la chose suivante :
pour chacun des caractéres de A1
faire le split de A2 (copier dans un tableau split( a2 ; caractère-de- A1)
puis reconstituer (par concaténation je supose) une zone en A2 (c'est bien A2)
et repartir à la ligne "pour"
voila je ne c pas si je suis bien clair a cette heure ci ...
Merci José
Bonjour Daniel,
merci de ton aide et désolé de ma réponse tardive.
je vais voir comment exploiter ton exemple
cordialement
José
On 4 avr, 16:52, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Bonjour.
En A2, tes mots en vrac ils ont un séparateur, sinon, on est mal ? Et si il
y trop de mots, par rapport au nombre de séparateurs ?
Essaie (j'ai supposé que les séparateurs de A2 étaient des espaces) :
Sub test()
Dim Tablo, Chaine As String, i As Integer
[A1] = "*" & [A1]
Tablo = Split([A2])
For i = 0 To UBound(Tablo)
Chaine = Chaine & Mid([A1], i + 1, 1) & Tablo(i)
Next i
[A2] = Right(Chaine, Len(Chaine) - 1)
[A1] = Right([A1], Len([A1]) - 1)
End Sub
Cordialement.
Daniel
"Alfred WALLACE" <jos...@gmail.com> a écrit dans le message de news:
0fc47904-61ed-4185-990b-bd5c0b750...@r9g2000prd.googlegroups.com...
Bonjour (ou bonne nuit ?)
en A1 j'ai une série de caratéres ",; <>"
en A2 j'ai une série de mots en vracs.
j'aimerai écrire la chose suivante :
pour chacun des caractéres de A1
faire le split de A2 (copier dans un tableau split( a2 ; caractère-de-
A1)
puis reconstituer (par concaténation je supose) une zone en A2 (c'est
bien A2)
et repartir à la ligne "pour"
voila je ne c pas si je suis bien clair a cette heure ci ...
Bonjour Daniel, merci de ton aide et désolé de ma réponse tardive.
je vais voir comment exploiter ton exemple
cordialement José
On 4 avr, 16:52, "Daniel.C" wrote:
Bonjour. En A2, tes mots en vrac ils ont un séparateur, sinon, on est mal ? Et si il y trop de mots, par rapport au nombre de séparateurs ? Essaie (j'ai supposé que les séparateurs de A2 étaient des espaces) :
Sub test() Dim Tablo, Chaine As String, i As Integer [A1] = "*" & [A1] Tablo = Split([A2]) For i = 0 To UBound(Tablo) Chaine = Chaine & Mid([A1], i + 1, 1) & Tablo(i) Next i [A2] = Right(Chaine, Len(Chaine) - 1) [A1] = Right([A1], Len([A1]) - 1) End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour (ou bonne nuit ?) en A1 j'ai une série de caratéres ",; <>"
en A2 j'ai une série de mots en vracs.
j'aimerai écrire la chose suivante :
pour chacun des caractéres de A1
faire le split de A2 (copier dans un tableau split( a2 ; caractère-de- A1)
puis reconstituer (par concaténation je supose) une zone en A2 (c'est bien A2)
et repartir à la ligne "pour"
voila je ne c pas si je suis bien clair a cette heure ci ...