Discussion :

[lifestar]

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

T$ = "Albert" & " " & "Einstein"

[Menhir]

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.

[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 )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lifestar]

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 )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lifestar]

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.

[patricktoulon]

re

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 !!

[Menhir]

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...

[lifestar]

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.