J'ai un combobox sur une feuille nomm=E9e "accueil" que j'utilise pour me d=
=E9placer vers des feuilles.
Dans cette combobox des donn=E9es.
Bon de commande
Bon de pr=E9paration
Bon de livraison
Fiche voiture
une macro change sur le combobox:=20
Private Sub combobox1_Change()
If ComboBox1.Value =3D "Bon de pr=E9paration" Then
Sheets("BP1").Select
End If
If ComboBox1 =3D "Bon de commande" Then
BC =3D Sheets("Stock").Range("H1").Value
Sheets(BC).Select
End If
If ComboBox1 =3D "Bon de Livraison" Then
Sheets("BL1").Select
Range("D13").Select
End If
End Sub
D=E8s lors que j'ai le range("D13").select, le range g=E9n=E8re le message =
d'erreur suivant:
"erreur d'ex=E9cution 1004"
"La m=E9thode select de la classe range a =E9chou=E9."
J'ai un combobox sur une feuille nommée "accueil" que j'utilise pour me déplacer vers des feuilles.
Dans cette combobox des données. Bon de commande Bon de préparation Bon de livraison Fiche voiture
une macro change sur le combobox:
Private Sub combobox1_Change()
If ComboBox1.Value = "Bon de préparation" Then Sheets("BP1").Select End If
If ComboBox1 = "Bon de commande" Then BC = Sheets("Stock").Range("H1").Value Sheets(BC).Select End If
If ComboBox1 = "Bon de Livraison" Then Sheets("BL1").Select Range("D13").Select End If
End Sub
Dès lors que j'ai le range("D13").select, le range génère le message d'erreur suivant: "erreur d'exécution 1004" "La méthode select de la classe range a échoué."
pourquoi?
Merci
JP
bonjour,
Application.GoTo Range("D13")
isabelle
Le 2013-12-02 11:21, JP a écrit :
Bonjour,
Un truc surement tout bête,
J'ai un combobox sur une feuille nommée "accueil" que j'utilise pour me déplacer vers des feuilles.
Dans cette combobox des données.
Bon de commande
Bon de préparation
Bon de livraison
Fiche voiture
une macro change sur le combobox:
Private Sub combobox1_Change()
If ComboBox1.Value = "Bon de préparation" Then
Sheets("BP1").Select
End If
If ComboBox1 = "Bon de commande" Then
BC = Sheets("Stock").Range("H1").Value
Sheets(BC).Select
End If
If ComboBox1 = "Bon de Livraison" Then
Sheets("BL1").Select
Range("D13").Select
End If
End Sub
Dès lors que j'ai le range("D13").select, le range génère le message d'erreur suivant:
"erreur d'exécution 1004"
"La méthode select de la classe range a échoué."
J'ai un combobox sur une feuille nommée "accueil" que j'utilise pour me déplacer vers des feuilles.
Dans cette combobox des données. Bon de commande Bon de préparation Bon de livraison Fiche voiture
une macro change sur le combobox:
Private Sub combobox1_Change()
If ComboBox1.Value = "Bon de préparation" Then Sheets("BP1").Select End If
If ComboBox1 = "Bon de commande" Then BC = Sheets("Stock").Range("H1").Value Sheets(BC).Select End If
If ComboBox1 = "Bon de Livraison" Then Sheets("BL1").Select Range("D13").Select End If
End Sub
Dès lors que j'ai le range("D13").select, le range génère le message d'erreur suivant: "erreur d'exécution 1004" "La méthode select de la classe range a échoué."
pourquoi?
Merci
JP
JP
Bonjour Isabelle et Denis
Isabelle, ta méthode ne donne plus d'erreur sauf que le passage est un pe u trop rapide. C'est bien connu, je confonds déjà Jacky et Daniel , ... réflexion ..., ou Daniel et Jacky (je ne sais plus) , car je porte des l unettes sales. Trêve de plaisanteries, il faut que je fasse une halte sur la page.
Denis, effectivement la feuille est protégée. Dans le thisworkbook j'ai: For i = 1 To Sheets.Count Worksheets(i).Activate Sheets(i).Protect Password:="", DrawingObjects:=True, Contents:=T rue, UserInterfaceOnly:=True Next i
je pensais qu'avec cette méthode de protection, je pouvais par macro fair e des interventions sur les feuilles sans pour autant avoir à déproté ger la dite feuille.
JP
Bonjour Isabelle et Denis
Isabelle, ta méthode ne donne plus d'erreur sauf que le passage est un pe u trop rapide. C'est bien connu, je confonds déjà Jacky et Daniel , ... réflexion ..., ou Daniel et Jacky (je ne sais plus) , car je porte des l unettes sales.
Trêve de plaisanteries, il faut que je fasse une halte sur la page.
Denis, effectivement la feuille est protégée.
Dans le thisworkbook j'ai:
For i = 1 To Sheets.Count
Worksheets(i).Activate
Sheets(i).Protect Password:="", DrawingObjects:=True, Contents:=T rue, UserInterfaceOnly:=True
Next i
je pensais qu'avec cette méthode de protection, je pouvais par macro fair e des interventions sur les feuilles sans pour autant avoir à déproté ger la dite feuille.
Isabelle, ta méthode ne donne plus d'erreur sauf que le passage est un pe u trop rapide. C'est bien connu, je confonds déjà Jacky et Daniel , ... réflexion ..., ou Daniel et Jacky (je ne sais plus) , car je porte des l unettes sales. Trêve de plaisanteries, il faut que je fasse une halte sur la page.
Denis, effectivement la feuille est protégée. Dans le thisworkbook j'ai: For i = 1 To Sheets.Count Worksheets(i).Activate Sheets(i).Protect Password:="", DrawingObjects:=True, Contents:=T rue, UserInterfaceOnly:=True Next i
je pensais qu'avec cette méthode de protection, je pouvais par macro fair e des interventions sur les feuilles sans pour autant avoir à déproté ger la dite feuille.
Click droit En bas à gauche du classeur (là où il y a les petites fleches) et Hop..on a la liste déroulante des feuilles! Et +... encore si elles sont nombreuses!
Cordialement.
-- LSteph ("Réinventer la roue ne permet pas toujours de comprendre comment elle tourne, mais soulage la curiosité")
"JP" a écrit dans le message de news: Bonjour,
Un truc surement tout bête,
J'ai un combobox sur une feuille nommée "accueil" que j'utilise pour me déplacer vers des feuilles.
Dans cette combobox des données. Bon de commande Bon de préparation Bon de livraison Fiche voiture
une macro change sur le combobox:
Private Sub combobox1_Change()
If ComboBox1.Value = "Bon de préparation" Then Sheets("BP1").Select End If
If ComboBox1 = "Bon de commande" Then BC = Sheets("Stock").Range("H1").Value Sheets(BC).Select End If
If ComboBox1 = "Bon de Livraison" Then Sheets("BL1").Select Range("D13").Select End If
End Sub
Dès lors que j'ai le range("D13").select, le range génère le message d'erreur suivant: "erreur d'exécution 1004" "La méthode select de la classe range a échoué."
pourquoi?
Merci
JP
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Bonjour,
Click droit En bas à gauche du classeur
(là où il y a les petites fleches) et Hop..on a la liste déroulante des
feuilles!
Et +... encore si elles sont nombreuses!
Cordialement.
--
LSteph
("Réinventer la roue ne permet pas toujours de comprendre comment elle
tourne, mais soulage la curiosité")
"JP" <jthillard@gmail.com> a écrit dans le message de
news:6fe5c990-969f-4781-9167-76e96804df4f@googlegroups.com...
Bonjour,
Un truc surement tout bête,
J'ai un combobox sur une feuille nommée "accueil" que j'utilise pour me
déplacer vers des feuilles.
Dans cette combobox des données.
Bon de commande
Bon de préparation
Bon de livraison
Fiche voiture
une macro change sur le combobox:
Private Sub combobox1_Change()
If ComboBox1.Value = "Bon de préparation" Then
Sheets("BP1").Select
End If
If ComboBox1 = "Bon de commande" Then
BC = Sheets("Stock").Range("H1").Value
Sheets(BC).Select
End If
If ComboBox1 = "Bon de Livraison" Then
Sheets("BL1").Select
Range("D13").Select
End If
End Sub
Dès lors que j'ai le range("D13").select, le range génère le message
d'erreur suivant:
"erreur d'exécution 1004"
"La méthode select de la classe range a échoué."
pourquoi?
Merci
JP
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Click droit En bas à gauche du classeur (là où il y a les petites fleches) et Hop..on a la liste déroulante des feuilles! Et +... encore si elles sont nombreuses!
Cordialement.
-- LSteph ("Réinventer la roue ne permet pas toujours de comprendre comment elle tourne, mais soulage la curiosité")
"JP" a écrit dans le message de news: Bonjour,
Un truc surement tout bête,
J'ai un combobox sur une feuille nommée "accueil" que j'utilise pour me déplacer vers des feuilles.
Dans cette combobox des données. Bon de commande Bon de préparation Bon de livraison Fiche voiture
une macro change sur le combobox:
Private Sub combobox1_Change()
If ComboBox1.Value = "Bon de préparation" Then Sheets("BP1").Select End If
If ComboBox1 = "Bon de commande" Then BC = Sheets("Stock").Range("H1").Value Sheets(BC).Select End If
If ComboBox1 = "Bon de Livraison" Then Sheets("BL1").Select Range("D13").Select End If
End Sub
Dès lors que j'ai le range("D13").select, le range génère le message d'erreur suivant: "erreur d'exécution 1004" "La méthode select de la classe range a échoué."
pourquoi?
Merci
JP
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
"LSteph" a écrit dans le message de news:l7jvh7$7a1$
Bonjour,
Click droit En bas à gauche du classeur (là où il y a les petites fleches) et Hop..on a la liste déroulante des feuilles! Et +... encore si elles sont nombreuses!
Cordialement.
-- LSteph ("Réinventer la roue ne permet pas toujours de comprendre comment elle tourne, mais soulage la curiosité")
"JP" a écrit dans le message de news: Bonjour,
Un truc surement tout bête,
J'ai un combobox sur une feuille nommée "accueil" que j'utilise pour me déplacer vers des feuilles.
Dans cette combobox des données. Bon de commande Bon de préparation Bon de livraison Fiche voiture
une macro change sur le combobox:
Private Sub combobox1_Change()
If ComboBox1.Value = "Bon de préparation" Then Sheets("BP1").Select End If
If ComboBox1 = "Bon de commande" Then BC = Sheets("Stock").Range("H1").Value Sheets(BC).Select End If
If ComboBox1 = "Bon de Livraison" Then Sheets("BL1").Select Range("D13").Select End If
End Sub
Dès lors que j'ai le range("D13").select, le range génère le message d'erreur suivant: "erreur d'exécution 1004" "La méthode select de la classe range a échoué."
pourquoi?
Merci
JP
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:l7jvh7$7a1$1@speranza.aioe.org...
Bonjour,
Click droit En bas à gauche du classeur
(là où il y a les petites fleches) et Hop..on a la liste déroulante des
feuilles!
Et +... encore si elles sont nombreuses!
Cordialement.
--
LSteph
("Réinventer la roue ne permet pas toujours de comprendre comment elle
tourne, mais soulage la curiosité")
"JP" <jthillard@gmail.com> a écrit dans le message de
news:6fe5c990-969f-4781-9167-76e96804df4f@googlegroups.com...
Bonjour,
Un truc surement tout bête,
J'ai un combobox sur une feuille nommée "accueil" que j'utilise pour me
déplacer vers des feuilles.
Dans cette combobox des données.
Bon de commande
Bon de préparation
Bon de livraison
Fiche voiture
une macro change sur le combobox:
Private Sub combobox1_Change()
If ComboBox1.Value = "Bon de préparation" Then
Sheets("BP1").Select
End If
If ComboBox1 = "Bon de commande" Then
BC = Sheets("Stock").Range("H1").Value
Sheets(BC).Select
End If
If ComboBox1 = "Bon de Livraison" Then
Sheets("BL1").Select
Range("D13").Select
End If
End Sub
Dès lors que j'ai le range("D13").select, le range génère le message
d'erreur suivant:
"erreur d'exécution 1004"
"La méthode select de la classe range a échoué."
pourquoi?
Merci
JP
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
"LSteph" a écrit dans le message de news:l7jvh7$7a1$
Bonjour,
Click droit En bas à gauche du classeur (là où il y a les petites fleches) et Hop..on a la liste déroulante des feuilles! Et +... encore si elles sont nombreuses!
Cordialement.
-- LSteph ("Réinventer la roue ne permet pas toujours de comprendre comment elle tourne, mais soulage la curiosité")
"JP" a écrit dans le message de news: Bonjour,
Un truc surement tout bête,
J'ai un combobox sur une feuille nommée "accueil" que j'utilise pour me déplacer vers des feuilles.
Dans cette combobox des données. Bon de commande Bon de préparation Bon de livraison Fiche voiture
une macro change sur le combobox:
Private Sub combobox1_Change()
If ComboBox1.Value = "Bon de préparation" Then Sheets("BP1").Select End If
If ComboBox1 = "Bon de commande" Then BC = Sheets("Stock").Range("H1").Value Sheets(BC).Select End If
If ComboBox1 = "Bon de Livraison" Then Sheets("BL1").Select Range("D13").Select End If
End Sub
Dès lors que j'ai le range("D13").select, le range génère le message d'erreur suivant: "erreur d'exécution 1004" "La méthode select de la classe range a échoué."
pourquoi?
Merci
JP
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Jacky
Bonjour,
1-La feuille est masquée ?? 2- Orthographe***
Dans cette combobox des données. Bon de commande Bon de préparation Bon de livraison <==*** Fiche voiture
If ComboBox1 = "Bon de Livraison" <==***
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour,
Un truc surement tout bête,
J'ai un combobox sur une feuille nommée "accueil" que j'utilise pour me déplacer vers des feuilles.
Dans cette combobox des données. Bon de commande Bon de préparation Bon de livraison Fiche voiture
une macro change sur le combobox:
Private Sub combobox1_Change()
If ComboBox1.Value = "Bon de préparation" Then Sheets("BP1").Select End If
If ComboBox1 = "Bon de commande" Then BC = Sheets("Stock").Range("H1").Value Sheets(BC).Select End If
If ComboBox1 = "Bon de Livraison" Then Sheets("BL1").Select Range("D13").Select End If
End Sub
Dès lors que j'ai le range("D13").select, le range génère le message d'erreur suivant: "erreur d'exécution 1004" "La méthode select de la classe range a échoué."
pourquoi?
Merci
JP
Bonjour,
1-La feuille est masquée ??
2- Orthographe***
Dans cette combobox des données.
Bon de commande
Bon de préparation
Bon de livraison <==***
Fiche voiture
If ComboBox1 = "Bon de Livraison" <==***
--
Salutations
JJ
"JP" <jthillard@gmail.com> a écrit dans le message de news:
6fe5c990-969f-4781-9167-76e96804df4f@googlegroups.com...
Bonjour,
Un truc surement tout bête,
J'ai un combobox sur une feuille nommée "accueil" que j'utilise pour me déplacer vers des feuilles.
Dans cette combobox des données.
Bon de commande
Bon de préparation
Bon de livraison
Fiche voiture
une macro change sur le combobox:
Private Sub combobox1_Change()
If ComboBox1.Value = "Bon de préparation" Then
Sheets("BP1").Select
End If
If ComboBox1 = "Bon de commande" Then
BC = Sheets("Stock").Range("H1").Value
Sheets(BC).Select
End If
If ComboBox1 = "Bon de Livraison" Then
Sheets("BL1").Select
Range("D13").Select
End If
End Sub
Dès lors que j'ai le range("D13").select, le range génère le message d'erreur suivant:
"erreur d'exécution 1004"
"La méthode select de la classe range a échoué."
Dans cette combobox des données. Bon de commande Bon de préparation Bon de livraison <==*** Fiche voiture
If ComboBox1 = "Bon de Livraison" <==***
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour,
Un truc surement tout bête,
J'ai un combobox sur une feuille nommée "accueil" que j'utilise pour me déplacer vers des feuilles.
Dans cette combobox des données. Bon de commande Bon de préparation Bon de livraison Fiche voiture
une macro change sur le combobox:
Private Sub combobox1_Change()
If ComboBox1.Value = "Bon de préparation" Then Sheets("BP1").Select End If
If ComboBox1 = "Bon de commande" Then BC = Sheets("Stock").Range("H1").Value Sheets(BC).Select End If
If ComboBox1 = "Bon de Livraison" Then Sheets("BL1").Select Range("D13").Select End If
End Sub
Dès lors que j'ai le range("D13").select, le range génère le message d'erreur suivant: "erreur d'exécution 1004" "La méthode select de la classe range a échoué."
pourquoi?
Merci
JP
JP
Bonjour Steph,
Merci. Le fait d'activer la feuille et de passer par cells fonctionne. Une explication?
JP
Bonjour Steph,
Merci. Le fait d'activer la feuille et de passer par cells fonctionne.
Une explication?
Pour répondre à ta question, la feuille n'est pas masquée mais seule ment protégée.
JP
LSteph
Bonjour,
Disons plutôt une tentative d'explication:
car reste une ambiguité en quelque sorte puisqu'en invoquant activSheet on pourrait presque se poser la même question
En fait on est dans une action déclanchée par un objet propriété d'une feuille et on demande d'une part d'activer une feuille de l'autre une cellule le code ne doit plus savoir si l'on fait appel à la feuille d'origine ou celle qu'on vient d'activer en précisant activsheet cela semble plus clair puisqu'on vient de l'activer.
-- LSteph
"JP" a écrit dans le message de news:
Bonjour Steph,
Merci. Le fait d'activer la feuille et de passer par cells fonctionne. Une explication?
JP
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Bonjour,
Disons plutôt une tentative d'explication:
car reste une ambiguité en quelque sorte puisqu'en invoquant activSheet on
pourrait presque se poser la même question
En fait on est dans une action déclanchée par un objet propriété d'une
feuille
et on demande d'une part d'activer une feuille de l'autre une cellule
le code ne doit plus savoir si l'on fait appel à la feuille d'origine ou
celle qu'on vient d'activer
en précisant activsheet cela semble plus clair puisqu'on vient de l'activer.
--
LSteph
"JP" <jthillard@gmail.com> a écrit dans le message de
news:51b3a896-1b71-4880-8ea0-54c574dd7916@googlegroups.com...
Bonjour Steph,
Merci. Le fait d'activer la feuille et de passer par cells fonctionne.
Une explication?
JP
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
car reste une ambiguité en quelque sorte puisqu'en invoquant activSheet on pourrait presque se poser la même question
En fait on est dans une action déclanchée par un objet propriété d'une feuille et on demande d'une part d'activer une feuille de l'autre une cellule le code ne doit plus savoir si l'on fait appel à la feuille d'origine ou celle qu'on vient d'activer en précisant activsheet cela semble plus clair puisqu'on vient de l'activer.
-- LSteph
"JP" a écrit dans le message de news:
Bonjour Steph,
Merci. Le fait d'activer la feuille et de passer par cells fonctionne. Une explication?
JP
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
