Modifier caractère automatiquement

Bonjour et bonne année à tous,

Je créé un énième sujet car mes connaissances en VBA ne s'améliorent pas aussi rapidement que je le souhaite...

Je suis donc confronté de nouveau à un problème et quelques petits autres, mais dans un soucis de lisibilité et pour que les futurs lecteurs se retrouvent plus rapidement avec la fonction "recherche", j'ai mis en titre seulement mon principal soucis.

En effet, je souhaite que lorsqu'une cellule de la plage (A10:C29) soit complétée, tous les "h","H" soient remplacés par ":" (Exemple: 12h34 --> 12:34).
Ayant déjà fait des recherches avant de poster, CTRL+H ne me convient pas car je veut que cela se fait directement après avoir écrit. De plus, j'ai essayé ce code:

Code:

---

1 2 3 4 5 6 7

'Remplace les "h","H" par des ":" dans la plage Texte1 (A10:C29) Private Sub Remplacer_Caractere(ByVal Target As Range) With worsheet("saisie-pilote") Dim Texte1 As String Texte1 = Replace(Texte1, "h", ":") End With End Sub

---

Mais rien ne se passe... Comment faire ? La fonction Replace me semblait pas mal pourtant..!


Mille merci d'avance!

Blend

Bonjour:

Premier point : "worksheets" en lieu et place de "worsheet" fait des merveilles.
Il te faudra tout de même régler le problème "h" ou "H" pour être sûr de prendre les deux cas.

deuxième point : Ecriture de la formule dans le code

Code:

---

1 2	[c10] = [IF(AND(a10>0,b10>0),(b10*24)-(a10*24)," ")]

---

Ceci correspond à la fonction evaluate (écriture simplifiée)

Pour le reste, je regarde.

Cordialement,

Bonjour,
Ce n'est pas plus simple d'encoder les deux points directement ?
Le code à placer dans l'objet feuille

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False ' Remplace les "h","H" par des ":" dans la plage Texte1 (A10:C29) If Target.Column = 1 Then Target = Replace(ucase(Target), "H", ":"): Target = Target * 1: Target.NumberFormat = "h:mm;@" Application.EnableEvents = True End Sub

---

Attention le code est fait pour toute la colonne A (A adapter)

Philippe tu as appuyé sur le buser avant moi :ccool:

Code:

---

1 2	Sheets("saisie-pilote").Range("A10:C29").Replace What:="h", Replacement:=":", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

---

Étant donné que vous m'avez très bien répondu, je clos ce sujet comme résolu.

Vous êtes top :ccool: !!

Blend