Bonjour à tous et toutes
J'utilise ce bout de code en début de procédure
For Each cell In Range("sp_B6")
If cell.Value = [nr] Then Exit Sub
Next
pour vérifier si doublon il y a dans la BD.
Cela fonctionne très bien dès qu'il y a au moins 1 référence dans la BD.
Lors d'une nouvelle BD, j'obtiens le message d'erreur suivant:
Erreur d'exécution '1004':
La méthode 'Range' de l'objet '_Global' a échoué.
Normal, il n'y a encore aucune référence dans la BD.
Que devrais-je ajouter ou modifier pour obtenir le résultat escompté,
à savoir l'exécution complète de la macro.
--
En vous remerciant d'avance pour vos conseils.
Cordialement
Christian
Et si tu veux maintenir l'endroit où est situé le code, emploie ceci comme syntaxe
With Worksheets("NomDeLaFeuille") For Each cell In .Range("Sp_B6") If cell.Value = .[nr] Then Exit Sub Next End With
"Christian" a écrit dans le message de news:
Bonjour à tous et toutes J'utilise ce bout de code en début de procédure For Each cell In Range("sp_B6") If cell.Value = [nr] Then Exit Sub Next pour vérifier si doublon il y a dans la BD. Cela fonctionne très bien dès qu'il y a au moins 1 référence dans la BD. Lors d'une nouvelle BD, j'obtiens le message d'erreur suivant: Erreur d'exécution '1004': La méthode 'Range' de l'objet '_Global' a échoué. Normal, il n'y a encore aucune référence dans la BD. Que devrais-je ajouter ou modifier pour obtenir le résultat escompté, à savoir l'exécution complète de la macro. -- En vous remerciant d'avance pour vos conseils. Cordialement Christian
Bonjour MichDenis
Merci pour ta solution.
Cordialement
Christian
Et si tu veux maintenir l'endroit où est situé le code, emploie ceci comme syntaxe
With Worksheets("NomDeLaFeuille")
For Each cell In .Range("Sp_B6")
If cell.Value = .[nr] Then Exit Sub
Next
End With
"Christian" <Christian@discussions.microsoft.com> a écrit dans le message de news:
34744696-D692-4D80-84DF-81106C15C6E9@microsoft.com...
Bonjour à tous et toutes
J'utilise ce bout de code en début de procédure
For Each cell In Range("sp_B6")
If cell.Value = [nr] Then Exit Sub
Next
pour vérifier si doublon il y a dans la BD.
Cela fonctionne très bien dès qu'il y a au moins 1 référence dans la BD.
Lors d'une nouvelle BD, j'obtiens le message d'erreur suivant:
Erreur d'exécution '1004':
La méthode 'Range' de l'objet '_Global' a échoué.
Normal, il n'y a encore aucune référence dans la BD.
Que devrais-je ajouter ou modifier pour obtenir le résultat escompté,
à savoir l'exécution complète de la macro.
--
En vous remerciant d'avance pour vos conseils.
Cordialement
Christian
Et si tu veux maintenir l'endroit où est situé le code, emploie ceci comme syntaxe
With Worksheets("NomDeLaFeuille") For Each cell In .Range("Sp_B6") If cell.Value = .[nr] Then Exit Sub Next End With
"Christian" a écrit dans le message de news:
Bonjour à tous et toutes J'utilise ce bout de code en début de procédure For Each cell In Range("sp_B6") If cell.Value = [nr] Then Exit Sub Next pour vérifier si doublon il y a dans la BD. Cela fonctionne très bien dès qu'il y a au moins 1 référence dans la BD. Lors d'une nouvelle BD, j'obtiens le message d'erreur suivant: Erreur d'exécution '1004': La méthode 'Range' de l'objet '_Global' a échoué. Normal, il n'y a encore aucune référence dans la BD. Que devrais-je ajouter ou modifier pour obtenir le résultat escompté, à savoir l'exécution complète de la macro. -- En vous remerciant d'avance pour vos conseils. Cordialement Christian
