Mettre un espace entre les mots

Avec une macro :

Sub test()
  Dim C As Range, L As Long
  Range("S5", Cells(Rows.Count, "S").End(xlUp)) = ""
  L = 4
  For Each C In Range("T5", Cells(Rows.Count, "T").End(xlUp))
    If Left(C, 5) <> "Marée" Then
      L = L + 1
      Cells(L, "S") = C
    Else
      tabl = Split(C, " ")
      L = L + 1
      Cells(L, "S") = Application.Proper(tabl(1))
      L = L + 1
      Cells(L, "S") = Left(tabl(2), 5)
      L = L + 1
      Cells(L, "S") = Mid(C, 18, 99)
    End If
  Next C
End Sub

Daniel

Bonjour,

Je ne pratique pas les macros, mais avec une formule de base on ferait ="Marée "&S6&" "&S7&" "&S8

Bonjour

Pas très clair !

Peux tu envoyer un bout de fichier avec les différents cas rencontrés

Pour envoyer ton fichier, tu peux utiliser https://cijoint.org/

Cdlmt

Bonjour

une piste 

=STXT(S2;1;TROUVE("h";S2)-3)&" "&STXT(S2;TROUVE("h";S2)-3;6)&" "&DROITE(S2;6)

Bonjour Guy,

Il me semble que tu as Excel 365. Essaie :

=LET(tbl;REDUCE("";T5:T208;LAMBDA(x;y;SI(GAUCHE(y;5)="marée";ASSEMB.V(x;FRACTIONNER.TEXTE(y;;" "));ASSEMB.V(x;y))));FILTRE(tbl;tbl<>"marée"))

https://www.swisstransfer.com/dl/01a085a8-8653-724a-840d-70268184f303

Daniel

Je regarde ça en fin d'après-midi

Bonjour à tous

Perso je ne comprends pas il y a déjà des espaces dans la colonne T !?

Dans le cas où ce serait tout attaché (Maréebasse01h521.11m)

une simple formule style 

=GAUCHE(T6;5)&" "& STXT( T6;6;5)& " " &STXT(T6;11;5)& " "&DROITE(T6;5)

doit permettre d'insérer des blancs

Cdlmnt

Via

Bonjour,

Pour avoir déjà travaillé sur la question, il me semble qu'il faut partir de la colonne T pour obtenir exactement le résultat de la colonne S. Suppression du mot "Marée", et découpe par mot pour le reste et oui, il y des espaces.

cf. : https://forums.commentcamarche.net/forum/affich-38292397-separer-les-mots-des-cellules#p38293440

Daniel

Sinon, avec une macro :

Sub test()
  Dim C As Range, L As Long
  Range("S5", Cells(Rows.Count, "S").End(xlUp)) = ""
  L = 4
  For Each C In Range("T5", Cells(Rows.Count, "T").End(xlUp))
    If Left(C, 5) <> "Marée" Then
      L = L + 1
      Cells(L, "S") = C
    Else
      tabl = Split(C, " ")
      For i = 1 To UBound(tabl)
        L = L + 1
        Cells(L, "S") = tabl(i)
        If i = 1 Then Cells(L, "S") = Application.Proper(Cells(L, "S"))
      Next i
    End If
  Next C
End Sub

Daniel

Q?. As tu des dates (au sens d'excel)  dans le vrai fichier à la place de "mardi 1" du texte pur?

Cdlmt

*

Bonjour Guy. 

Est-ce que ces formules te conviennent ?

Cordialement.

Voilà la procédure que je fais :
1) Je vais sur le site : Heures des marées
2) Je rétréci le site le plus possible à droite de l'écran, et je sélectionne à partir du premier jour jusqu'à la fin.

3) Je colle tout sur Excel 365 dans la cellule "Y5".
4) Pour que je puisse obtenir ce que je veux, je suis obligé de séparer par un espace entre les heures et la hauteur d'eau.
5) Puis je copie (à la main) morceau par morceau à partir de la cellule "S5".
6) Ce qui me donne ce résultat dans les cellules d'une autre feuille :
 

Pas sûr d'avoir compris SANS espace, utilise la formule :

=LET(prv;GAUCHE(T5:T208;17)&" "&STXT(T5:T208;18;99);tbl;REDUCE("";prv;LAMBDA(x;y;SI(GAUCHE(y;5)="marée";ASSEMB.V(x;FRACTIONNER.TEXTE(y;;" "));ASSEMB.V(x;y))));res;FILTRE(tbl;tbl<>"marée");res)

Daniel 

Bonjour à tous,

Guy, si ça te mets "#NOM" c'est que ta version n'est pas Excel 365. Ca montre que tu n'as pas essayé la formule du message #5.

Essaie la macro :

Sub test()
  Dim C As Range, L As Long
  Range("S5", Cells(Rows.Count, "S").End(xlUp)) = ""
  L = 4
  For Each C In Range("T5", Cells(Rows.Count, "T").End(xlUp))
    If Left(C, 5) <> "Marée" Then
      L = L + 1
      Cells(L, "S") = C
    Else
      tabl = Split(C, " ")
      L = L + 1
      Cells(L, "S") = Application.Proper(tabl(1))
      L = L + 1
      Cells(L, "S") = Left(tabl(2), 5)
      L = L + 1
      Cells(L, "S") = Mid(C, 18, 99)
    End If
  Next C
End Sub

oups, avec le fichier :

https://www.swisstransfer.com/dl/01a08a22-1e9f-737a-aaef-8284145c5fa6

Daniel

Voilà ce que j'obtiens en exécutant la macro :

Partage le classeur avec lequel tu fais le test. On n'en sortira pas autrement.

Daniel

Bonjour

Voici ce qu'on peut faire par formules simplement sur un excel d'avant 365

https://we.tl/t-7pwaLhTgHg9FCdVZ

A partir de l'extraction du site sur une feuille on transpose les données utiles dans l'autre feuille en fonction des jours (formule pour avoir la liste des jours idem au site en colonne B, pour octobre il suffira de changer le 9 en 10 dans la formule etc)

Cdlmnt

Via

Voici :

https://www.swisstransfer.com/dl/01a08bcb-afc2-719e-a402-24f0bac1e443

Sub test()
  Dim C As Range, L As Long
  Range("S5", Cells(Rows.Count, "S").End(xlUp)) = ""
  L = 4
  For Each C In Range("T5", Cells(Rows.Count, "T").End(xlUp))
    If Left(C, 5) <> "Marée" Then
      L = L + 1
      Cells(L, "S") = C
    Else
      L = L + 1
      Cells(L, "S") = Application.Proper(Mid(C, 7, 5))
      L = L + 1
      Cells(L, "S") = Mid(C, 12, 5)
      L = L + 1
      Cells(L, "S") = Mid(C, 17, 99)
    End If
  Next C
End Sub

Daniel 

Parfait !!!
Merci pour tout