date a y rien comprendre

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

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

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 🙂