Recherche et mise à jour

[Atiom]

Bonjour le forum

Je souhaiterait que lorsque on change la valeur d’une Feuille une mise à jour ce fasse automatiquement sur certaines conditions.
( Je suppose que le VBA est le plus approprié )

Je mets un fichier joint pour une meilleure compréhension de ma demande.

Toute aide est bien venue.

 

[Monique]

Re : Recherche et mise à jour

Bonjour,

Par formules

Feuille "Base" : 1 ligne vide au-dessus du tableau
Dans les 3 feuilles, en A1 : le nom de la feuille (par formule)
Colonne A de chacune des 3 feuilles :
formule matricielle, à valider par ctrl, maj et entrée
Les autres cellules des 3 feuilles :
Index(Tablo ; N° de ligne : N° de colonne)

Plages nommées par formule (Insertion - Nom - Définir)

 

[Cousinhub]

Re : Recherche et mise à jour

Bonsoir,

Bonsoir, Monique

Par macro (essaie ce code : )

Sub Macro1()
Dim DerLig As Long, MesTypes As Object, Cel As Range
Set MesTypes = CreateObject("Scripting.Dictionary")
With Sheets("Base")
    DerLig = .[A65000].End(xlUp).Row
    .Range("A1:Y" & DerLig).Name = "base2"
    For Each Cel In Range("C2:C" & DerLig)
        If Not MesTypes.Exists(Cel.Value) Then MesTypes.Add Cel.Value, Cel.Value
    Next Cel
End With
For Each it In MesTypes.items
    With Sheets(it)
        .[Z1] = [C1]: .[Z2] = .Name
        Sheets("base").Range("base2").AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=.Range("Z1:Z2"), CopyToRange:=.Range("A1:W1"), Unique:=False
        .[Z1:Z2].ClearContents
    End With
Next it
End Sub

 

[bcharef]

Re : Recherche et mise à jour

Bonsoir Atiom,Monique et bhbh,
Bonsoir à toutes et à tous.

Une formule, un code... et un essai en TCD.

J'ai le grand plaisir de vous joindre mon fichier en vous laissant le soin de le terminer, afin d'afficher vos résutats conformément à la procédure à suivre, car c'est le charme de la façon et de la maniére de la manipulation d'un TCD.

A vous lire et bon courage.

A+

Cordialement

Bcharef.

 

[Atiom]

Re : Recherche et mise à jour

Bonsoir Monique, bhbh et bcharef

Que du bonheur.

Vous êtes formidable.

Ce bien que les propositions de Monique et bcharef sont excellentes, je retiens la solution en VBA.

Comme ce tableau fait partie d'un gros fichier ou il y à beaucoup de macros.
Je n’est pas beaucoup le choix, dés que je mets des formules dans mes cellules il y a toute de suite un erreur dans une macro.

Mais encore une fois merci Monique et bcharef vos solutions sont remarquables.

Maintenant la solution en VBA est presque bonne.

J’ai ajouté la macro dans un module et en suite dans ma Feuille Base j’ai mis :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Macro1
End Sub

C’est ok si je change une valeur il n’y pas de problème , Ca fontionne correctement.

Mais le seul problème est que je ne peux pas ajouter des nouvelles lignes erreur dans cette ligne :

With Sheets(it)

Comment peut-on modifier le code ?

Ps: Ci joint le fichier avec le code

 

[Cousinhub]

Re : Recherche et mise à jour

Bonsoir,

effectivement, ce code n'est pas trop prévu pour être exécuté à chaque changement de valeur de N'IMPORTE quelle cellule.....

Avec ce code, tu mets dans un tableau (VBA), tous les "Types"

Si tu modifies la cellule A85, par exemple, et que le code s'exécute, forcément, en C85, la cellule est vide, et donc la feuille("vide"), n'existe pas...

Crois-tu que l'export vers tous les onglets doit être mis à jour à chaque changement de valeur de cellule?

Pour ma part, je penche plutôt, vers une commande, quand je suis "prêt"......

 

[Atiom]

Re : Recherche et mise à jour

Salut.

Tu as raison.
J’ai mis un simple bouton en haut de la Feuille.
Mais mon seul souci est d’oublier parfois de cliquer sur le bouton.

J’ai essayé :

Worksheet_Deactivate()

dans la Feuille Base ou alors

Worksheet_Activate()

dans toutes les autres Feuilles mais ça Bug.

Donc je vais suivre ton conseil.
Merci encore et Bonne nuit.🙂

 

[Bebere]

Re : Recherche et mise à jour

bonjour à toutes et tous

meilleurs voeux pour l'an nouveau et bon réveillon
Atiom

bouton tranfert dans feuille base

pour les entrées dans la partie D:Y voir code feuille base
si tu changes une valeur dans cette partie,elle est enregistrée dans la feuille et cellule concernées
on peut aller plus,à toi de voir
à bientôt