Combobox vers la cellule de destination

Le
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!
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fredo P.
Le #5388611
Worksheets("Optique").Range("B" & ligne) = Combobox1.list(1)
"tylerguile" 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
Le #5388541
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" 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.
Le #5388451
Sans Call c'est aussi ok
"tylerguile" 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" 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
Le #5387971
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" 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" 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
Le #5387691
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" 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" 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.
Le #5387461
Certes certes Mrs LSteph ,ce n'était que pour l'info.
"LSteph" %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" 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" 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!













Publicité
Poster une réponse
Anonyme