Macros de concaténation de différentes informations

[lifestar]

Bonjour à tous,

je suis sur un cas assez particulier en ce moment, je cherche à concatener dans une seule colonne plusieurs informations provenant de différents onglets ( régime 1 , régime 2) en prenant le soin supprimer les doublons de la liste finale obtenue

Et si possible de faire supprimer les données de la liste finale déjà présente dans dans l'onglet : réfrigérateur ..

Je vous remercie d'avance pour vos apports.

 

[Jacky67]

Bonjour à tous,

je suis sur un cas assez particulier en ce moment, je cherche à concatener dans une seule colonne plusieurs informations provenant de différents onglets ( régime 1 , régime 2) en prenant le soin supprimer les doublons de la liste finale obtenue

Et si possible de faire supprimer les données de la liste finale déjà présente dans dans l'onglet : réfrigérateur ..

Je vous remercie d'avance pour vos apports.

Bonjour,
Une proposition par vba en PJ

 

[mapomme]

Bonsoir @lifestar

Une autre manière en vba via des dicos...

edit : surtout pour te saluer @Jacky67

nota : Préférez la version v1a qui ne fait plus la distinction entre majuscule et minuscule.

 

[Jacky67]

Bonsoir @lifestar

Une autre manière en vba via des dicos...

edit : surtout pour te saluer @Jacky67

Hello mapomme
Je me trompe ou il y a double ration de Kiwi ? (Kiwi kiwi )

 

[mapomme]

Re @lifestar, @Jacky67,

Je me trompe ou il y a double ration de Kiwi ? (Kiwi kiwi )

Merci Jacky pour m'avoir signalé le "Kk". C'est normalement résolu avec la v1a qu'on trouve ICI.

 

[lifestar]

Bonjour @mapomme @Jacky67 , merci pour vos réponses.

Est ce possible de faire contenir le résultat final dans une seule et meme colonne ?

 

[mapomme]

Re @lifestar,

Est ce possible de faire contenir le résultat final dans une seule et meme colonne ?

Voir le fichier joint.

 

[lifestar]

@mapomme


Merci pour ta réponse rapide.

J'essaie de comprendre les lignes de code de la macro pour les modifiés à souhait et ajouter d'autres variables.
Comme par exemple un autre onglet réfrigérateur : "réfrigérateur 2" en gardant toujours le même principe.

J'ai modifié le nombre de dico à 4 et en rajoutant :
Dim dico(1 To 4) As New Dictionary, wsh, derlig&, t, i&
or i = 1 To 4: dico(i).CompareMode = TextCompare: Next i
With Worksheets("réfrigérateur")
*
With Worksheets("réfrigérateur 2")
t = .Range("a1:a" & .Cells(.Rows.Count, "a").End(xlUp).Row)
For i = 4 To UBound(t): dico(4)(t(i, 1)) = "": Next i
End With

Mais le résultat n'est pas exact. Pourrais-tu me dire ce qui coince ?

Grand merci à toi.

 

[mapomme]

Bonjour @lifestar,

Voir le fichier joint. J'ai ajouté quelques commentaires. J'ai ajouté à la synthèse le type (fruit ou légume) et trié le résultat suivant type puis nom du produit.

 

[lifestar]

Hello @mapomme ,

Merci pour ta réponse. J'ai bien lu tes commentaires et je t'en remercie.

Si la demande de base évolue :

• Le panier doit contenir les éléments du régime 1 intégralement
• Le panier doit contenir les éléments du régime 2 qui sont validée par le docteur : "OK"
• Le panier ne doit pas contenir les éléments du réfrigérateur 1
• Le panier ne doit pas contenir les éléments du réfrigérateur de Julie qui sont offerts ( Colonne Don "oui" )

Comment dois je modifier la macro ??

 

[mapomme]

Re @lifestar,

Voir la v4...

Je ne vois pas ce qu'apporte la colonne Dons. A partir du moment où le produit est dans le frigo (qu'il soit là à la suite d'un don ou d'un achat), le produit n'a pas besoin d'être acheté, non ?

 

[lifestar]

Re @mapomme

On considère que les éléments du réfrigérateur de Julie ne sont pas acquis, elle peut offrir certains produits et d'autres pas.