Macros de concaténation de différentes informations

Version imprimable

05/03/2019, 16h32
lifestar

1 pièce(s) jointe(s)

Macros de concaténation de différentes informations

Bonjour à tous,

je suis sur un cas assez particulier en ce moment, je cherche à concaténer 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.
05/03/2019, 16h43
Philippe Tulliez

Bonjour,
Comme beaucoup de contributeurs de ce site, je n'ouvre pas les fichiers joints.
Un léger effort d'explication de ta part t'aiderait à avoir plus de réponses. Une image de la ou des feuilles concernées serait un plus très apprécié.

Pour concaténer plusieurs chaînes de caractères en VBA c'est comme avec Excel. On utilise l'opérateur de concaténation représenté par l'esperluette &
Exemple avec la concaténation de constantes

Code:

T$ = "Albert" & " " & "Einstein"
05/03/2019, 18h01
Menhir

Citation:

Envoyé par lifestar

je suis sur un cas assez particulier en ce moment, je cherche à concaténer 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

Je vais partir de l'hypothèse (qui me semble très probable) que tu utilises le mot "concaténer" de façon impropre ou du moins dans un sens très différent de celui utilisé dans Excel.

Si tu veux mettre les données de plusieurs onglets dans un seul sans doublon, la méthode la plus simple est de commencer par faire une copie globale et ensuite d'appliquer à l'ensemble une suppression de doublons (Ruban Données > Supprimer les doublons).
Si tu veux à tout prix le faire en VBA, l'enregistreur automatique de macro te livrera 80% du code sur un plateau.

bonjour
Pour moi la demande n'est pas claire mais si tu cherches à parcourir la colonne A de la feuille 1 puis la colonne A de la feuille 2 et tu les compare avec la colonne A de la feuille 3 et la différence tu l'inscris dans la feuille synthèse tu aura comme solution les dictionnaires
c'est une solution de Mr boisgontierjacques si je me rappelle bien (Bonjour de passage :king:)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim f1 Dim f2 Dim f3 Dim f4 Sub test() Set f1 = Sheets("Fruits") Set f2 = Sheets("Légumes") Set f3 = Sheets("réfrigérateur") Set f4 = Sheets("Synthèse") a = f1.Range("A3:A" & f1.[A65000].End(xlUp).Row) b = f3.Range("A3:A" & f3.[A65000].End(xlUp).Row) d = f2.Range("A3:A" & f2.[A65000].End(xlUp).Row) Set mondico1 = CreateObject("Scripting.Dictionary") For Each c In b: mondico1(c) = c: Next c For Each c In d: mondico1(c) = c: Next c Set mondico2 = CreateObject("Scripting.Dictionary") For Each c In a If Not mondico1.Exists(c) Then mondico2(c) = c Next c f4.[A6].Resize(mondico2.Count, 1) = Application.Transpose(mondico2.keys) End Sub

Citation:
Envoyé par BENNASR
bonjour
Pour moi la demande n'est pas claire mais si tu cherches à parcourir la colonne A de la feuille 1 puis la colonne A de la feuille 2 et tu les compare avec la colonne A de la feuille 3 et la différence tu l'inscris dans la feuille synthèse tu aura comme solution les dictionnaires
c'est une solution de Mr boisgontierjacques si je me rappelle bien (Bonjour de passage :king:)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim f1 Dim f2 Dim f3 Dim f4 Sub test() Set f1 = Sheets("Fruits") Set f2 = Sheets("Légumes") Set f3 = Sheets("réfrigérateur") Set f4 = Sheets("Synthèse") a = f1.Range("A3:A" & f1.[A65000].End(xlUp).Row) b = f3.Range("A3:A" & f3.[A65000].End(xlUp).Row) d = f2.Range("A3:A" & f2.[A65000].End(xlUp).Row) Set mondico1 = CreateObject("Scripting.Dictionary") For Each c In b: mondico1(c) = c: Next c For Each c In d: mondico1(c) = c: Next c Set mondico2 = CreateObject("Scripting.Dictionary") For Each c In a If Not mondico1.Exists(c) Then mondico2(c) = c Next c f4.[A6].Resize(mondico2.Count, 1) = Application.Transpose(mondico2.keys) End Sub
Merci BENNASR pour ta réponse, j'ai essayé intégrer la macro mais j'ai le message suivant à la ligne 13 :
Le composant ActiveX ne peut pas créer l'objet

06/03/2019, 20h57
lifestar

Citation:

Envoyé par Menhir

Je vais partir de l'hypothèse (qui me semble très probable) que tu utilises le mot "concaténer" de façon impropre ou du moins dans un sens très différent de celui utilisé dans Excel.

Si tu veux mettre les données de plusieurs onglets dans un seul sans doublon, la méthode la plus simple est de commencer par faire une copie globale et ensuite d'appliquer à l'ensemble une suppression de doublons (Ruban Données > Supprimer les doublons).
Si tu veux à tout prix le faire en VBA, l'enregistreur automatique de macro te livrera 80% du code sur un plateau.

Bonjour Mennir,

Merci pour ta proposition Mon but c'est d'avoir un fichier entièrement automatisé.

Et passer par l'enregistrer de macro ne m'aidera pas plus.
06/03/2019, 22h06
patricktoulon

re

re

Citation:

Et passer par l'enregistrer de macro ne m'aidera pas plus.

a bon !!?????
sais tu ce c'est l'enregistreur de macro????, j'en ai pas l'impression !!
07/03/2019, 08h40
Menhir

Citation:

Envoyé par lifestar

Et passer par l'enregistrer de macro ne m'aidera pas plus.

1-Explication minimaliste dans la demande initiale
2-Ne prend pas la peine de compléter son explication malgré plusieurs demandes
3-Envoi de fichier joint dès le premier message
4-Ne recherche pas à débuger le premier code transmis
5-Ne cherche pas à appliquer par lui-même les solutions qui lui sont proposées

J'ai l'impression que tu n'as pas vraiment l'intention d'être très actif sur ce sujet... :?
Tu cumules tous les symptômes de ceux qui veulent qu'on leur fasse leur travail servi sur un plateau...
10/03/2019, 14h36
lifestar

Citation:

Envoyé par Menhir

1-Explication minimaliste dans la demande initiale
2-Ne prend pas la peine de compléter son explication malgré plusieurs demandes
3-Envoi de fichier joint dès le premier message
4-Ne recherche pas à débuger le premier code transmis
5-Ne cherche pas à appliquer par lui-même les solutions qui lui sont proposées

J'ai l'impression que tu n'as pas vraiment l'intention d'être très actif sur ce sujet... :?
Tu cumules tous les symptômes de ceux qui veulent qu'on leur fasse leur travail servi sur un plateau...

Tu vas drôlement vite en besogne amigo.

1-j'ai pas eu le temps en semaine de préciser la demande initiale du coup je m’apprête à le faire
2-J'envoie le fichier joint pour que la demande soit plus explicite ( Drôle de controverse si je base sur tes idées "préconçues" )
3- j'ai essayé de débuger le premier code transmis
4- J'ai essayé ta solution avant même de poster le sujet

Donc évite de coller des étiquettes à la louche.

Merci à tous ceux qui ont contribué au sujet.