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