Comment puis-je demander à Excel de retourner sur la dernière feuil où
j'étais.
Exemple : je met un bouton sur la feuil zaza et je souhaiterais qu'à chaque
fois que je clic sur ce bouton, il me ramène exactement où j'étais (cellule
et feuil) avant que j'aille sur la feuil zaza
Merci
manu
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Bonjour, Utilise la macro événementielle Workbook_SheetSelectionChange et stocke ta position dans une cellule. Le bouton te ramènera à la position stockée. Cordialement. Daniel
Bonjour, Comment puis-je demander à Excel de retourner sur la dernière feuil où j'étais. Exemple : je met un bouton sur la feuil zaza et je souhaiterais qu'à chaque fois que je clic sur ce bouton, il me ramène exactement où j'étais (cellule et feuil) avant que j'aille sur la feuil zaza Merci manu --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Bonjour,
Utilise la macro événementielle Workbook_SheetSelectionChange et stocke
ta position dans une cellule. Le bouton te ramènera à la position
stockée.
Cordialement.
Daniel
Bonjour,
Comment puis-je demander à Excel de retourner sur la dernière feuil
où j'étais.
Exemple : je met un bouton sur la feuil zaza et je souhaiterais qu'à
chaque fois que je clic sur ce bouton, il me ramène exactement où
j'étais (cellule et feuil) avant que j'aille sur la feuil zaza
Merci
manu
---
L'absence de virus dans ce courrier électronique a été vérifiée par
le logiciel antivirus Avast.
https://www.avast.com/antivirus
Bonjour, Utilise la macro événementielle Workbook_SheetSelectionChange et stocke ta position dans une cellule. Le bouton te ramènera à la position stockée. Cordialement. Daniel
Bonjour, Comment puis-je demander à Excel de retourner sur la dernière feuil où j'étais. Exemple : je met un bouton sur la feuil zaza et je souhaiterais qu'à chaque fois que je clic sur ce bouton, il me ramène exactement où j'étais (cellule et feuil) avant que j'aille sur la feuil zaza Merci manu --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
MichD
Bonjour, Copie le code suivant dans le Thisworkbook et attache la macro "Test" au bouton dans la feuille désirée. N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la feuille de ton application. 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) <> "FEUIL1" Then Set Rg = Target End If End Sub '------------------------------- Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub '------------------------------- MichD
Bonjour,
Copie le code suivant dans le Thisworkbook et attache la macro "Test"
au bouton dans la feuille désirée.
N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la
feuille de ton application.
'Déclaration de la variable dans le haut du module
Dim Rg As Range
'-------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If UCase(Sh.Name) <> "FEUIL1" Then
Set Rg = Target
End If
End Sub
'-------------------------------
Sub test()
If Not Rg Is Nothing Then
Application.Goto Rg, False
End If
End Sub
'-------------------------------
Bonjour, Copie le code suivant dans le Thisworkbook et attache la macro "Test" au bouton dans la feuille désirée. N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la feuille de ton application. 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) <> "FEUIL1" Then Set Rg = Target End If End Sub '------------------------------- Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub '------------------------------- MichD
Manu
Bonsoir, Je n'ai pas compris Daniel. Mich, J'ai mis cela dans Thisworkbook : 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As Range) If UCase(Sh.Name) <> "Feuil14" Then Set Rg = Target End If End Sub Puis cela dans la feuil14 (là ou il y aura le bouton) : Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub Et ca ne fonctionne pas, je dois créer quel bouton ? car quand je crée le bouton macro classique, il ne trouve pas test Manu "MichD" a écrit dans le message de groupe de discussion : nsdnkj$10h0$ Bonjour, Copie le code suivant dans le Thisworkbook et attache la macro "Test" au bouton dans la feuille désirée. N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la feuille de ton application. 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) <> "FEUIL1" Then Set Rg = Target End If End Sub '------------------------------- Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub '------------------------------- MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Bonsoir,
Je n'ai pas compris Daniel.
Mich,
J'ai mis cela dans Thisworkbook :
'Déclaration de la variable dans le haut du module
Dim Rg As Range
'-------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As
Range)
If UCase(Sh.Name) <> "Feuil14" Then
Set Rg = Target
End If
End Sub
Puis cela dans la feuil14 (là ou il y aura le bouton) :
Sub test()
If Not Rg Is Nothing Then
Application.Goto Rg, False
End If
End Sub
Et ca ne fonctionne pas, je dois créer quel bouton ? car quand je crée le
bouton macro classique, il ne trouve pas test
Manu
"MichD" a écrit dans le message de groupe de discussion :
nsdnkj$10h0$1@gioia.aioe.org...
Bonjour,
Copie le code suivant dans le Thisworkbook et attache la macro "Test"
au bouton dans la feuille désirée.
N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la
feuille de ton application.
'Déclaration de la variable dans le haut du module
Dim Rg As Range
'-------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If UCase(Sh.Name) <> "FEUIL1" Then
Set Rg = Target
End If
End Sub
'-------------------------------
Sub test()
If Not Rg Is Nothing Then
Application.Goto Rg, False
End If
End Sub
'-------------------------------
MichD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Bonsoir, Je n'ai pas compris Daniel. Mich, J'ai mis cela dans Thisworkbook : 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As Range) If UCase(Sh.Name) <> "Feuil14" Then Set Rg = Target End If End Sub Puis cela dans la feuil14 (là ou il y aura le bouton) : Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub Et ca ne fonctionne pas, je dois créer quel bouton ? car quand je crée le bouton macro classique, il ne trouve pas test Manu "MichD" a écrit dans le message de groupe de discussion : nsdnkj$10h0$ Bonjour, Copie le code suivant dans le Thisworkbook et attache la macro "Test" au bouton dans la feuille désirée. N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la feuille de ton application. 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) <> "FEUIL1" Then Set Rg = Target End If End Sub '------------------------------- Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub '------------------------------- MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Manu
J'ai trouvé pour mettre le bouton, puis affecter la macro Feuil14test Mais quand je clic dessus, il me dit objet requis "Manu" a écrit dans le message de groupe de discussion : nse276$1lcl$ Bonsoir, Je n'ai pas compris Daniel. Mich, J'ai mis cela dans Thisworkbook : 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As Range) If UCase(Sh.Name) <> "Feuil14" Then Set Rg = Target End If End Sub Puis cela dans la feuil14 (là ou il y aura le bouton) : Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub Et ca ne fonctionne pas, je dois créer quel bouton ? car quand je crée le bouton macro classique, il ne trouve pas test Manu "MichD" a écrit dans le message de groupe de discussion : nsdnkj$10h0$ Bonjour, Copie le code suivant dans le Thisworkbook et attache la macro "Test" au bouton dans la feuille désirée. N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la feuille de ton application. 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) <> "FEUIL1" Then Set Rg = Target End If End Sub '------------------------------- Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub '------------------------------- MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
J'ai trouvé pour mettre le bouton, puis affecter la macro Feuil14test
Mais quand je clic dessus, il me dit objet requis
"Manu" a écrit dans le message de groupe de discussion :
nse276$1lcl$1@gioia.aioe.org...
Bonsoir,
Je n'ai pas compris Daniel.
Mich,
J'ai mis cela dans Thisworkbook :
'Déclaration de la variable dans le haut du module
Dim Rg As Range
'-------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As
Range)
If UCase(Sh.Name) <> "Feuil14" Then
Set Rg = Target
End If
End Sub
Puis cela dans la feuil14 (là ou il y aura le bouton) :
Sub test()
If Not Rg Is Nothing Then
Application.Goto Rg, False
End If
End Sub
Et ca ne fonctionne pas, je dois créer quel bouton ? car quand je crée le
bouton macro classique, il ne trouve pas test
Manu
"MichD" a écrit dans le message de groupe de discussion :
nsdnkj$10h0$1@gioia.aioe.org...
Bonjour,
Copie le code suivant dans le Thisworkbook et attache la macro "Test"
au bouton dans la feuille désirée.
N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la
feuille de ton application.
'Déclaration de la variable dans le haut du module
Dim Rg As Range
'-------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If UCase(Sh.Name) <> "FEUIL1" Then
Set Rg = Target
End If
End Sub
'-------------------------------
Sub test()
If Not Rg Is Nothing Then
Application.Goto Rg, False
End If
End Sub
'-------------------------------
MichD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
https://www.avast.com/antivirus
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
J'ai trouvé pour mettre le bouton, puis affecter la macro Feuil14test Mais quand je clic dessus, il me dit objet requis "Manu" a écrit dans le message de groupe de discussion : nse276$1lcl$ Bonsoir, Je n'ai pas compris Daniel. Mich, J'ai mis cela dans Thisworkbook : 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As Range) If UCase(Sh.Name) <> "Feuil14" Then Set Rg = Target End If End Sub Puis cela dans la feuil14 (là ou il y aura le bouton) : Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub Et ca ne fonctionne pas, je dois créer quel bouton ? car quand je crée le bouton macro classique, il ne trouve pas test Manu "MichD" a écrit dans le message de groupe de discussion : nsdnkj$10h0$ Bonjour, Copie le code suivant dans le Thisworkbook et attache la macro "Test" au bouton dans la feuille désirée. N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la feuille de ton application. 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) <> "FEUIL1" Then Set Rg = Target End If End Sub '------------------------------- Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub '------------------------------- MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
isabelle
bonjour Manu, si il n'y a eu aucun changement d'onglet entre le moment de la mise en place des macro et l'exécution de la macro "test" la variable Rg = nothing isabelle Le 2016-09-27 à 11:24, Manu a écrit :
J'ai trouvé pour mettre le bouton, puis affecter la macro Feuil14test Mais quand je clic dessus, il me dit objet requis "Manu" a écrit dans le message de groupe de discussion : nse276$1lcl$ Bonsoir, Je n'ai pas compris Daniel. Mich, J'ai mis cela dans Thisworkbook : 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As Range) If UCase(Sh.Name) <> "Feuil14" Then Set Rg = Target End If End Sub Puis cela dans la feuil14 (là ou il y aura le bouton) : Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub Et ca ne fonctionne pas, je dois créer quel bouton ? car quand je crée le bouton macro classique, il ne trouve pas test Manu "MichD" a écrit dans le message de groupe de discussion : nsdnkj$10h0$ Bonjour, Copie le code suivant dans le Thisworkbook et attache la macro "Test" au bouton dans la feuille désirée. N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la feuille de ton application. 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) <> "FEUIL1" Then Set Rg = Target End If End Sub '------------------------------- Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub '------------------------------- MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
bonjour Manu,
si il n'y a eu aucun changement d'onglet entre le moment de la mise en place des
macro et l'exécution de la macro "test"
la variable Rg = nothing
isabelle
Le 2016-09-27 à 11:24, Manu a écrit :
J'ai trouvé pour mettre le bouton, puis affecter la macro Feuil14test
Mais quand je clic dessus, il me dit objet requis
"Manu" a écrit dans le message de groupe de discussion :
nse276$1lcl$1@gioia.aioe.org...
Bonsoir,
Je n'ai pas compris Daniel.
Mich,
J'ai mis cela dans Thisworkbook :
'Déclaration de la variable dans le haut du module
Dim Rg As Range
'-------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As
Range)
If UCase(Sh.Name) <> "Feuil14" Then
Set Rg = Target
End If
End Sub
Puis cela dans la feuil14 (là ou il y aura le bouton) :
Sub test()
If Not Rg Is Nothing Then
Application.Goto Rg, False
End If
End Sub
Et ca ne fonctionne pas, je dois créer quel bouton ? car quand je crée le
bouton macro classique, il ne trouve pas test
Manu
"MichD" a écrit dans le message de groupe de discussion :
nsdnkj$10h0$1@gioia.aioe.org...
Bonjour,
Copie le code suivant dans le Thisworkbook et attache la macro "Test"
au bouton dans la feuille désirée.
N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la
feuille de ton application.
'Déclaration de la variable dans le haut du module
Dim Rg As Range
'-------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If UCase(Sh.Name) <> "FEUIL1" Then
Set Rg = Target
End If
End Sub
'-------------------------------
Sub test()
If Not Rg Is Nothing Then
Application.Goto Rg, False
End If
End Sub
'-------------------------------
MichD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
https://www.avast.com/antivirus
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
https://www.avast.com/antivirus
bonjour Manu, si il n'y a eu aucun changement d'onglet entre le moment de la mise en place des macro et l'exécution de la macro "test" la variable Rg = nothing isabelle Le 2016-09-27 à 11:24, Manu a écrit :
J'ai trouvé pour mettre le bouton, puis affecter la macro Feuil14test Mais quand je clic dessus, il me dit objet requis "Manu" a écrit dans le message de groupe de discussion : nse276$1lcl$ Bonsoir, Je n'ai pas compris Daniel. Mich, J'ai mis cela dans Thisworkbook : 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As Range) If UCase(Sh.Name) <> "Feuil14" Then Set Rg = Target End If End Sub Puis cela dans la feuil14 (là ou il y aura le bouton) : Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub Et ca ne fonctionne pas, je dois créer quel bouton ? car quand je crée le bouton macro classique, il ne trouve pas test Manu "MichD" a écrit dans le message de groupe de discussion : nsdnkj$10h0$ Bonjour, Copie le code suivant dans le Thisworkbook et attache la macro "Test" au bouton dans la feuille désirée. N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la feuille de ton application. 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) <> "FEUIL1" Then Set Rg = Target End If End Sub '------------------------------- Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub '------------------------------- MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Manu
Mais je ne peux pas aller sur une autre feuille, dés que j'y vais, il me met erreur de compilation et me renvoie dans la macro :
'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As Range) If UCase(Sh.Name) <> "Feuil14" Then Set Rg = Target End If End Sub
En mettant en bleu la ligne : Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As Range) Et signalant : La déclaration de la procédure ne correspond pas à la description de l'evenement ou de la procedure de même nom "isabelle" a écrit dans le message de groupe de discussion : nse41e$1p3i$ bonjour Manu, si il n'y a eu aucun changement d'onglet entre le moment de la mise en place des macro et l'exécution de la macro "test" la variable Rg = nothing isabelle Le 2016-09-27 à 11:24, Manu a écrit :
J'ai trouvé pour mettre le bouton, puis affecter la macro Feuil14test Mais quand je clic dessus, il me dit objet requis "Manu" a écrit dans le message de groupe de discussion : nse276$1lcl$ Bonsoir, Je n'ai pas compris Daniel. Mich, J'ai mis cela dans Thisworkbook : 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As Range) If UCase(Sh.Name) <> "Feuil14" Then Set Rg = Target End If End Sub Puis cela dans la feuil14 (là ou il y aura le bouton) : Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub Et ca ne fonctionne pas, je dois créer quel bouton ? car quand je crée le bouton macro classique, il ne trouve pas test Manu "MichD" a écrit dans le message de groupe de discussion : nsdnkj$10h0$ Bonjour, Copie le code suivant dans le Thisworkbook et attache la macro "Test" au bouton dans la feuille désirée. N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la feuille de ton application. 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) <> "FEUIL1" Then Set Rg = Target End If End Sub '------------------------------- Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub '------------------------------- MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Mais je ne peux pas aller sur une autre feuille, dés que j'y vais, il me met
erreur de compilation et me renvoie dans la macro :
'Déclaration de la variable dans le haut du module
Dim Rg As Range
'-------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget
As
Range)
If UCase(Sh.Name) <> "Feuil14" Then
Set Rg = Target
End If
End Sub
En mettant en bleu la ligne :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As
Range)
Et signalant : La déclaration de la procédure ne correspond pas à la
description de l'evenement ou de la procedure de même nom
"isabelle" a écrit dans le message de groupe de discussion :
nse41e$1p3i$1@gioia.aioe.org...
bonjour Manu,
si il n'y a eu aucun changement d'onglet entre le moment de la mise en place
des
macro et l'exécution de la macro "test"
la variable Rg = nothing
isabelle
Le 2016-09-27 à 11:24, Manu a écrit :
J'ai trouvé pour mettre le bouton, puis affecter la macro Feuil14test
Mais quand je clic dessus, il me dit objet requis
"Manu" a écrit dans le message de groupe de discussion :
nse276$1lcl$1@gioia.aioe.org...
Bonsoir,
Je n'ai pas compris Daniel.
Mich,
J'ai mis cela dans Thisworkbook :
'Déclaration de la variable dans le haut du module
Dim Rg As Range
'-------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget
As
Range)
If UCase(Sh.Name) <> "Feuil14" Then
Set Rg = Target
End If
End Sub
Puis cela dans la feuil14 (là ou il y aura le bouton) :
Sub test()
If Not Rg Is Nothing Then
Application.Goto Rg, False
End If
End Sub
Et ca ne fonctionne pas, je dois créer quel bouton ? car quand je crée le
bouton macro classique, il ne trouve pas test
Manu
"MichD" a écrit dans le message de groupe de discussion :
nsdnkj$10h0$1@gioia.aioe.org...
Bonjour,
Copie le code suivant dans le Thisworkbook et attache la macro "Test"
au bouton dans la feuille désirée.
N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la
feuille de ton application.
'Déclaration de la variable dans le haut du module
Dim Rg As Range
'-------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If UCase(Sh.Name) <> "FEUIL1" Then
Set Rg = Target
End If
End Sub
'-------------------------------
Sub test()
If Not Rg Is Nothing Then
Application.Goto Rg, False
End If
End Sub
'-------------------------------
MichD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
https://www.avast.com/antivirus
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
https://www.avast.com/antivirus
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Mais je ne peux pas aller sur une autre feuille, dés que j'y vais, il me met erreur de compilation et me renvoie dans la macro :
'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As Range) If UCase(Sh.Name) <> "Feuil14" Then Set Rg = Target End If End Sub
En mettant en bleu la ligne : Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As Range) Et signalant : La déclaration de la procédure ne correspond pas à la description de l'evenement ou de la procedure de même nom "isabelle" a écrit dans le message de groupe de discussion : nse41e$1p3i$ bonjour Manu, si il n'y a eu aucun changement d'onglet entre le moment de la mise en place des macro et l'exécution de la macro "test" la variable Rg = nothing isabelle Le 2016-09-27 à 11:24, Manu a écrit :
J'ai trouvé pour mettre le bouton, puis affecter la macro Feuil14test Mais quand je clic dessus, il me dit objet requis "Manu" a écrit dans le message de groupe de discussion : nse276$1lcl$ Bonsoir, Je n'ai pas compris Daniel. Mich, J'ai mis cela dans Thisworkbook : 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByValTarget As Range) If UCase(Sh.Name) <> "Feuil14" Then Set Rg = Target End If End Sub Puis cela dans la feuil14 (là ou il y aura le bouton) : Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub Et ca ne fonctionne pas, je dois créer quel bouton ? car quand je crée le bouton macro classique, il ne trouve pas test Manu "MichD" a écrit dans le message de groupe de discussion : nsdnkj$10h0$ Bonjour, Copie le code suivant dans le Thisworkbook et attache la macro "Test" au bouton dans la feuille désirée. N'oublie pas d'adapter le nom de la feuille "FEUIL1" pour le nom de la feuille de ton application. 'Déclaration de la variable dans le haut du module Dim Rg As Range '------------------------------- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) <> "FEUIL1" Then Set Rg = Target End If End Sub '------------------------------- Sub test() If Not Rg Is Nothing Then Application.Goto Rg, False End If End Sub '------------------------------- MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
MichD
Fichier exemple ici : http://www.cjoint.com/c/FIBr6EYn5fi MichD
Fichier exemple ici : http://www.cjoint.com/c/FIBr6EYn5fi
Fichier exemple ici : http://www.cjoint.com/c/FIBr6EYn5fi MichD
Manu
Impossible de l'ouvrir, il me dis qu'il est endommagé. Peux-tu me le renvoyer. Merci MichD" a écrit dans le message de groupe de discussion : nsec1f$98o$ Fichier exemple ici : http://www.cjoint.com/c/FIBr6EYn5fi MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Impossible de l'ouvrir, il me dis qu'il est endommagé.
Peux-tu me le renvoyer.
Merci
MichD" a écrit dans le message de groupe de discussion :
nsec1f$98o$1@gioia.aioe.org...
Fichier exemple ici : http://www.cjoint.com/c/FIBr6EYn5fi
MichD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Impossible de l'ouvrir, il me dis qu'il est endommagé. Peux-tu me le renvoyer. Merci MichD" a écrit dans le message de groupe de discussion : nsec1f$98o$ Fichier exemple ici : http://www.cjoint.com/c/FIBr6EYn5fi MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Super ! J'ai compris mon erreur Merci beaucoup !!! Manu "MichD" a écrit dans le message de groupe de discussion : nseff1$fi4$ http://www.cjoint.com/c/FIBs5BF6mli --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Super !
J'ai compris mon erreur
Merci beaucoup !!!
Manu
"MichD" a écrit dans le message de groupe de discussion :
nseff1$fi4$1@gioia.aioe.org...
http://www.cjoint.com/c/FIBs5BF6mli
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Super ! J'ai compris mon erreur Merci beaucoup !!! Manu "MichD" a écrit dans le message de groupe de discussion : nseff1$fi4$ http://www.cjoint.com/c/FIBs5BF6mli --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus