Discussion :

[Gonteur]

Bonjour

J'aimerais via une macro modifier une chaine de caractère, j'ai essayé via l'enregistreuse mais ça ne donne pas le résultat recherché.

Bref j'ai a copié régulièrement une chaine (date & heure) dans une cellule et à chaque fois je dois manuellement modifié le contenu pour me permettre de faire un calcul de date.

Exemple
2019-06-26 à 11 h 51 que je modifie à 2019-06-26 11:51

Ce serait beaucoup plus pratique pour moi de pouvoir modifier le texte via une macro ou d'associer le code à l'ensemble de la colonne.

Merci de l'intérêt que vous y porterez

[BENNASR]

bonjour
et si tu sélectionne la colonne et cliquer sur Ctrl / H
tu cherche H et tu remplace par :
ça résout pas ton problème??

[BENNASR]

idem pour (à)
Ctrl / H
chercher : à
remplacer par (ne rien écrire c'est à dire vide)
puis remplacer tout

[Gonteur]

Merci BENNASR

Non ce n'est pas la solution recherchée et ce serait pas plus compliqué à ce moment de modifier la chaine directement dans la cellule.

Je n'ai pas besoin de modifier un ensemble de cellule mais de modifier chaque cellule à chaque fois que je copie la chaîne.

Au plaisir!

[Invité]

Bonjour,

A voir si c'est utilisable car on ne prend que la date et l'heure en cours :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function GroupeDateHeure() As String
 
Dim MaDate As Variant
Dim HeureEnCours As Variant
 
    MaDate = Split(CStr(Date), "/")
    HeureEnCours = Split(Time, ":")
    GroupeDateHeure = MaDate(2) & "-" & MaDate(1) & "-" & MaDate(0) & " " & HeureEnCours(0) & ":" & HeureEnCours(1)
 
End Function

[Menhir]

En supposant que ta valeur est en A1 :

Code :

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

Range("A1").Value = Replace(Replace(Range("A1"), " à ", " "), " h ", ":")

Vérifie que ta cellule n'est pas forcée au format Texte, sinon il faudra ajouter une ligne pour la repasser en format Date.

[Gonteur]

Merci Menhir

On s'approche vraiment de ce que j'ai besoin

Comment l'appliquer à l'ensemble des cellules de la colonne A plutôt qu'à une seule cellule?

Merci

[Menhir]

En faisant une boucle For To sur l'ensemble des lignes de la colonne.

[Gonteur]

Menhir

Je veux plutôt que l'action se passe sur la cellule active

De là le code suivant qui fonctionne très bien

Code :

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

1
2
3
4
5
Sub Format_Date()
 
    ActiveCell.Value = Replace(Replace(ActiveCell(), " à ", " "), " h ", ":")
 
End Sub]

Merci beaucoup de ton aide, ça m'a permis d'en apprendre encore

Au plaisir!

[BENNASR]

bonsoir
ton code s'applique à la cellule active
si tu veux appliquer à un champs défini

Code :

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

Range("A1:A10").Value = Replace(Replace(Range("A1"), " à ", " "), " h ", ":")

[Pierre Fauconnier]

Salut.

bonsoir
ton code s'applique à la cellule active
si tu veux appliquer à un champs défini

Code :

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

Range("A1:A10").Value = Replace(Replace(Range("A1"), " à ", " "), " h ", ":")

A1:A10 vont toutes avoir la même valeur, celle de A1...


Si on voulait l'appliquer à une plage (ce qui n'est pas demandé), on pourrait utiliser ceci, pour éviter la boucle sur les cellules:

Code :

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

1
2
3
4
5
Sub Replacement()
  Range("a1:a20").Replace what:=" à ", Replacement:=" ", lookat:=xlPart
  Range("a1:a20").Replace what:=" h ", Replacement:=":", lookat:=xlPart
  Range("a1:a20").NumberFormat = "dd/mm/yy hh:mm"
End Sub

On peut aussi utiliser l'événement Change de la feuille pour l'appliquer lors de la modification d'une cellule faisant partie d'une plage définie

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("a1:a20")) Is Nothing Then
    Target.Value = Replace(Replace(Target.Value, " à ", " "), " h ", ":")
  End If
End Sub