Bonjour,
j'ouvre ce sujet faute d'avoir trouvé une solution par moi-même.
Je débute en macro excel et je souhaitais automatiser une action manuelle.
En pratique :
- dans un classeur excel 2010, j'ai deux colonnes J et K avec des dates de la façon suivante
colonne J colonne K
08/août./2017 10:25 10/août./2017 15:13
Mon objectif est d'extraire le numéro du mois dans une autre colonne.
Pour cela, je remplace par l'outil recherche/remplace (ctrl+f) "./" en "/".
Cette action marche très bien, car le "août./" devient "août/" et est converti automatiquement en 08. (j’extrais par la suite ce mois par une autre fonction)
J'ai enregistré cette action manuelle dans une macro...et là c'est le drame.
Via la macro l'action de remplacement marche bien, mais la valeur dans le cellule reste à "août" et non "08".
Aprés chercher sur internet, je pensais que la solution était de faire un convertir en format JMA des cellules.
Manuellement c'est Ok, mais toujours KO via une macro.
Voici la macro.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33 Sub MAJ_MOIS() ' ' MAJ_MOIS Macro ' ' Columns("J:K").Select Range("J4").Activate Selection.Replace What:="./", Replacement:="/", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Columns("K:K").Select Range("K4").Activate 'converstion JMA ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 Range("J6").Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Range("J6"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 4), TrailingMinusNumbers:=True Range("K6").Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Range("K6"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 4), TrailingMinusNumbers:=True End Sub
Merci d'avance pour votre aide.
Sylvain
Partager