Discussion :

[sdevers]

Bonjour le forum,

Je me permet de venir ici chez les pros pour poser ma question. Je ne suis pas informaticien, en général j'arrive à résoudre mes problèmes en consultant différents forums mais ici le problème semble plus ardu puisqu'on n'arrive pas à m'aider...

J'ai une macro qui est censée passer en revue toutes les cellules de différentes sheets (j'ai choisi For Each ... in ActiveWorkbook.Sheets auquel j'ai soustrait certains sheets avec un If Not). A chaque fois qu'elle trouve une occurence, elle copie une cellule de ma sheet "traduction". Le résultat obtenu est que tous les termes sont traduits automatiquement sur base d'une liste de mots (3 colonnes, une par langue).

Pour cette traduction, on utilise la fonction .Cells.Find().

Mon problème est que, depuis que j'ai recopié mon code dans mon fichier définitif, j'obtiens une erreur "Run-time error '13': Type mismatch".
J'ai effectué de nombreux tests. En fait mon code avait été développé dans un fichier séparé où il ne traduisait que 2-3 pages. Il fonctionnait parfaitement.
Maintenant qu'il doit traduire une quinzaine de pages, ça plante.

J'ai essayé de trouver sur quelles sheets le problème se passait (car avec le Debug, je n'obtiens rien). Il semblerait que les sheets concernées soient celles qui contiennent des messages d'erreurs:
- evolution (si on ne fait pas le lien avec Bob-OLE (macro complémentaire faisant le lien entre mon programme de comptabilité et Excel et grâce à laquelle je peux récupérer automatiquement des données). Si la macro complémentaire n'est pas active, elle renvoie un message #NAME?)
- dividende (idem)
- tax1 (4 formules renvoie actuellement #DIV/0!) car je n'ai encore rien complété comme données. Division par 0 impossible.
- tax4 (dans ma colonne AK, il y a une autre division par 0 car les données ne sont pas complétées).

Lorsque je n'ai pas ces pages contenant des erreurs, la macro fonctionne telle qu'elle est actuellement.

Pour les divisions par 0, je peux créer un If (... = 0; 0; formule) directement dans Excel pour qu'elles n'affichent jamais de message d'erreur. Par contre, pour le lien avec Bob-OLE, la décision appartient à l'utilisateur de lier ou non le fichier Excel.

Un utilisateur d'un autre forum m'avait proposé les solutions suivantes:

• For Each c In Ws.UsedRange _ On Error Resume Next --> ça ne fonctionne pas. Ca me bousille certaines formules en allant y copier du texte. Je ne comprends même pas sur quelle base il copie ou non du texte.
• Set trouve = Sheet02.Cells.SpecialCells(xlCellTypeConstants).Find(c, lookat:=xlWhole) --> le message d'erreur Type mismatch continue

Dites-moi que vous avez une idée lumineuse

Je vous annexe mon fichier de travail. La macro s'appelle traduction() et se trouve dans ThisWorbook.

Merci d'avance,

[Docmarti]

Bonjour

Si tu ne veux pas traduire les formules

Code :

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

1
2
3
 
For Each c In Ws.UsedRange
If  c.HasFormula = True Then GoTo suivant

Si tu préfères vérifier si le résultat dans c est une erreur

Code :

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

1
2
3
 
For Each c In Ws.UsedRange
If IsError(c) Then GoTo suivant

[sdevers]

Code :

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

1
2
3
 
For Each c In Ws.UsedRange
If  c.HasFormula = True Then GoTo suivant

Merci Docmarti. En adaptant ton idée de c.HasFormula, j'y suis arrivé. Afin de ne pas trop me compliquer la tâche, j'ai juste inversé la condition:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
    For Each c In Ws.UsedRange
        If c.HasFormula = False Then
                If c <> "" Then
                'méthode find, ici on cherche la valeur exacte (LookAt:xlWhole)
                Set trouve = Sheet02.Cells.Find(c, lookat:=xlWhole)
 
                'traitement de l'erreur possible: si on ne trouve pas rien (--> double négative --> revient à dire si on trouve)
                If Not trouve Is Nothing Then
 
                'traitement pour le cas pour où la valeur est trouvée
                'il prend comme valeur la "colf" +1 car il y a un décalage entre le nombre de colonne de ma sheet traductions et le numéro renvoyé dans mon CboLanguage
                c = Sheet02.Cells(trouve.Row, colf + 1)
                End If
 
                'on s'en fout de mettre un message s'il n'a effectivement rien trouvé
            End If
        End If

Et visiblement ça fonctionne... reste à appeler cette procédure au bon endroit maintenant
Je vais finir par l'avoir...

Encore merci pour vos contributions !

[sogedic]

Bonjour
Est-ce que une solution simple comme
remplacer ='C:\Users\s.devers\AppData\Roaming\Microsoft\AddIns\BOBExcel.xla'!AccountBalance($A9;D$1;$A$2;1);"")
par :=SIERREUR('C:\Users\s.devers\AppData\Roaming\Microsoft\AddIns\BOBExcel.xla'!AccountBalance($A9;D$1;$A$2;1);"")

Peut être envisagé ?

[sdevers]

Bonjour
Est-ce que une solution simple comme
remplacer ='C:\Users\s.devers\AppData\Roaming\Microsoft\AddIns\BOBExcel.xla'!AccountBalance($A9;D$1;$A$2;1);"")
par :=SIERREUR('C:\Users\s.devers\AppData\Roaming\Microsoft\AddIns\BOBExcel.xla'!AccountBalance($A9;D$1;$A$2;1);"")

Peut être envisagé ?

Oui, je vais l'intégrer. Comme le IF pour les divisions par 0.

Merci