Code VBA pour retour à la dernière feuille active

D

de Rauglaudre

Guest

• 24 Septembre 2018

• #16

Mince, j'avoue que j'ai moins bien compris la philosophie du code. Notamment les couleurs.

Cette partie là ne fait pas partie du code si ?

Public LastActiveSheet As String, CurrentSheet As String

Si oui, tu peux m'expliquer un peu le principe ? Que j'arrive à l'intégrer à mon outil.

 

Vote positif 0 Vote négatif

D

de Rauglaudre

Guest

• 25 Septembre 2018

• #17

Mince... Le topic ne passionne plus les foules.. 😉

 

Vote positif 0 Vote négatif

D

de Rauglaudre

Guest

• 26 Septembre 2018

• #18

Je suis n'avré d'insister mais j'ai tester la formule et ça bug. Avant meme le controle des case. Mais je dois reconnaitre que je ne comprends pas bien le code.

Avez vous d'autres solutions?

 

Pièces jointes

• Test Prev et Coche.xlsm

  39.8 KB · Affichages: 12

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Septembre 2018

• #19

Bonjour de Rauglaudre, Claudy, vgendron, Modeste geedee,

Je prends le train en marche, voyez ce code dans ThisWorkbook :

Code:

Dim LastSheet As String 'mémorise la variable

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
LastSheet = Sh.Name
If Sh.Name <> "P1" Then Sh.Visible = xlSheetHidden
End Sub

Sub VersP()
If IsError(Application.Caller) Then Exit Sub 'sécurité
Dim o As Object
Set o = ActiveSheet.DrawingObjects(Application.Caller)
If TypeName(o) = "CheckBox" Then o.Value = False
With Sheets(Trim(Replace(o.Text, "Goto", "")))
    .Visible = xlSheetVisible
    .Activate
End With
End Sub

Sub Prec()
If LastSheet = "" Then Exit Sub
With Sheets(LastSheet)
    .Visible = xlSheetVisible
    .Activate
End With
End Sub

Les macros VersP ou Prec sont affectées aux boutons ou aux cases à cocher.

Fichier joint.

A+

 

Pièces jointes

• Test Prev et Coche(1).xlsm

  43.8 KB · Affichages: 19

Vote positif 0 Vote négatif

D

de Rauglaudre

Guest

• 27 Septembre 2018

• #20

Salut,

Merci pour ton retour. Je suis en train d'essayer de comprendre l'idée.

En revanche, quand je test, seule la case cochée ayant mené à la page de retour est effacée. Moi je souhaite tout effacer pour permettre à l'user de repatrir de 0 sur cette page (vu qu'il n'a qu'un choix vu que dès qu'il clic il passe à la page suivante).

Mon blocage était de ne pas pouvoir nommer les coches vu que dépendant de la coche précédente.

 

Vote positif 0 Vote négatif

D

de Rauglaudre

Guest

• 27 Septembre 2018

• #21

Et point subsidiaire : quand je rend visible P2, la case est d'office décochée.

En fait, mon souhait est un questionnaire de satisfaction avec des questions dépendantes des réponses précédentes. Selon les choix de l'utilisateur, certaines pages s'activent (et désactivent les précédentes). En revanche, si l'user souhaite revenir en arrière, j'ai envie qu'il puisse suivre le chemin exactement inverse (à lui de voir jusqu'où il veut revenir) et repartir sur des pages de choix vierges. En revanche, s'il ne revient pas, la coche doit rester comme ça, une fois arrivé chez moi, je visualise toute les pages et vois les choix effectués.

Garder les coches est important car dans certain cas, 2 chemins différents peuvent se retrouver sur une même question à mi-chemin.

Avec ma dernière trame, je ne suis pas loin mais pas tout à fait.

Question complémentaire (s'il fallait démontrer mon niveau) : quelle est la différence entre un modul et thisWorkbook?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Septembre 2018

• #22

Bonjour de Rauglaudre,

de Rauglaudre à dit:

En revanche, quand je test, seule la case cochée ayant mené à la page de retour est effacée. Moi je souhaite tout effacer pour permettre à l'user de repatrir de 0 sur cette page (vu qu'il n'a qu'un choix vu que dès qu'il clic il passe à la page suivante).

Cliquez pour agrandir...

Voyez ce fichier (2), il suffit de faire une boucle :

Code:

Sub VersP()
If IsError(Application.Caller) Then Exit Sub 'sécurité
Dim o As Object
For Each o In ActiveSheet.DrawingObjects
    If TypeName(o) = "CheckBox" Then o.Value = False
Next
With Sheets(Trim(Replace(ActiveSheet.DrawingObjects(Application.Caller).Text, "Goto", "")))
    .Visible = xlSheetVisible
    .Activate
End With
End Sub

Si l'utilisateur ne peut faire qu'un choix pourquoi ne pas utiliser des Cases d'option ?

A+

 

Pièces jointes

• Test Prev et Coche(2).xlsm

  44 KB · Affichages: 7

Vote positif 0 Vote négatif

D

de Rauglaudre

Guest

• 27 Septembre 2018

• #23

La première réponse qui me vienne, c'est que je connaissais pas 😉 Sinon, j'ai pas bien perçu la différence entre coche et puce. La coche était suffisante car après coche BIM! pas le choix, il passe à la age suivante. Le problème étant de revenir à la page précédente car décocher donne exactement le même BIM! passage à lae suivante...

 

Vote positif 0 Vote négatif

D

de Rauglaudre

Guest

• 27 Septembre 2018

• #24

Je comprends pas du tout le pricipe de ce code. Comment ça défini la page vu qu'aucune n'est cité? En fait, le nom de la page cible doit avoir le nom du choix proposé à l'utilisateur? (ex : si à la question "comment va?" il a le choix entre "plutôt bien" et "plutôt mal", les 3 pages cible possibles doivent s'appeler "plutôt bien" et "plutôt mal" ?

 

Vote positif 0 Vote négatif

D

de Rauglaudre

Guest

• 27 Septembre 2018

• #25

En fait, vu que j'ai avancé dans cette direction, l'idéal serait de rester sur le concepte de la page qui précédente qui laisse son nom en "A1" et qu'en cas de précédent, on va pointer sur la page par conséquent renseignée en "A1". et une fois sur cette page, décocher avec du format value = false mais sans nommer les checkbox spécifiquement ?

 

Vote positif 0 Vote négatif

D

de Rauglaudre

Guest

• 27 Septembre 2018

• #26

Vous voyez, ici, j'arrive à revenir sur la page précédente quelle qu'elle soit, j'arrive a effacer la coche mais je souhaite toute les effacer. J'y suis presque!

 

Pièces jointes

• Copie de Test Prev et Coche.xlsm

  39.8 KB · Affichages: 10
• Copie de Test Prev et Coche.xlsm

  39.8 KB · Affichages: 8

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 27 Septembre 2018

• #27

de Rauglaudre à dit:

En fait, vu que j'ai avancé dans cette direction, l'idéal serait de rester sur le concepte de la page qui précédente qui laisse son nom en "A1" et qu'en cas de précédent, on va pointer sur la page par conséquent renseignée en "A1". et une fois sur cette page, décocher avec du format value = false mais sans nommer les checkbox spécifiquement ?

Cliquez pour agrandir...

Sub P4_Bouton1_Cliquer()
NomToHide = ActiveSheet.Name
Previous = ActiveSheet.Range("A1")
Sheets(Previous).Visible = True
Sheets(Previous).Select
'une fois ici, à la place d'identifier "case à Cocher 1" j'aimerais pouvoir avoir
' "case à cocher toutes" ou un truc dans ce gout là
ActiveSheet.CheckBoxes.Value = False
End Sub


voir #15

 

Vote positif 0 Vote négatif

D

de Rauglaudre

Guest

• 28 Septembre 2018

• #28

Grand merci! Je ne comprends pas comment je suis passé à coté... Je mettais checkbox et non boxes...

Merci beaucoup!

 

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 2 Septembre 2019

• #29

Bonsoir vous connais comment vba faire un retour

Vous m’aidez a expliqué comme Excel Merci

 

Pièces jointes

• ALLEMAGNE.xlsm

  420.3 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Septembre 2019

• #30

Bonjour frederio,

https://www.excel-downloads.com/threads/vba-faire-un-retour.20035587/#post-20255984

A+

 

Vote positif 0 Vote négatif