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

L

letroubadour

XLDnaute Occasionnel

• 4 Décembre 2016

• #2

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

 

Pièces jointes

• verif B - Copie.xlsm

  223.7 KB · Affichages: 51

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 4 Décembre 2016

• #3

Bonjour,

un essai macro :

VB:

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+

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 4 Décembre 2016

• #4

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

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 4 Décembre 2016

• #5

re,

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

A+

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 4 Décembre 2016

• #6

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

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 5 Décembre 2016

• #7

Re,

letroubadour à dit:

comment lier les 2 premières ligne au reste,

Cliquez pour agrandir...

Pas sûr de comprendre le 'lien' .

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

A+

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 11 Décembre 2016

• #8

bonjour a tous

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

Le troubadour

 

Vote positif 0 Vote négatif