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

range sur un combobox_change

11 réponses
Avatar
JP
Bonjour,

Un truc surement tout b=EAte,

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."

pourquoi?

Merci

JP

10 réponses

1 2
Avatar
MichD
Bonjour,

Est-ce possible que ta feuille "BL1" soit protégée?



MichD
---------------------------------------------------------------
Avatar
isabelle
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é."

pourquoi?

Merci

JP

Avatar
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
Avatar
JP
Denis,

Feuille déprotégée, c'est la meme chose.

JP
Avatar
LSteph
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
Avatar
LSteph
...pour revenir à ta question,

Sheets("Feuil2").Activate
ActiveSheet.Cells(13, 4).Select




"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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com
Avatar
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
Avatar
JP
Bonjour Steph,

Merci. Le fait d'activer la feuille et de passer par cells fonctionne.
Une explication?

JP
Avatar
JP
Bonjour Jacky,

Je ne la pensais pas du genre féminin ;-).

1-La feuille est masquée ??
2- Orthographe***

Dans cette combobox des données.

Pour répondre à ta question, la feuille n'est pas masquée mais seule ment protégée.

JP
Avatar
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
1 2