Sélection de cellules

Bonjour

Aujourd'hui mon problème est le suivant. Dans une feuille j'ai plein de cellules avec des horaires, style 11h40. Je voudrais transformer tous ces horaires en :11:40:00. Malheureusement, ma macro se plante sur "incompatibilité de type" sur la 1ère ligne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For Each cell In Worksheet Selection.NumberFormat = "hh "" h "" mm" Top = ActiveCell.Value If Mid(Top, 2, 1) = "h" Then Top = "0" & Top End If h = Left(Top, 2) m = Mid(Top, 4, 2) s = "00" new_top = h & ":" & m & ":" & s ActiveCell.Value = new_top Next

---

Quelqu'un pourrait-il me venir en aide ?

Merci

Pourquoi utiliser le formatage vba ?

C 'est plus utiliser les formats en selectionnant les cellules et appliquez le format personnalise "hh:mm:ss" cela fonctionne tres bien

Sinon le code est plein d'erreur.

Si besoin aide quels sont les colonnes impactées par le format heure je pourrai donner un petit coup de pouce.....:ccool:

Merci de ta réponse, mais j'ai trouvé dans l'aide VBA

Code:

---

1 2 3

Selection.NumberFormat = "hh "" h "" mm" Worksheets("MAI 2009").Range("C5:W50").Replace What:="h", Replacement:=":", SearchOrder:=xlByColumns, MatchCase:=True Worksheets("MAI 2009").Range("C5:W50").Replace What:="H", Replacement:=":", SearchOrder:=xlByColumns, MatchCase:=True

---

le simple format personnalisé ne suffisait pas, car les entrées étaient faites n'importe comment.
bonne journée

Bonjour,

Je n'ai pas regardé si ton bug vient de là mais, sauf erreur de ma part (je ne suis pas un expert du VBA Excel ;)), ta boucle For Each n'est pas correctement utilisée.

1. Le For Each Cell in Worksheets te fait parcourir une par une toutes les cellules de la feuille en cours!
2. A chaque boucle cela définit l'objet cell mais cela ne déplace pas la sélection en cours. Le contenu de ta boucle n'utilise pas l'objet Cell. Donc, tu boucles autant de fois qu'il y a de cellules dans ta feuille mais tu manipules uniquement la cellule active avant le lancement de ce code :aie:

Veux tu cibler des cellules mal formatées ???

Sinon envoi un extrait de ton fichiere xcel avec les heures mal formatées

Je pourrai t'aider et apporter une solution car je le répete ton code est erroné


:ccool:

Comme je te l'ai dit, j'ai réussi à faire ce que je voulais avec Replace.Mais demain, je mettrais un bout du fichier pour que tu le vois. Ma solution est bien, mais trop simpliste.

Bonne soirée

Bonjour

Voici comme tu me l'as demandé un extrait du fichier.

Merci encore de ton aide