Problème VBA type recherchev et concatener

Problème code VBA type recherchev et if

Bonjour,

J’ai un petit problème, je souhaiterai faire une macro qui puisse faire les opérations suivantes :

Dans un fichier, j’ai deux onglets « Synthèse » et « Suivi utilisateur ».

Dans l’onglet « Suivi utilisateur », j’ai trois colonnes Nom, service et état

La colonne état peut contenir 3 valeurs soit Validé, Supprimer ou « vide »

Dans l’onglet « Synthèse », j’ai deux colonnes Service et état

La colonne état peut être validé ou non validé

Si il y a un seul nom du service qui n’est pas validé ou supprimé alors l’état est non validé.
Si tous les noms sont soit validé ou supprimé alors l’état du service est validé.

Par exemple :

Onglet « Suivi utilisateur »

Nom Service état
Ju DAF Validé
So DAF Supprimé
Se DIF
Bu DRH Validé
Xc DRS
Ne DAF Valid2
Du DIF Validé

Onglet « Synthèse »

Service état
DAF Validé
DIF Non validé
DRH Validé
DRS Non validé

Ainsi, je souhaiterais faire un code VBA qui puisse donner ces résultats à la colonne état de l’onglet « Synthèse ».
Je vous remercie pour votre aide.

Sans vba
En B2 de Synthèse

Code:

=SI(SOMMEPROD(('Suivi utilisateur'!$B$1:$B$700=A2)*('Suivi utilisateur'!$C$1:$C$700="")*1)=0;"Validé";"Non Validé")

Tire vers le bas

Bonjour,

Je souhaiterai faire une sorte de recherchev avec concatener.

Je m'explique, dans un fichier excel j'ai deux onglets "Synthèse" et "Suivi Utilisateur".
Dans l'onglet "Suivi Utilisateur", j'ai deux colonnes service et adresse mail.
Dans l'onglet "Synthèse", j'ai deux colonnes service et mail équipe.

Je souhaiterai que dans la colonne mail équipe, il y a toutes les adresses mails de l'équipe sous forme de concatener.

Par exemple:

Onglet "Suivi Utilisateur"

Service adresse mail
DAF jjj@com
DIF KK@COM
DAF HH@COM
DRH OOO@COM
DS AAA@com
DIF iii@com
DAF cc@com
DAF uuu@com

Onglet "Synthèse"

Service mail équipe
DAF jjj@com; HH@COM; cc@com;uuu@com
DIF KK@COM; iii@com
DRH OOO@COM
DS AAA@com

Merci pour votre aide

Julien

Hello

j'ai une solution rapide en utilisant un dictionnaire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
set dico=createobject("scripting.dictionary")
nbLignes=Sheets("Suivi Utilisateur").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
for ligneID=1 to nbLignes
   id=Sheets("Suivi Utilisateur").cells(ligneID,1)
   valeur=Sheets("Suivi Utilisateur").cells(ligneID,2)
  if not dico.exists(id) then 
          dico.add id,valeur
  else
         dico(id) = dico(id) & ";" & valeur
  endif
 
  Sheets("Synthese").cells.clearcontents
 
  ligneID=1
  Sheets("Synthese").cells(ligneID,1) ="Service" 
  Sheets("Synthese").cells(ligneID,2) ="mail équipe"
 
  ligneID=2
  foreach key in dico
     Sheets("Synthese").cells(ligneID,1) =key
     Sheets("Synthese").cells(ligneID,2) =dico(key)
     ligneID=ligneID+1
  next

pas testé mais devrait marcher

++
Nico