Discussion :

[babybell]

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 :

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

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

[Lynx92260]

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.....

[babybell]

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

Code :

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

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

[mout1234]

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

[Lynx92260]

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é

[babybell]

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

[babybell]

Bonjour

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

Merci encore de ton aide