Discussion :

[jejeaunet75]

Bonjour à tous,

Je me permets de vous solliciter car une macro qui fonctionnait très bien jusqu'à maintenant bloque... Je ne comprends par pourquoi ma partie de code bloque...

Dans cette partie je transforme en numérique des valeurs qui sont au format texte.

Voici mon bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Ajout_trie()
 
der = ((Columns("H").Find(num1, LookIn:=xlValues, LookAt:=xlWhole).Row) - 1)
 
' Transforme en numérique des variables au format texte
 
   For Each ws In ActiveWorkbook.Worksheets
        With ws.Range("H2:H" & der)
            .NumberFormat = "0"
            .Value = .Value
        End With
    Next

J'ai un message d'erreur :

Erreur d’exécution 1004 :

Impossible d'entrer une valeur nulle dans un élément ou un nom de champ dans un rapport TCD.

Je tiens à préciser qu'une fois ce tableau consolidé. J'appelle une seconde macro pour mettre mes TCD à jour...

Si l'un d'entre vous dispose d'une idée de mon éventuelle bêtise dans le code je suis preneur...

Bonne soirée à vous..

[joe.levrai]

Bonjour,

Code :

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

der = ((Columns("H").Find(num1, LookIn:=xlValues, LookAt:=xlWhole).Row) - 1)

Comme nous le répétons chaque jour (ou presque) sur ce forum ... il est dangereux de manipuler une propriété d'un Objet Range renvoyé par un Find, sans en tester au préalable l'existence !
De même, ton Columns tout seul fait référence à la feuille active, il est hautement conseillé d'en affilier la feuille (et si besoin le classeur) d'appartenance


Concernant ton problème en lui-même, je serai tenté de :

- m'interroger : pourquoi tu fais un .value = .value dans ton TCD ? Je n'arrive pas à en comprendre l'utilité. En général on fait ça pour remplacer les formules par leur valeur
- te demander : tu commences en ligne 2 ... sur quelle ligne sont situés tes noms de champs ?


Je ne garantis pas que ces deux questions apporterons seules la compréhension exacte de ton problème, mais elles feront avancer le Schmilblick

[jejeaunet75]

Bonjour joe.levrai,

Etant un débutant (ou un amateur) en code vba, je ne cache pas que je peine à saisir le début de tes propos. Penses tu pouvoir m'expliquer ce que tu souhaites me faire comprendre afin que je corrige de mauvaises habitudes de code ?

Pour répondre à la suite de ton message. J'ai fait quelques essais hier :

J'apporte quelques éléments d'infos supplémentaires :

Mon onglet 1 : tableau de consolidation (apporte l'information provenant de plusieurs tableaux extérieurs = même format pour l'ensemble).
Mes autres onglets : TCD qui sont alimentés par ce tableau dans l'onglet 1.

Lors de la "mise en forme de ce tableau" (création de variables pour les TCD des prochains onglets qui sont par la suite actualisés par une autre macro), apparait ce problème. Si, je remets les TCD à vide, ou si je supprime les onglets, la macro fonctionne très bien.

Pour répondre à tes questions :

- m'interroger : pourquoi tu fais un .value = .value dans ton TCD ? Je n'arrive pas à en comprendre l'utilité. En général on fait ça pour remplacer les formules par leur valeur

==> Le but est de remplacer les valeurs textes par du numérique

- te demander : tu commences en ligne 2 ... sur quelle ligne sont situés tes noms de champs ?

==> mes noms de champ sont en ligne 1.

Je vais me permettre de mettre en PJ mon fichier. Cela permet d'y voir un peu plus clair.

Il est ici : http://www.cjoint.com/c/EIlhrJcex85

Bonne journée.