Discussion :

[manu789]

Bonjour,
Une application extérieur me fourni des fichiers TXT dont le séparateur est le #
Et c'est le # mon problème.

J’ais une colonne avec dans chaque cellule une série de # date; # date.
Voici un exemple : #17/02/08#18/02/08

Je cherche à extraire 2 données pour chaque cellule :
1-La semaine au format YYYY/SS de la première date après le #
2-Le nombre de # ( ou de date ) contenu dans chaque cellule.

Je n’y arrive pas car mon séparateur le # est considéré comme un NOMBRE en VB.

Pex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Formula Like ("*" & Chr(35) & "*")

Restitue les cellules contenant un nombre.
C’est à dire toutes puisqu’ il s’agit de dates.

Note : j'ais également fait l'essai avec "*#*"

Merci pour votre aide.
Manu

[Abed_H]

Bonjour
si tu veux remplacé le dièze (#) par rien ("") voici le code à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell = Application.Substitute(ActiveCell, "#", "")

Abed_H

[ucfoutu]

Bonsoir,

je traite ici (en exemple), une valeur (toto) de cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
 Dim ladate As Date, titi
 toto = "#17/02/08#18/02/08"
 If Left(toto, 1) = "#" Then toto = Mid(toto, 2)
 titi = Split(toto, "#")
 MsgBox "cette chaine contient " & UBound(titi) + 1 & " #"
 MsgBox "la semaine de la 1ère date a le numéro " & DatePart("WW", titi(0)) & " de l'année " & Year(titi(0))
End Sub

A toi de jouer...

[manu789]

Bonsoir,

Merci UcFoutu,

L'utilisation du Left pour retirer le premier # combiné au tableau SPLIT répond tout à fait à ce que je souhaitait faire.

Ca marche

Merci