recuperer description d'une autre feuille

J

johnshark

Guest

• 3 Janvier 2009

• #2

Re : recuperer description d'une autre feuille

Pardon j'ai oublié, voici un extrait de mon questionnaire...

 

Pièces jointes

• questionnaire master finale.xls

  29.5 KB · Affichages: 55
• questionnaire master finale.xls

  29.5 KB · Affichages: 56
• questionnaire master finale.xls

  29.5 KB · Affichages: 58

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 3 Janvier 2009

• #3

Re : recuperer description d'une autre feuille

Bonjour,
Avec un fichier exemple allégé, il sera plus aisé de répondre
A+
kjin

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Janvier 2009

• #4

Re : recuperer description d'une autre feuille

Bonjour Johnshark, Kjin

pas sur d'avoir tout compris, mais peut être en insérant un commentaire dans la cellule.

Click droit dans la cellule => insérer un commentaire, tu mets ton texte, click droit à nouveau dans la cellule => masquer le commentaire. L'info apparaitra au passage de la souris. A voir si tu peux utiliser cette méthode...

bon après midi.
@+

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 3 Janvier 2009

• #5

Re : recuperer description d'une autre feuille

Bonjour johnshark, kjin, Pierrot,

Avec Données/Validation et onglet Message de saisie, tu peux mettre un titre (en référence à la cellule) et/ou un texte explicatif de ce qu'il faut faire.

Simple d'emploi.

Bon après-midi

Jean-Pierre

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Janvier 2009

• #6

Re : recuperer description d'une autre feuille

Bonjour à tous,

Un essai avec code de @Thierry.
Il faut impérativement que la liste des commentaires soit identique au Questionnaire (ligne équivalente)

Un clique sur le GO et les commentaires apparaissent

A+

 

Pièces jointes

• JC Questionnaire Master Finale.zip

  14.5 KB · Affichages: 23

Vote positif 0 Vote négatif

J

johnshark

Guest

• 3 Janvier 2009

• #7

Re : recuperer description d'une autre feuille

Bonjour à tous,

et avant tout merci pour toutes vos idées. Je crois que je me suis mal expliqué au sujet de la box, mais le code de @Thierry est parfait et ce sera certainement moins compliqué.

Par contre en ajoutant un code est-il possible de changer de feuille et d'aller à la suivante quand on appuie sur go? Ou par un autre système?

merci encore pour votre aide

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Janvier 2009

• #8

Re : recuperer description d'une autre feuille

Bonjour à tous,

Peux-tu en dire plus ?

A+ à tous

 

Vote positif 0 Vote négatif

J

johnshark

Guest

• 4 Janvier 2009

• #9

Re : recuperer description d'une autre feuille

Bonjour,

ci-joint un exemple.

Je souhaiterais mettre une page d'introduction sur une première feuille (une partie sur le doc joint) avec le bouton en bas de page.

Appuyer sur le bouton permettrait d'activer les commentaires, mais aussi d'aller à la feuille 2 où se trouve la première série de question (on peut imaginer que le bouton est bloqué tant qu' une réponse n'a pas été donnée à chaque ligne).
Même principe à la fin de la feuille 2 pour aller à la feuille 4.

Mon objectif est de pouvoir masquer les feuilles et que l'utilisateur navigue de grilles en grilles, en ne se souciant que de répondre aux questions.

Bonne journée

 

Pièces jointes

• JC Questionnaire Master Finale.xls

  48.5 KB · Affichages: 70

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Janvier 2009

• #10

Re : recuperer description d'une autre feuille

Bonjour à tous,

Un essai avec une successions de clique sur le GO

A+

 

Pièces jointes

• JC Questionnaire.zip

  25.7 KB · Affichages: 24

Vote positif 0 Vote négatif

J

johnshark

Guest

• 14 Janvier 2009

• #11

Re : recuperer description d'une autre feuille

Bonjour le forum,
tout marche très bien et le macro est parfait, mais quand j'essaie de le modifier pour qu'il s'adapte aux autres feuilles plus rien ne marche :
avec la feuille intitulée "biomeca" cela marche très bien, mais j'ai d'autres feuilles avec d'autres intitulés ("bioener", "bioaff", et "bioinf") et quand j'essaie en me contentant de remplacer biomeca par les nouveaux intitulés cela ne marche pas (j'ai renommé la macro feuille 2 pour la nouvelle feuille).
Quelqu'un pourrait m'expliquer ce qui cloche svp ? 😱
merci d'avance

 

Vote positif 0 Vote négatif

J

johnshark

Guest

• 14 Janvier 2009

• #12

Re : recuperer description d'une autre feuille

rebonjour le forum,

en fait j'ai réussi... désolé. Je souhaiterais savoir si il existe un code pour revenir en arrière (cas où la personne oublie de remplir une case et clique malencontreusement sur "go")
Un grand merci encore à tous

 

Vote positif 0 Vote négatif

J

johnshark

Guest

• 14 Janvier 2009

• #13

Re : recuperer description d'une autre feuille

😕 REre bonjour le forum,

j'arrive à la dernière feuille du questionnaire et là je cale, plus rien ne se passe, la macro doit présenter une erreur mais je ne vois pas où (surtout qu'elle fonctionne pour la page précédante et que j'ai juste corrigé le nom des feuilles...)

Merci pour votre aide

 

Vote positif 0 Vote négatif

J

johnshark

Guest

• 14 Janvier 2009

• #14

Re : recuperer description d'une autre feuille

Pardon, voici un exemple

 

Pièces jointes

• Classeur1.xls

  46 KB · Affichages: 51
• Classeur1.xls

  46 KB · Affichages: 64
• Classeur1.xls

  46 KB · Affichages: 58

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 14 Janvier 2009

• #15

Re : recuperer description d'une autre feuille

Bonjour à tous,

Tu avais oublié de mettre l'appel du code à l'activation de la feuille :

Code:

Private Sub Worksheet_Activate()
Call Commentaires_Bioinf
End Sub

Ton code s'appelle 'Commentaires', il faut ajouter un autre nom pour s'y retrouver si tu as plusieurs feuilles
Le code de 'Commentaires' pointait sur la colonne B (qui contient les cases à cocher). Il faut pointer sur la colonne A

Code:

Sub Commentaires_Bioinf() 'JCGL d'après @Thierry sur XLD
Dim i%
    
Sheets("bioinf").Select
    For i = 1 To Range("A65535").End(xlUp).Row
        If Range("A" & i).Value <> "" Then
                With Range("A" & i)
                    .ClearComments
                    .AddComment
                    .Comment.Visible = False
                    On Error Resume Next
                    .Comment.Text Text:=Sheets("def bioinf").Range("B" & i).Value
                 With Range("B" & i).Comment.Shape
                    .TextFrame.AutoSize = True
                    .Fill.ForeColor.RGB = RGB(250, 200, 150)
                    .Fill.Transparency = 0
                  With .OLEFormat.Object
                  With .Font
                    .Name = "Tahoma"
                    .Size = 10
                    .ColorIndex = 47
                    .Bold = True 'False
                  End With
                  End With
                  End With
                End With
        Else
            Range("A" & i).ClearComments
        End If
    Next i
End Sub

A+ à tous

 

Vote positif 0 Vote négatif