Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des
stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir,
définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet
Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate
Set colonne_alcools = Range(bdd_boisson.Range("A8"),
bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne "bdd_boisson.Activate"
"La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du
module d'une autre feuille ???
Ce code fonctionne très bien dans un module standard.
Où se trouve le solution ?
La méthode range de l'objet _worksheet a échoué ;o)
jean-jacques
j
et avec : Set colonne_alcools bdd_boisson.Range(bdd_boisson.Range("A8"),bdd_boisson.Range("A1000").End(xlU p)) ?
"J-J" <yenapasacauseduspam> a écrit dans le message de news: #
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir, définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate Set colonne_alcools = Range(bdd_boisson.Range("A8"), bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne "bdd_boisson.Activate" "La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du module d'une autre feuille ??? Ce code fonctionne très bien dans un module standard. Où se trouve le solution ?
Merci d'avance pour vos réponses ;o)
jean-jacques
et avec :
Set colonne_alcools bdd_boisson.Range(bdd_boisson.Range("A8"),bdd_boisson.Range("A1000").End(xlU
p))
?
j@c
"J-J" <yenapasacauseduspam> a écrit dans le message de news:
#IDZdsUAEHA.392@TK2MSFTNGP12.phx.gbl...
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des
stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir,
définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet
Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate
Set colonne_alcools = Range(bdd_boisson.Range("A8"),
bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne "bdd_boisson.Activate"
"La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du
module d'une autre feuille ???
Ce code fonctionne très bien dans un module standard.
Où se trouve le solution ?
et avec : Set colonne_alcools bdd_boisson.Range(bdd_boisson.Range("A8"),bdd_boisson.Range("A1000").End(xlU p)) ?
"J-J" <yenapasacauseduspam> a écrit dans le message de news: #
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir, définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate Set colonne_alcools = Range(bdd_boisson.Range("A8"), bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne "bdd_boisson.Activate" "La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du module d'une autre feuille ??? Ce code fonctionne très bien dans un module standard. Où se trouve le solution ?
Merci d'avance pour vos réponses ;o)
jean-jacques
Alain CROS
Bonjour.
Pas sur de bien comprendre.
Private Sub Worksheet_Change(ByVal Target As Range) Dim colonne_alcools As Range Set colonne_alcools = Worksheets("bdd_boisson").Range("A8:A1000").End(xlDown) MsgBox colonne_alcools.Address(, , , True) End Sub
Alain CROS.
"J-J" <yenapasacauseduspam> a écrit dans le message de news: #
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir, définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate Set colonne_alcools = Range(bdd_boisson.Range("A8"), bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne "bdd_boisson.Activate" "La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du module d'une autre feuille ??? Ce code fonctionne très bien dans un module standard. Où se trouve le solution ?
Merci d'avance pour vos réponses ;o)
jean-jacques
Bonjour.
Pas sur de bien comprendre.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim colonne_alcools As Range
Set colonne_alcools = Worksheets("bdd_boisson").Range("A8:A1000").End(xlDown)
MsgBox colonne_alcools.Address(, , , True)
End Sub
Alain CROS.
"J-J" <yenapasacauseduspam> a écrit dans le message de news: #IDZdsUAEHA.392@TK2MSFTNGP12.phx.gbl...
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des
stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir,
définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet
Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate
Set colonne_alcools = Range(bdd_boisson.Range("A8"),
bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne "bdd_boisson.Activate"
"La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du
module d'une autre feuille ???
Ce code fonctionne très bien dans un module standard.
Où se trouve le solution ?
Private Sub Worksheet_Change(ByVal Target As Range) Dim colonne_alcools As Range Set colonne_alcools = Worksheets("bdd_boisson").Range("A8:A1000").End(xlDown) MsgBox colonne_alcools.Address(, , , True) End Sub
Alain CROS.
"J-J" <yenapasacauseduspam> a écrit dans le message de news: #
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir, définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate Set colonne_alcools = Range(bdd_boisson.Range("A8"), bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne "bdd_boisson.Activate" "La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du module d'une autre feuille ??? Ce code fonctionne très bien dans un module standard. Où se trouve le solution ?
Merci d'avance pour vos réponses ;o)
jean-jacques
J-J
Bonjour,
merci jac, ça fonctionne mieux comme ça :-). Ce qui me chiffone un peu, c'est qu'excel me laisse passer l'autre syntaxe à partir d'un module standard.
Merci encore,
Jean-Jacques
"" a écrit dans le message de news: 40463c8d$0$4653$
et avec : Set colonne_alcools > bdd_boisson.Range(bdd_boisson.Range("A8"),bdd_boisson.Range("A1000").End(xlU
p)) ?
"J-J" <yenapasacauseduspam> a écrit dans le message de news: #
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir, définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate Set colonne_alcools = Range(bdd_boisson.Range("A8"), bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne "bdd_boisson.Activate"
"La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du module d'une autre feuille ??? Ce code fonctionne très bien dans un module standard. Où se trouve le solution ?
Merci d'avance pour vos réponses ;o)
jean-jacques
Bonjour,
merci jac, ça fonctionne mieux comme ça :-).
Ce qui me chiffone un peu, c'est qu'excel me laisse passer l'autre syntaxe à
partir d'un module standard.
Merci encore,
Jean-Jacques
"j@c" <jacques.chaussard@noos.fr> a écrit dans le message de news:
40463c8d$0$4653$626a14ce@news.free.fr...
et avec :
Set colonne_alcools >
bdd_boisson.Range(bdd_boisson.Range("A8"),bdd_boisson.Range("A1000").End(xlU
p))
?
j@c
"J-J" <yenapasacauseduspam> a écrit dans le message de news:
#IDZdsUAEHA.392@TK2MSFTNGP12.phx.gbl...
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des
stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir,
définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet
Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate
Set colonne_alcools = Range(bdd_boisson.Range("A8"),
bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne
"bdd_boisson.Activate"
"La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du
module d'une autre feuille ???
Ce code fonctionne très bien dans un module standard.
Où se trouve le solution ?
merci jac, ça fonctionne mieux comme ça :-). Ce qui me chiffone un peu, c'est qu'excel me laisse passer l'autre syntaxe à partir d'un module standard.
Merci encore,
Jean-Jacques
"" a écrit dans le message de news: 40463c8d$0$4653$
et avec : Set colonne_alcools > bdd_boisson.Range(bdd_boisson.Range("A8"),bdd_boisson.Range("A1000").End(xlU
p)) ?
"J-J" <yenapasacauseduspam> a écrit dans le message de news: #
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir, définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate Set colonne_alcools = Range(bdd_boisson.Range("A8"), bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne "bdd_boisson.Activate"
"La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du module d'une autre feuille ??? Ce code fonctionne très bien dans un module standard. Où se trouve le solution ?
Merci d'avance pour vos réponses ;o)
jean-jacques
J-J
Salut, Merci Alain, mais ça ne me donne pas le résultat escompté.
bonne journée :-) Jean-Jacques
"Alain CROS" a écrit dans le message de news: O#
Bonjour.
Pas sur de bien comprendre.
Private Sub Worksheet_Change(ByVal Target As Range) Dim colonne_alcools As Range Set colonne_alcools Worksheets("bdd_boisson").Range("A8:A1000").End(xlDown) MsgBox colonne_alcools.Address(, , , True) End Sub
Alain CROS.
"J-J" <yenapasacauseduspam> a écrit dans le message de news: #
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir, définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate Set colonne_alcools = Range(bdd_boisson.Range("A8"), bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne "bdd_boisson.Activate"
"La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du module d'une autre feuille ??? Ce code fonctionne très bien dans un module standard. Où se trouve le solution ?
Merci d'avance pour vos réponses ;o)
jean-jacques
Salut,
Merci Alain, mais ça ne me donne pas le résultat escompté.
bonne journée
:-)
Jean-Jacques
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
O#IdA3VAEHA.1420@TK2MSFTNGP11.phx.gbl...
Bonjour.
Pas sur de bien comprendre.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim colonne_alcools As Range
Set colonne_alcools Worksheets("bdd_boisson").Range("A8:A1000").End(xlDown)
MsgBox colonne_alcools.Address(, , , True)
End Sub
Alain CROS.
"J-J" <yenapasacauseduspam> a écrit dans le message de news:
#IDZdsUAEHA.392@TK2MSFTNGP12.phx.gbl...
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des
stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir,
définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet
Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate
Set colonne_alcools = Range(bdd_boisson.Range("A8"),
bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne
"bdd_boisson.Activate"
"La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du
module d'une autre feuille ???
Ce code fonctionne très bien dans un module standard.
Où se trouve le solution ?
Salut, Merci Alain, mais ça ne me donne pas le résultat escompté.
bonne journée :-) Jean-Jacques
"Alain CROS" a écrit dans le message de news: O#
Bonjour.
Pas sur de bien comprendre.
Private Sub Worksheet_Change(ByVal Target As Range) Dim colonne_alcools As Range Set colonne_alcools Worksheets("bdd_boisson").Range("A8:A1000").End(xlDown) MsgBox colonne_alcools.Address(, , , True) End Sub
Alain CROS.
"J-J" <yenapasacauseduspam> a écrit dans le message de news: #
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir, définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate Set colonne_alcools = Range(bdd_boisson.Range("A8"), bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne "bdd_boisson.Activate"
"La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du module d'une autre feuille ??? Ce code fonctionne très bien dans un module standard. Où se trouve le solution ?
Merci d'avance pour vos réponses ;o)
jean-jacques
j
quand tu est dans un module de page, si tu ne précise pas, tu fais toujours référence aux plages de la page en question dans un module simple, tu fais référence à la page active
"J-J" <yenapasacauseduspam> a écrit dans le message de news:
Bonjour,
merci jac, ça fonctionne mieux comme ça :-). Ce qui me chiffone un peu, c'est qu'excel me laisse passer l'autre syntaxe à
partir d'un module standard.
Merci encore,
Jean-Jacques
"" a écrit dans le message de news: 40463c8d$0$4653$
"J-J" <yenapasacauseduspam> a écrit dans le message de news: #
Bonsoir à tous,
Lorsque je me trouve sur une feuille nommée "Visu", (Visualisation des stocks), je n'arrive pas à faire fonctionner le code suivant, à savoir,
définir une zone de cellules sur une autre feuille nommée "bdd_boisson".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bdd_boisson As Worksheet Dim colonne_alcools As Range
Set bdd_boisson = ActiveWorkbook.Sheets("bdd_boisson")
' bdd_boisson.Activate Set colonne_alcools = Range(bdd_boisson.Range("A8"), bdd_boisson.Range("A1000").End(xlUp))
end sub
Ceci me provoque une erreur 1004 avec/sans la ligne "bdd_boisson.Activate"
"La méthode de l'objet range échoué"
Ne puis-je pas définir une zone de cellules sur une feuille à partir du
module d'une autre feuille ??? Ce code fonctionne très bien dans un module standard. Où se trouve le solution ?
Merci d'avance pour vos réponses ;o)
jean-jacques
quand tu est dans un module de page, si tu ne précise pas, tu fais toujours
référence aux plages de la page en question
dans un module simple, tu fais référence à la page active
"J-J" <yenapasacauseduspam> a écrit dans le message de news:
efE4MYbAEHA.712@tk2msftngp13.phx.gbl...
Bonjour,
merci jac, ça fonctionne mieux comme ça :-).
Ce qui me chiffone un peu, c'est qu'excel me laisse passer l'autre syntaxe
à
partir d'un module standard.
Merci encore,
Jean-Jacques
"j@c" <jacques.chaussard@noos.fr> a écrit dans le message de news:
40463c8d$0$4653$626a14ce@news.free.fr...
quand tu est dans un module de page, si tu ne précise pas, tu fais toujours référence aux plages de la page en question dans un module simple, tu fais référence à la page active
"J-J" <yenapasacauseduspam> a écrit dans le message de news:
Bonjour,
merci jac, ça fonctionne mieux comme ça :-). Ce qui me chiffone un peu, c'est qu'excel me laisse passer l'autre syntaxe à
partir d'un module standard.
Merci encore,
Jean-Jacques
"" a écrit dans le message de news: 40463c8d$0$4653$
