Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Combobox vers la cellule de destination

6 réponses
Avatar
tylerguile
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!

6 réponses

Avatar
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!


Avatar
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!







Avatar
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!









Avatar
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!












Avatar
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!









Avatar
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!