Sycroniser des feuilles

[Le double cheese]

Bonjour à tous,

J'ai un classeur excel qui regroupe 2 planning de transporteurs différents. (des navettes entre 3 sites)
J'ai regroupé ces 2 planning en 1 seul afin de pouvoir savoir ou et quand chaque camion arrive à un site. (grace aux filtres)

J'aimerais pouvoir faire une modification dans un des planning et qui modifierai automatiquement sur le planning regroupé.

Doc ci-joint.

(j'ai déja essayé de trouver des réponses dans les anciens post)

Merci de m'aider.

 

[Dranreb]

Re : Sycroniser des feuilles

Bonjour
Savez vous optimiser une macro engendrée par l'enregistreur ?
Sinon on vous y aidera ! Réfléchissez: Les manœuvres obtenant ce résultat sont assez simples
P.S. Cela dit, il y a une inversion dans votre exemple entre Machin et Bidul.
À +

 

[JCGL]

Re : Sycroniser des feuilles

Bonjour à tous,
Salut Bernard,

Un essai par formule et MeFC :

=RECHERCHEV($A3;Machin!$A:$G;COLONNE();0)&" "&RECHERCHEV($A3;Bidul!$A:$G;COLONNE();0)

A + à tous

 

[Le double cheese]

Re : Sycroniser des feuilles

Bonjour Dranreb,

Non malheureusement, je ne suis pas encore assez connaisseur des macro pour les modifiers.
Il me faudrait effectivement de l'aide.

 

[Le double cheese]

Re : Sycroniser des feuilles

Merci JCGL pour cette solution, je vais passer un peu de temps dessus pour voire si cela me permet de faire toutes les modification que je souhaite, et voire si je peut l'adapter à mon tableau original.

ps: ce tableau n'est en réalité qu'une partie de mon tableau original qui comporte 6 transporteurs et énormément plus de crénaux de chargement et déchargement.

 

[JCGL]

Re : Sycroniser des feuilles

Bonjour à tous,

Mon message manque d'explications...

Il n'est pas nécessaire de mettre tous les horaires mais des créneaux (dans le fichier il est de 30 minutes mais cela peut se modifier aisément).

Le nombre de six transporteurs n'est pas un problème pour la formule

A + à tous

 

[Dranreb]

Re : Sycroniser des feuilles

je ne suis pas encore assez connaisseur des macro pour les modifier

Alors mettez ça dans le module Feuil1 (Regroupe):

Option Explicit

Private Sub Worksheet_Activate()
Dim Cible As Range, N As Long
Application.ScreenUpdating = False
Me.[3:65536].Delete
Set Cible = Me.[A3]
For N = 2 To Worksheets.Count
   With Worksheets(N): .Range("A3:H" & .[A65536].End(xlUp).Row).Copy: End With
   Cible.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   Cible.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   Set Cible = Cible.Offset(Selection.Rows.Count)
   Next N
Me.[A3:H3].Resize(Cible.Row - 3).Sort Key1:=Me.[B3], Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Me.[A1].Select
End Sub

À +

Bonjour JCGL

 

[Le double cheese]

Re : Sycroniser des feuilles

J'ai mis le code dans le module de la feuille 1, mais faut-il l'activer ensuite ?
Car après avoir mis le code, lorsque je fait une modification sur un planning, la modification ne s'effectue pas sur le planning regroupé. (Je suis vraiment débutant en VBA)

Cela-dit, la solution de JCGL me convient.

Merci énormément pour votre aide.

PS: je vais tenter votre solution VBA également et comparer les 2 solutions (ça me fera de l'entrainement)

 

[Dranreb]

Re : Sycroniser des feuilles

Normalement il n'y a rien de plus à faire, à moins que le niveau de sécurité des macros soit positionné trop draconien pour pouvoir exécuter quoi que ce soit, si vous n'avez jamais exécuté de macro.
À +

 

[Le double cheese]

Re : Sycroniser des feuilles

Ce doit probablement être le niveau de sécurité, car je suis sur un ordinateur ne m'appartenant pas.

Et JCGL, si vous êtes encore la, lorsque j'adapte la formule à mon tableau original, il y a un décalage de 1 colonne, et la ou il la cellule devrait être vide, il y à des 0.

C'est pas grand chose mais je ne sait pas pourquoi cette erreur se produit.

Je met la première ligne de mon tableau en pièce jointe.

 

[JCGL]

Re : Sycroniser des feuilles

Bonjour à tous,

la fonction Colonne() placée en colonne C retourne 3, en colonne D retourne 4, en colonne A retourne 1.....
Dans ton cas précis il faut utiliser COLONNE()-1 parce que tu démarres ta matrice en B.

=RECHERCHEV($B4;'Transporteur H'!$B:$R;COLONNE()-1;0)

A + à tous

 

[Le double cheese]

Re : Sycroniser des feuilles

MERCI ! Je n'avait plus pensé que l'on pouvait faire cette manipulation.

Il reste un détail: la cellule ne prend pas la couleur jaune. Mais ce n'est pas un problème je pense pouvoir trouver une solution.

 

[JCGL]

Re : Sycroniser des feuilles

Bonjour à tous,

Essaye avec une MeFC :



A + à tous

 

[Dranreb]

Re : Sycroniser des feuilles

Bonjour.

Ce doit probablement être le niveau de sécurité, car je suis sur un ordinateur ne m'appartenant pas.

Comment ça "probablement" ? Ç'est ça ou pas ? Qu'est ce qui est coché menus Outils, Macros, Sécurité… ?
À +

 

[Le double cheese]

Re : Sycroniser des feuilles

Bonjour

Je suis en protection élevée donc effectivement c'est la raison de la non-execution du macro. Mais je ne préfere pas modifier ces paramètre sachant que c'est l'ordinateur de mon travail. Il faudra que j'essay chez moi sur mon ordinateur personel.

Et effectivement je comptais utiliser une MEFC pour ceci.