Comptabiliser les heures passées par projet, chaque semaine

Mais je n'ai pas l'appel à la macro Call ........

je pensais, peut être à tort, que comme l'importation des "Données brutes" via cette macro se déroulait correctement, elle était hors de cause...

Je vais vérifier !

Bonjour à tous,

Je pense que mon problème vient de la listbox, même si j'ai du mal à comprendre pourquoi... Voici en pj ce que j'obtiens en mode "Pas à pas".

EDIT : j'ai (enfin...) trouver le problème : il provient des autres macros de mon classeur...

Tant pis, je voulais tout regrouper dans un seul fichier, ce sera dans 2 différents !

Merci encore à Banzai64 pour sa patience !

EDIT 2 : c'est même plus grave que ça... en séparant cette macro des autres dans 2 classeurs différents, si les 2 fichiers sont ouverts :

* la macro "Comptabilise" tourne correctement MAIS elle plante si je lance une des macros de l'autre fichier ! Je dois fermer excel et réouvrir le fichier pour qu'elle refonctionne !

* les autres macros ne sont pas impactées.

J'ai donc un conflit entre "Comptabilise" et mes autres macros !

J'essaie de trouver une solution et je vous tiens au courant !

A plus tard !

Ça y est !!! Ça marche !!!

Le problème était bien liée à mes autres macros. Par contre, je n'aurais jamais trouver juste en lisant le code ! J'ai tout repris en ajoutant peu à peu les lignes de mon code original et le problème vient des lignes :

With Range("G:G")
.Replace What:=Chr(127), Replacement:=Chr(13), LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False 'on remplace la caractere
.WrapText = True
End With

et

With Range("F:F")
.Replace what:=Chr(13), Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace what:=Chr(9), Replacement:=Space(5), lookat:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.WrapText = True
.HorizontalAlignment = xlJustify
End With

Étonnant, non ??

Bonjour

Walden a écrit :

Étonnant, non ??

Si tu le dis

D'autant plus que du code comme cela est utilisé ailleurs et à ma connaissance ne provoque pas d'erreur

Et que vas tu faire, car ce code était "utile" ?

Bonjour Banzai64,

Tout fonctionne parfaitement !

J'ai modifié le code comme suit :

With Range("G:G")
.Replace What:=Chr(127), Replacement:=Chr(13), LookAt:=xlPart
.WrapText = True
End With

et

    With Range("F:F")
    .Replace what:=Chr(13), Replacement:="", lookat:=xlPart
    .Replace what:=Chr(9), Replacement:=Space(5), lookat:=xlPart
    .WrapText = True
    .HorizontalAlignment = xlJustify
    End With

Merci une nouvelle pour ta patience et ton aide !!!

Bonne journée,

A plus tard !