affichage d'un tableau par navigation entre feuilles

[Ilino]

Forum Bonjour,
ci joint mon souci de jour,
J’ai deux feuilles , dans la première feuille j’ai un tableau (AY23-BE2064) par défaut il doit etre masqué , dans la 2eme feuille j’ai un tableau colonne j11(date) je souhaite afficher le tableau de la 1ere feuille (AY23-BE2064) une fois je suis sur la 2eme feuille avant de saisir une date dans la colonne J de la 2eme feuille, et si je reviens a la 1ere feuille il se masque automatiquement et ainsi de suite a chaque navigation entre ces deus feuille .
GRAZIE
A+

 

[Ilino]

Re : affichage d'un tableau par navigation entre feuilles

Bobjour Forum
edit : le tableau s'affiche automatiquement dans la feuille 1 quand la feuille 2 est active
c-a-d si la feuille Facturation est active alors afficher le tableau dans la feuille FGP 2014


correction : Feuille 1 = FGP 2014
feuille 2 = Facturation
Grazie

 

[Ilino]

Re : affichage d'un tableau par navigation entre feuilles

Bonjour Forum
puis je avoir votre aide?
grazie

 

[job75]

Re : affichage d'un tableau par navigation entre feuilles

Bonjour Ilino,

si la feuille Facturation est active alors afficher le tableau dans la feuille FGP 2014

A priori quand la feuille "Facturation" est active ce qui se passe dans l'autre feuille n'a aucun intérêt 😕

A+

 

[Ilino]

Re : affichage d'un tableau par navigation entre feuilles

A priori quand la feuille "Facturation" est active ce qui se passe dans l'autre feuille n'a aucun intérêt 😕

A+

Bonjour JOB
MERCI d'avoir repondu a mon souci.
c'est
l'affichage du tableau dans la feuille "FGP 2014" est important si la feuille "Facturation" est active..
parceque si je saisie une date dans le tableau de la feuille"Facturation" et le tableau (model) de la feuille "FGP 2014" est masqué mon macro ne fonctionne pas .. voila
et merci encore une fois

 

[Ilino]

Re : affichage d'un tableau par navigation entre feuilles

Bonjour a tous, job,
je ne sais pas est ce que mon souci maintenant est clair???😕
a+

 

[Ilino]

Re : affichage d'un tableau par navigation entre feuilles

Re
puis je avoir vos commentaires
grazie

 

[Ilino]

Re : affichage d'un tableau par navigation entre feuilles

Forum bonsoir
puis je avoir votre avis si mon souci est clair
grazie

 

[job75]

Re : affichage d'un tableau par navigation entre feuilles

Bonjour Ilino, le forum,

Si je comprends bien tout ce que tu veux c'est créer un nouveau tableau pour chaque nouvelle date.

Dans ce cas ta macro est inutilement compliquée, vois celle-ci :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, c As Range
Set r = Intersect(Target, Range("J11:J" & Rows.Count), Me.UsedRange)
If r Is Nothing Then Exit Sub
With Feuil2 'Codename de la feuille FGP 2014
  .Columns.Hidden = False 'affiche tout
  For Each r In r 'en cas d'entrées multiples
    If IsDate(r) Then
      If IsError(Application.Match(r, .Rows(28), 0)) Then
        Set c = .Cells(27, .Columns.Count).End(xlToLeft)(2, 3)
        .[AX:BD].Copy c.EntireColumn
        c.EntireColumn.Resize(26, 7).Clear
        c = r 'entrée de la date
      End If
    End If
  Next
  .[AX:BD].EntireColumn.Hidden = True 'masque
End With
End Sub

Le tableau modèle est affiché juste le temps de copier les colonnes.

Fichier joint.

A+

 

[Ilino]

Re : affichage d'un tableau par navigation entre feuilles

Bonjour Maitre, le forum
Merci infinement pour ce code (un code tres reduit)
est ce que je peux avoir qlq commentaore explicatifs de ce code pour que je peux l'adapter a mon application
GRAZIE

 

[job75]

Re : affichage d'un tableau par navigation entre feuilles

Re,

Le code est très simple et l'adaptation très facile si l'on change la disposition du tableau modèle.

A+

 

[Ilino]

Re : affichage d'un tableau par navigation entre feuilles

Re oui il est tres simple mais juste explication de cette Syntaxe

Set c = .Cells(27, .Columns.Count).[U][/U][B][/B][COLOR="#FF0000"]End(xlToLeft)(2, 3)[/COLOR]

grazie

 

[Ilino]

Re : affichage d'un tableau par navigation entre feuilles

Re
sorry MAITRE? J'ai trouvé un petit souci
dans l'exemple ci joint : dans la feuille FGP 2014 j'ai des colonnes que je l'ai masqué ( de colonne C a L)
pourquoi elles s'affichent lors de l'execution du ton code ?
grazie Maitre

 

[job75]

Re : affichage d'un tableau par navigation entre feuilles

Re,

Ce code recherche la dernière cellule non vide de la ligne 27 et la décale de 2 lignes vers le bas et 3 colonnes vers la droite en comptant la ligne et la colonne de départ.

On détermine ainsi la cellule où doit être placée la date.

A+

 

[job75]

Re : affichage d'un tableau par navigation entre feuilles

dans l'exemple ci joint : dans la feuille FGP 2014 j'ai des colonnes que je l'ai masqué ( de colonne C a L)
pourquoi elles s'affichent lors de l'execution du ton code ?

Un peu casse-bonbons Ilino 🙄

Alors remplace :

.Columns.Hidden = False 'affiche tout

par :

.[AX:BD].EntireColumn.Hidden = False 'affiche le tableau modèle

A+