XL 2010 copier une image et une cellule et la coller dans une autre feuille

[letroubadour]

bonjour

En feuille 1 je tape un N° de question et celle si s'affiche sous la forme de 2 questions INT et EXT.
Je cherche à faire la même chose avec la feuille 3 pour les réponses , les réponses étant en feuille 4 et je souhaite qu'il y ai la réponse écrite avec l'image associée sur la feuille 3.

merci
le troubadour

 

[letroubadour]

Bonsoir
si c'est pas possible , j'ai une autre solution, j'ai supprimer la feuille 4 et 3. Les réponses sont centralisées en feuille 2 avec les questions.
Lors de l'appui sur le bouton "questions" ca pourrait rechercher la réponse correspondante et la sélectionner en feuille 2

merci

le troubadour

 

[Paf]

Bonjour,

un essai macro :

Sub Réponse()
With Sheets("Feuil2")
    Set ok = .Range("A3:A204").Find(Range("H5") & "INT", , LookIn:=xlValues)
    If Not ok Is Nothing Then
        .Activate
        Application.Goto .Range("A" & ok.Row), scroll:=True
        .Range("A" & ok.Row & ":H" & ok.Row + 1).Select
    Else
        MsgBox " réponse non  trouvée"
    End If
End With
End Sub

A+

 

[letroubadour]

bonjour PAF

merci pour ton aide, y a-t-il possibilité de faire suivre le bouton "retour question" sur la zone de recherche pour éviter de remonter en haut de feuille ?

merci encore

le troubadour

 

[Paf]

re,

une solution pourrait consister à sélectionner A2 en feuil2, puis figer les volets. La ligne de titres et le bouton resteraient visibles .

A+

 

[letroubadour]

c'est nickel je n'y avait pas pensé.
une autre chose , dans la macro suivante comment lier les 2 premières ligne au reste, en fait je veux effacer le compteur H5 avant de mettre en plein écran

Private Sub Workbook_Open()

If Len(TB) <= 1 Then TB = vbNullString: Exit Sub
TB = Mid(TB, 1, Len(TB) - 1)

Application.DisplayFullScreen = True
' Masquer le quadrillage
ActiveWindow.DisplayGridlines = False
' Masquer les en-têtes
ActiveWindow.DisplayHeadings = False
' Masquer les barres de défilement
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
' Masquer les onglets de classeur
ActiveWindow.DisplayWorkbookTabs = False
End Sub

merci

Le troubadour

 

[Paf]

Re,

comment lier les 2 premières ligne au reste,

Pas sûr de comprendre le 'lien' .

Pour effacer H5 de la feuille Feuil1:
Worksheets("Feuil1").Range("H5").ClearContents

A+

 

[letroubadour]

bonjour a tous

Merci PAF pour ta réponse et pour ton aide, tout semble fonctionner correctement

Le troubadour