miniature d'une feuille dans une autre

[jeromeN95]

Bonsoir à tous,
voilà mon pb,
J'ai crée un petit programme de comptabilité avec 2 feuilles.

Sur l'une d'elle, lorsque je clique sur des cellules, celles-ci changent de couleurs.

Sur la feuille principale, j'ai besoin d'avoir sur un petit format, une "capture d'ecran" de cette page.
Or, j'arrive a le faire mais pas en dynamique.

Je suis pas trop doué en VBA mais ça va.

Si quelqu'un à ça dans ces archive....Je suis preneur.

Merci et bonne soirée à tous.🙂

 

[phlaurent55]

Re : miniature d'une feuille dans une autre

Bonjour Jerome,

voir fichier en pièce jointe sans macro

à+
Philippe

 

[jeromeN95]

Re : miniature d'une feuille dans une autre

Bonjour à tous,
merci pour cette magnifique réponse.
C'est nikel et rapide.

Par contre OK pour le lien Hypertexte, mais comment tu as fait pour crée la minature de la feuille 2 ou 3?
Car celle-ci est apparement contitué d'une multitude de rectangle.
Je n'arrive donc pas à recrée cette fonction pour mes besoins.


Merci.

 

[anthoYS]

Re : miniature d'une feuille dans une autre

Bonjour le fil,

Excellent phlaurent55 !

Cette idée fait penser à la nouvelle mouture de Windows (7), qui intuitivement fait apparaître la fenêtre. Pas seulement Seven, les nouvelles versions d'Opera (navigateur Internet) aussi le permettent (avec les onglets ouverts que l'on peut survoler en ayant un petit aperçu depuis l'onglet principal en cours)...

Mais comment procéder, il s'agit d'une capture d'une partie de la feuille de l'onglet concerné, qui s'actualise en temps réel ?

Car tout comme jeromeN95, je ne parviens pas à recréer cette alchimie.

Merci encore pour ce beau travail !

En attente d'une réponse ;

Bonne fin de journée.

 

[jeromeN95]

Re : miniature d'une feuille dans une autre

Salut, en faite, tout est dans la barre de formule.

Il y a le nom de l'onglet ex.: Feuille2!$A$1:$B$23
avec en plus le lien Hypertext pour pouvoir y aller.

C'été tout bete, mais fallai y pensé!!!

Merci encore à tous et sujet résolu.

 

[phlaurent55]

Re : miniature d'une feuille dans une autre

Re,

voir fichier joint avec explications

@ anthoYS

Mais comment procéder, il s'agit d'une capture d'une partie de la feuille de l'onglet concerné, qui s'actualise en temps réel ?

Effectivement , il s'agit d'une photo

à+
Philippe

 

[anthoYS]

Re : miniature d'une feuille dans une autre

Excellent ;

Merci donc à vous (l'auteur du sujet pour l'idée, jeromeN95) et à phlaurent55 pour la concrétisation de cette idée (en ayant apportée la solution par des "photos" de cellules determinées).

 

[phlaurent55]

Re : miniature d'une feuille dans une autre

Re,

Salut, en faite, tout est dans la barre de formule.

Il y a le nom de l'onglet ex.: Feuille2!$A$1:$B$23
avec en plus le lien Hypertext pour pouvoir y aller.

C'été tout bete, mais fallai y pensé!!!

@ Jérôme,
tu viens de me faire découvrir quelque chose que je ne connaissait même pas car j'utilise toujours l'icône "Appareil photo" et je ne me suis jamais aperçu qu'on retrouvais les données dans la barre de formule
par contre, pour le lien hypertexte c'est quand même moi qui l'ai mis en place

à+
Philippe

 

[jeromeN95]

Re : miniature d'une feuille dans une autre

lol, c'est quoi cette appareil photo???

Tu pourrait peut etre m'aider également pour un autre probleme:

C'est tout bête mais bon, je souhaite, lorsque je rempli la cellule Cx, inserer une nouvelle ligne en dessous qui reprend les mêmes format, formules, bordures, ... .
Voici mon code mais il ne me satifsait pas trop. :

Private Sub Worksheet_Change(ByVal Target As Range)
' teste si la cellule juste au dessus est remplie
If Range("premiereCelluleApresTableau").Offset(-1) <> "" Then
' ajoute une ligne - la ligne s'insère au dessus
Application.EnableEvents = False ' pour ne pas se mordre la queue
Range("premiereCelluleApresTableau").EntireRow.Insert xlShiftDown
Application.EnableEvents = True
End If

End Sub


Bien sur j'ai nomé une cellule premiereCelluleApresTableau. Sinon, erreur.

Merci à tous.
😀

 

[phlaurent55]

Re : miniature d'une feuille dans une autre

Re,

C'est tout bête mais bon, je souhaite, lorsque je rempli la cellule Cx, inserer une nouvelle ligne en dessous qui reprend les mêmes format, formules, bordures, ... .

ce que j'ai compris pour ta question et en voyant la macro:

tu veux insérer une ligne lorsque tu changes le contenu de la première cellule vide en colonne C
à quoi cela va-t'il servir si les autres cellules de cette ligne sont vides ( il n'est pas nécessaire d'ajouter une ligne à la suite des autres) il suffit de recopier le format des cellules qui se trouvent dans les lignes précédentes

.......................ou alors , je n'ai pas tout compris

je pense qu'il vaudrait mieux que tu joignes un fichier avec explications plus précises

à+
Philippe

 

[jeromeN95]

Re : miniature d'une feuille dans une autre

🙄Oui, c'est vrai quand on est dedans....

Je fait un petit programme qui permet de suivre l'évolution des entrer/sorties sur un site de stokage de véhicule en gros.

Mon souhait est de mettre l'heure dans une ligne et colone C.
Mais j'ai d'autre colonnes avec des formats de cellules (heure) et bordures.

Mon probleme c'est les formats de cellules....

Mon fichier et trop gros pour le mettre en normal donc je l'ai uploader, voici le lien FREE :

Free - Envoyez vos documents

Merci à toi, j'en ai pour la nuit lol.


P.S.: Simpa le jardin, et c'est quoi ces champignons??? c'est en bois?
C'est jolie, tu en vend???

 

[phlaurent55]

Re : miniature d'une feuille dans une autre

Re,

avec ce code à mettre dans la feuille "normanche" en lieu et place de celui qui s'y trouve

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derligne
If Not Intersect(Target, Range("C13:C280")) Is Nothing Then
    If Target.Value <> "" Then
        [A1].Select
       Exit Sub
    End If
    derligne = Range("C65535").End(xlUp).Row + 1
    If Target.Row > derligne Then
        Exit Sub
    End If
    Rows(derligne + 1).Select
    Selection.Copy
    Cells(derligne + 2, 1).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Cells(derligne, 3) = Now
End If
[A1].Select
End Sub

un double-clic sur la première cellule vide en colonne C mettra la date dans celle-ci
Pas de possibilité de revenir en arrière

à+
Philippe

P.S. tout mes objets tournés sont en bois

 

[jeromeN95]

Re : miniature d'une feuille dans une autre

Super merci, sauf que j'arrive pas à remettre l'heure dans la colone P.
Il s'agit de l'heure de sortie.






PS.:
Si tu pouvait également mettre la formule colone Q en vba car je n'y arrive pas...Mais c'est pas grave ça.

 

[phlaurent55]

Re : miniature d'une feuille dans une autre

Re,
ton fichier en retour

ATTENTION, ton fichier en téléchargement sur Free est super génial pour foutre la merde et j'ai du passer du temps pour remettre ma configuration Excel comme elle était avant. Tu aurais quand même pu prévenir ou le faire toi-même dans le BeforeClose

 

[jeromeN95]

Re : miniature d'une feuille dans une autre

Oki merci, c'est super.
En effet, le fichier sur lequel je travail est bien tripoté quand meme.
Je ne me suis pas rendu compte que l'ai modification apporté interagissait avec les autres feuilles excel mais aussi avec les autres excel.
Donc désoler de t'avoir mis le désordre...
Je le referai plus...Promi!😉