VBA Utilisation du Diese ( Chr(35) ; # )

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:

---

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

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

Code:

---

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

---

Abed_H

Bonsoir,

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

Code:

---

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...;)

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