date a y rien comprendre

[david]

hugh !


je reviens sur mon bleme de date sur vba

je reste coincer dans la facon de recuperer dans une cellule la date

exemple:
j'ai un cellule ou il y a :'brouillard de saisie en date du jeudi 25 mars 2005'

je voudrais recuperer le mois pour le balancer sur un autre tableau

j'ai bien essayer avec :
pos = InStr(1, chaine, 'en date du', 1)
datebrouillard = Mid(chaine, pos)

mais cette andouille me redonne avec andate du jeudi 25 mars2005

bref je suis coince et je ne vois pas comment faire....
donc j'en appelle au petit genie qui va me debloquer de cette impasse

a plus
















:silly:

 

[loic38]

bonjour

en utilisant la fonciton Remplacer j'ai créé cette macro

sur la colonne B elle remplace le texte en trop par Rien

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 25/04/2005 par 129A
'


Columns('B:B').Select
Selection.Replace What:='brouillard de saisie en date du ', Replacement:='' _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:='lundi ', Replacement:='', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:='mardi ', Replacement:='', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:='mercredi ', Replacement:='', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:='jeudi ', Replacement:='', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:='vendredi ', Replacement:='', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:='samedi ', Replacement:='', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:='jeudi ', Replacement:='', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
End Sub

 

[dg62]

RE


J'ai passé du temps à te faire une procédure qui fonctionne (12h09)

tu me réponds que tu as trouvé et tu crées un nouveau fil pour la même question.
as-tu testé mon code ?
Sub Exdate()
Dim cell As Range
Tmois = Array('janvier', 'février', 'mars', 'avril', 'mai', 'juin', 'juillet', 'aout', 'septembre', 'octobre', 'novembre', 'decembre')

For Each cell In Selection

For i = 0 To 11
pos = InStr(1, cell, Tmois(i), 1)
If pos > 0 Then
cell.Offset(0, 1).Value = Tmois(i)
End If
pos = 0
Next i
Next

End Sub

version pour copier sur feuille 2

Sub ExDatefeuil2()
Dim cell As Range
Dim pos As Integer
Tmois = Array(' ', 'janvier', 'février', 'mars', 'avril', 'mai', 'juin', 'juillet', 'aout', 'septembre', 'octobre', 'novembre', 'decembre')
pos = 0
j = 1
For Each cell In Selection

For i = 1 To 12
pos = InStr(1, cell, Tmois(i), 1)
If pos > 0 Then
Sheets('feuil2').Activate
Range('A' & j).Value = Tmois(i)
j = j + 1
End If
pos = 0
Next i

Message édité par: DG62, à: 25/04/2005 14:10

 

[david]

oui tout a fait

tout marche

j'ai reposé la question 2 x (une de trop)

mais la tout marche donc plus de probleme

merci encore

david 🙂