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