Ca fait plusieurs heures que je bloque sur un pb.
Une erreur 424: Objet requis
Voici mon code:
Public Sub TestValidation() 'Permet de valider le contenu des combobox
Dim ligne As String
ligne = ActiveCell.Row
Worksheets("Optique").Range("B" & ligne) = Combobox1.Value
Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value
Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value
Worksheets("Optique").Range("G" & ligne) = Combobox4.Value
Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value
Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value
End Sub
Pourriez-vous m'aider à regler ce pb svp?
Je ne vois vraiment pas où ca peut bloquer!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fredo P.
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1) "tylerguile" a écrit dans le message de news:
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb. Une erreur 424: Objet requis
Voici mon code: Public Sub TestValidation() 'Permet de valider le contenu des combobox Dim ligne As String ligne = ActiveCell.Row Worksheets("Optique").Range("B" & ligne) = Combobox1.Value Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value Worksheets("Optique").Range("G" & ligne) = Combobox4.Value Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value End Sub
Pourriez-vous m'aider à regler ce pb svp? Je ne vois vraiment pas où ca peut bloquer!
Merci d'avance!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1)
"tylerguile" <tylerguile@discussions.microsoft.com> a écrit dans le message
de news: 3D101577-9988-4D36-8208-2FC124753EBA@microsoft.com...
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb.
Une erreur 424: Objet requis
Voici mon code:
Public Sub TestValidation() 'Permet de valider le contenu des combobox
Dim ligne As String
ligne = ActiveCell.Row
Worksheets("Optique").Range("B" & ligne) = Combobox1.Value
Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value
Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value
Worksheets("Optique").Range("G" & ligne) = Combobox4.Value
Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value
Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value
End Sub
Pourriez-vous m'aider à regler ce pb svp?
Je ne vois vraiment pas où ca peut bloquer!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1) "tylerguile" a écrit dans le message de news:
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb. Une erreur 424: Objet requis
Voici mon code: Public Sub TestValidation() 'Permet de valider le contenu des combobox Dim ligne As String ligne = ActiveCell.Row Worksheets("Optique").Range("B" & ligne) = Combobox1.Value Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value Worksheets("Optique").Range("G" & ligne) = Combobox4.Value Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value End Sub
Pourriez-vous m'aider à regler ce pb svp? Je ne vois vraiment pas où ca peut bloquer!
Merci d'avance!
tylerguile
Merci pour ton aide Fredo. En fait, je suis parvenu à trouver l'origine de mon probleme. Ce code se trouvait dans un module. Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant Call au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1) "tylerguile" a écrit dans le message de news:
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb. Une erreur 424: Objet requis
Voici mon code: Public Sub TestValidation() 'Permet de valider le contenu des combobox Dim ligne As String ligne = ActiveCell.Row Worksheets("Optique").Range("B" & ligne) = Combobox1.Value Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value Worksheets("Optique").Range("G" & ligne) = Combobox4.Value Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value End Sub
Pourriez-vous m'aider à regler ce pb svp? Je ne vois vraiment pas où ca peut bloquer!
Merci d'avance!
Merci pour ton aide Fredo.
En fait, je suis parvenu à trouver l'origine de mon probleme.
Ce code se trouvait dans un module.
Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant Call
au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1)
"tylerguile" <tylerguile@discussions.microsoft.com> a écrit dans le message
de news: 3D101577-9988-4D36-8208-2FC124753EBA@microsoft.com...
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb.
Une erreur 424: Objet requis
Voici mon code:
Public Sub TestValidation() 'Permet de valider le contenu des combobox
Dim ligne As String
ligne = ActiveCell.Row
Worksheets("Optique").Range("B" & ligne) = Combobox1.Value
Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value
Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value
Worksheets("Optique").Range("G" & ligne) = Combobox4.Value
Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value
Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value
End Sub
Pourriez-vous m'aider à regler ce pb svp?
Je ne vois vraiment pas où ca peut bloquer!
Merci pour ton aide Fredo. En fait, je suis parvenu à trouver l'origine de mon probleme. Ce code se trouvait dans un module. Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant Call au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1) "tylerguile" a écrit dans le message de news:
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb. Une erreur 424: Objet requis
Voici mon code: Public Sub TestValidation() 'Permet de valider le contenu des combobox Dim ligne As String ligne = ActiveCell.Row Worksheets("Optique").Range("B" & ligne) = Combobox1.Value Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value Worksheets("Optique").Range("G" & ligne) = Combobox4.Value Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value End Sub
Pourriez-vous m'aider à regler ce pb svp? Je ne vois vraiment pas où ca peut bloquer!
Merci d'avance!
Fredo P.
Sans Call c'est aussi ok "tylerguile" a écrit dans le message de news:
Merci pour ton aide Fredo. En fait, je suis parvenu à trouver l'origine de mon probleme. Ce code se trouvait dans un module. Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant Call au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1) "tylerguile" a écrit dans le message de news:
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb. Une erreur 424: Objet requis
Voici mon code: Public Sub TestValidation() 'Permet de valider le contenu des combobox Dim ligne As String ligne = ActiveCell.Row Worksheets("Optique").Range("B" & ligne) = Combobox1.Value Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value Worksheets("Optique").Range("G" & ligne) = Combobox4.Value Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value End Sub
Pourriez-vous m'aider à regler ce pb svp? Je ne vois vraiment pas où ca peut bloquer!
Merci d'avance!
Sans Call c'est aussi ok
"tylerguile" <tylerguile@discussions.microsoft.com> a écrit dans le message
de news: 05E0B84A-9084-4F0D-B989-4C4B8866C4A2@microsoft.com...
Merci pour ton aide Fredo.
En fait, je suis parvenu à trouver l'origine de mon probleme.
Ce code se trouvait dans un module.
Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant
Call
au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1)
"tylerguile" <tylerguile@discussions.microsoft.com> a écrit dans le
message
de news: 3D101577-9988-4D36-8208-2FC124753EBA@microsoft.com...
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb.
Une erreur 424: Objet requis
Voici mon code:
Public Sub TestValidation() 'Permet de valider le contenu des combobox
Dim ligne As String
ligne = ActiveCell.Row
Worksheets("Optique").Range("B" & ligne) = Combobox1.Value
Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value
Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value
Worksheets("Optique").Range("G" & ligne) = Combobox4.Value
Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value
Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value
End Sub
Pourriez-vous m'aider à regler ce pb svp?
Je ne vois vraiment pas où ca peut bloquer!
Sans Call c'est aussi ok "tylerguile" a écrit dans le message de news:
Merci pour ton aide Fredo. En fait, je suis parvenu à trouver l'origine de mon probleme. Ce code se trouvait dans un module. Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant Call au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1) "tylerguile" a écrit dans le message de news:
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb. Une erreur 424: Objet requis
Voici mon code: Public Sub TestValidation() 'Permet de valider le contenu des combobox Dim ligne As String ligne = ActiveCell.Row Worksheets("Optique").Range("B" & ligne) = Combobox1.Value Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value Worksheets("Optique").Range("G" & ligne) = Combobox4.Value Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value End Sub
Pourriez-vous m'aider à regler ce pb svp? Je ne vois vraiment pas où ca peut bloquer!
Merci d'avance!
LSteph
Bonjour,
Certes mais tant qu'à faire autant respecter les conventions. Tant pour l'efficacité d'interprétation du code que pour sa relecture par autrui il est avéré préférable d'utiliser Call alors on ne va tout de même pas décourager cette bonne façon.
;o)
Cordialement.
-- lSteph
Sans Call c'est aussi ok "tylerguile" a écrit dans le message de news:
Merci pour ton aide Fredo. En fait, je suis parvenu à trouver l'origine de mon probleme. Ce code se trouvait dans un module. Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant Call au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1) "tylerguile" a écrit dans le message de news:
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb. Une erreur 424: Objet requis
Voici mon code: Public Sub TestValidation() 'Permet de valider le contenu des combobox Dim ligne As String ligne = ActiveCell.Row Worksheets("Optique").Range("B" & ligne) = Combobox1.Value Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value Worksheets("Optique").Range("G" & ligne) = Combobox4.Value Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value End Sub
Pourriez-vous m'aider à regler ce pb svp? Je ne vois vraiment pas où ca peut bloquer!
Merci d'avance!
Bonjour,
Certes mais tant qu'à faire autant respecter les conventions.
Tant pour l'efficacité d'interprétation du code que pour sa
relecture par autrui il est avéré préférable d'utiliser Call
alors on ne va tout de même pas décourager cette bonne façon.
;o)
Cordialement.
--
lSteph
Sans Call c'est aussi ok
"tylerguile" <tylerguile@discussions.microsoft.com> a écrit dans le message
de news: 05E0B84A-9084-4F0D-B989-4C4B8866C4A2@microsoft.com...
Merci pour ton aide Fredo.
En fait, je suis parvenu à trouver l'origine de mon probleme.
Ce code se trouvait dans un module.
Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant
Call
au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1)
"tylerguile" <tylerguile@discussions.microsoft.com> a écrit dans le
message
de news: 3D101577-9988-4D36-8208-2FC124753EBA@microsoft.com...
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb.
Une erreur 424: Objet requis
Voici mon code:
Public Sub TestValidation() 'Permet de valider le contenu des combobox
Dim ligne As String
ligne = ActiveCell.Row
Worksheets("Optique").Range("B" & ligne) = Combobox1.Value
Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value
Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value
Worksheets("Optique").Range("G" & ligne) = Combobox4.Value
Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value
Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value
End Sub
Pourriez-vous m'aider à regler ce pb svp?
Je ne vois vraiment pas où ca peut bloquer!
Certes mais tant qu'à faire autant respecter les conventions. Tant pour l'efficacité d'interprétation du code que pour sa relecture par autrui il est avéré préférable d'utiliser Call alors on ne va tout de même pas décourager cette bonne façon.
;o)
Cordialement.
-- lSteph
Sans Call c'est aussi ok "tylerguile" a écrit dans le message de news:
Merci pour ton aide Fredo. En fait, je suis parvenu à trouver l'origine de mon probleme. Ce code se trouvait dans un module. Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant Call au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1) "tylerguile" a écrit dans le message de news:
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb. Une erreur 424: Objet requis
Voici mon code: Public Sub TestValidation() 'Permet de valider le contenu des combobox Dim ligne As String ligne = ActiveCell.Row Worksheets("Optique").Range("B" & ligne) = Combobox1.Value Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value Worksheets("Optique").Range("G" & ligne) = Combobox4.Value Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value End Sub
Pourriez-vous m'aider à regler ce pb svp? Je ne vois vraiment pas où ca peut bloquer!
Merci d'avance!
Péhemme
Bonjour à toi,
Ne te manque-t-il pas le nom de ton userform dans ta Sub ? Essaie : Worksheets("Optique").Range("B" & ligne) = Userform1.Combobox1.Value
Michel
"tylerguile" a écrit dans le message de news:
Merci pour ton aide Fredo. En fait, je suis parvenu à trouver l'origine de mon probleme. Ce code se trouvait dans un module. Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant Call au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1) "tylerguile" a écrit dans le message de news:
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb. Une erreur 424: Objet requis
Voici mon code: Public Sub TestValidation() 'Permet de valider le contenu des combobox Dim ligne As String ligne = ActiveCell.Row Worksheets("Optique").Range("B" & ligne) = Combobox1.Value Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value Worksheets("Optique").Range("G" & ligne) = Combobox4.Value Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value End Sub
Pourriez-vous m'aider à regler ce pb svp? Je ne vois vraiment pas où ca peut bloquer!
Merci d'avance!
Bonjour à toi,
Ne te manque-t-il pas le nom de ton userform dans ta Sub ?
Essaie :
Worksheets("Optique").Range("B" & ligne) = Userform1.Combobox1.Value
Michel
"tylerguile" <tylerguile@discussions.microsoft.com> a écrit dans le message
de news: 05E0B84A-9084-4F0D-B989-4C4B8866C4A2@microsoft.com...
Merci pour ton aide Fredo.
En fait, je suis parvenu à trouver l'origine de mon probleme.
Ce code se trouvait dans un module.
Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant
Call
au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1)
"tylerguile" <tylerguile@discussions.microsoft.com> a écrit dans le
message
de news: 3D101577-9988-4D36-8208-2FC124753EBA@microsoft.com...
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb.
Une erreur 424: Objet requis
Voici mon code:
Public Sub TestValidation() 'Permet de valider le contenu des combobox
Dim ligne As String
ligne = ActiveCell.Row
Worksheets("Optique").Range("B" & ligne) = Combobox1.Value
Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value
Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value
Worksheets("Optique").Range("G" & ligne) = Combobox4.Value
Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value
Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value
End Sub
Pourriez-vous m'aider à regler ce pb svp?
Je ne vois vraiment pas où ca peut bloquer!
Ne te manque-t-il pas le nom de ton userform dans ta Sub ? Essaie : Worksheets("Optique").Range("B" & ligne) = Userform1.Combobox1.Value
Michel
"tylerguile" a écrit dans le message de news:
Merci pour ton aide Fredo. En fait, je suis parvenu à trouver l'origine de mon probleme. Ce code se trouvait dans un module. Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant Call au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1) "tylerguile" a écrit dans le message de news:
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb. Une erreur 424: Objet requis
Voici mon code: Public Sub TestValidation() 'Permet de valider le contenu des combobox Dim ligne As String ligne = ActiveCell.Row Worksheets("Optique").Range("B" & ligne) = Combobox1.Value Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value Worksheets("Optique").Range("G" & ligne) = Combobox4.Value Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value End Sub
Pourriez-vous m'aider à regler ce pb svp? Je ne vois vraiment pas où ca peut bloquer!
Merci d'avance!
Fredo P.
Certes certes Mrs LSteph ,ce n'était que pour l'info. "LSteph" a écrit dans le message de news: %23L%
Bonjour,
Certes mais tant qu'à faire autant respecter les conventions. Tant pour l'efficacité d'interprétation du code que pour sa relecture par autrui il est avéré préférable d'utiliser Call alors on ne va tout de même pas décourager cette bonne façon.
;o)
Cordialement.
-- lSteph
Sans Call c'est aussi ok "tylerguile" a écrit dans le message de news:
Merci pour ton aide Fredo. En fait, je suis parvenu à trouver l'origine de mon probleme. Ce code se trouvait dans un module. Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant Call au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1) "tylerguile" a écrit dans le message de news:
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb. Une erreur 424: Objet requis
Voici mon code: Public Sub TestValidation() 'Permet de valider le contenu des combobox Dim ligne As String ligne = ActiveCell.Row Worksheets("Optique").Range("B" & ligne) = Combobox1.Value Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value Worksheets("Optique").Range("G" & ligne) = Combobox4.Value Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value End Sub
Pourriez-vous m'aider à regler ce pb svp? Je ne vois vraiment pas où ca peut bloquer!
Merci d'avance!
Certes certes Mrs LSteph ,ce n'était que pour l'info.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23L%23i3PbNIHA.3916@TK2MSFTNGP02.phx.gbl...
Bonjour,
Certes mais tant qu'à faire autant respecter les conventions.
Tant pour l'efficacité d'interprétation du code que pour sa
relecture par autrui il est avéré préférable d'utiliser Call
alors on ne va tout de même pas décourager cette bonne façon.
;o)
Cordialement.
--
lSteph
Sans Call c'est aussi ok
"tylerguile" <tylerguile@discussions.microsoft.com> a écrit dans le
message de news: 05E0B84A-9084-4F0D-B989-4C4B8866C4A2@microsoft.com...
Merci pour ton aide Fredo.
En fait, je suis parvenu à trouver l'origine de mon probleme.
Ce code se trouvait dans un module.
Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant
Call
au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1)
"tylerguile" <tylerguile@discussions.microsoft.com> a écrit dans le
message
de news: 3D101577-9988-4D36-8208-2FC124753EBA@microsoft.com...
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb.
Une erreur 424: Objet requis
Voici mon code:
Public Sub TestValidation() 'Permet de valider le contenu des combobox
Dim ligne As String
ligne = ActiveCell.Row
Worksheets("Optique").Range("B" & ligne) = Combobox1.Value
Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value
Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value
Worksheets("Optique").Range("G" & ligne) = Combobox4.Value
Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value
Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value
End Sub
Pourriez-vous m'aider à regler ce pb svp?
Je ne vois vraiment pas où ca peut bloquer!
Certes certes Mrs LSteph ,ce n'était que pour l'info. "LSteph" a écrit dans le message de news: %23L%
Bonjour,
Certes mais tant qu'à faire autant respecter les conventions. Tant pour l'efficacité d'interprétation du code que pour sa relecture par autrui il est avéré préférable d'utiliser Call alors on ne va tout de même pas décourager cette bonne façon.
;o)
Cordialement.
-- lSteph
Sans Call c'est aussi ok "tylerguile" a écrit dans le message de news:
Merci pour ton aide Fredo. En fait, je suis parvenu à trouver l'origine de mon probleme. Ce code se trouvait dans un module. Je l'ai déplacé dans le USERFORM et là, j'appelle la macro en utilisant Call au lieu de Run, et là, tout fonctionne correctement!
Merci encore!
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1) "tylerguile" a écrit dans le message de news:
Bonjour,
Ca fait plusieurs heures que je bloque sur un pb. Une erreur 424: Objet requis
Voici mon code: Public Sub TestValidation() 'Permet de valider le contenu des combobox Dim ligne As String ligne = ActiveCell.Row Worksheets("Optique").Range("B" & ligne) = Combobox1.Value Worksheets("Optique").Range("C" & ligne) = ComboBox2.Value Worksheets("Optique").Range("D" & ligne) = ComboBox3.Value Worksheets("Optique").Range("G" & ligne) = Combobox4.Value Worksheets("Optique").Range("H" & ligne) = ComboBox5.Value Worksheets("Optique").Range("I" & ligne) = ComboBox6.Value End Sub
Pourriez-vous m'aider à regler ce pb svp? Je ne vois vraiment pas où ca peut bloquer!