Concatener noms des colonnes si "x" Résolu/Fermé

Question

Bonour, 

Voici ma situation : J'ai un tableau contenant des lignes recensant des années (ex : 1971, 1972, etc.) et des colonnes recensant des prénoms (Amélie, Baptiste, Clément). Pour chaque année je coche (avec un "x") les prénoms des personnes nées au cours de l'année en question. 

Je souhaite créer un code VBA (et seulement VBA car le fichier est entièrement automatisé) qui puisse concaténer dans une feuille "synthèse" où nous retrouvons les années : 

Les prénoms de chaque employé née au cours de cette année. 
Par exemple, pour 1975, je devrais avoir "Thibault-Xavier".

La macro devrait donc rechercher l'année dans les lignes de mon tableau, vérifier s'il y a un "x" et concatener le nom des colonnes concernées. 

Malgré plusieurs essais je n'ai pas réussi et je fais appel à votre aide!!!

Dans l'attente, je vous remercie!!!

eriiic · Answer

Bonjour,

Merci de déposer le fichier xls (réduit au nécessaire et anonymisé et le résultat attendu) sur cjoint.com et coller ici le lien fourni.

Pour ma gouverne, en quoi si quelqu'un te fait ça par formule ça t'empêcherait de l'utiliser en macro ? Ca m'échappe...
eric

eriiic · Answer

Bonjour,


Terminé pour moi
eric

eriiic · Answer

Si jamais tu peux avoir le cas d'une feuille 2 avec une seule phase, tu dis, il faudra que je modifie.
Ayant beaucoup de mal avec ton fichier et son utilisation (entre ce qui est manuel et par macro) je suis parti sur une fonction personnalisée.
Comme ça tu peux l'utiliser tout autant sur la feuille qu'en vba.
Je me suis basé uniquement sur l'exemple feuille 4, qui prend les infos feuille 2
Function phase(ssGroupe As String)
    Dim c1 As Range, c2 As Range, pl As Range
    With Sheets("2")
        Set c1 = .Columns(2).Find(ssGroupe, , xlValues, xlWhole)
        If c1 Is Nothing Then phase = "- ssGroupe inconnu": Exit Function
        Set pl = Intersect(c1.EntireRow, .Range(.[C3], .[C3].End(xlToRight)).EntireColumn)
        For Each c2 In pl
            If LCase(c2) = "x" Then phase = phase & vbLf & "- " & .Cells(3, c2.Column)
        Next c2
    End With
    phase = Mid(phase, 2)
End Function
A mettre dans un module standard.
Syntaxe sur feuille 4, en B13 :
=phase(D13)
Tu dis si je suis dans les clous, je ne suis sûr de rien.
eric

excel300817 · Answer

Eric, 

Je peux avoir le cas avec une seule phase mais le code VBA que je te demandais devait de toute manière se lancer que s'il y a plus d'une phase. Sinon, ma macro actuelle me retourne bien le nom de la phase (quand il n'y en a qu'une). 

Par ailleurs, comment est-ce que je peux faire en sorte que la fonction s'insère dans la cellule par le biais de la macro en sachant que la taille du tableau (feuille 3) est variable ? 
A quel moment dois-je coller ce code dans le module 2 ? 

PS : si tu regardes le module 2, j'ai fait des retraitements car la première version affiche les sous-groupes par phase et non le contraire. Mon retraitement se base sur la première version du tableau pour le modifier en supprimant les lignes qui comportent la même phase. N'est-il pas possible de faire la même chose pour ma demande et donc une concaténation ? (je pense que ça peut être plus simple, si c'est possible). 

Merci par avance

eriiic · Answer

Module 2 c'est vague, tu n'es pas une adepte de la précision, il va falloir t'y mettre.
De plus je ne vois pas ce que feuille 3 vient faire ici (?) J'ai regardé feuille 4, je suppose que c'est son pendant.

Si tu es vba pas besoin de coller la fonction.
Là où tu mettais "2 phases" qui ne te satisfaisait pas, tu dois connaitre le sous-groupe (c'est impératif). Imaginons que ce soit dans une variable ssG
Si tu avais cells(lig,2)= "2 phases" (en gros), tu mets :
cells(lig,2) = phase(ssG)
Je suppose que c'est dans ce coin :
 If WorksheetFunction.CountIf(Ligne, "x") > 1 And DD <> "" Then DD.Offset(0, -2) = WorksheetFunction.CountIf(Ligne, "x") & " phases" End If
Ca te suffit comme explication ?
Mais peut-être as-tu du ménage à faire en plus (?)
Ton style de code personnel (on a chacun le sien), en plus l'absence courante d'indentation ne facilitent pas la lecture...

D'ailleurs en essayant de chercher ta proc j'ai vu que tu avais une variable phase. Renomme la fonction autrement dans ce cas.

Fonction (renommée) pour 1 à x phases :
Function LPhase(ssGroupe As String) As String
    Dim c As Range, pl As Range
    With Sheets("2")
        Set c = .Columns(2).Find(ssGroupe, , xlValues, xlWhole)
        If c Is Nothing Then LPhase = "- ssGroupe inconnu": Exit Function
        If .[D3] = "" Then Set pl = .[C3] Else Set pl = .Range(.[C3], .[C3].End(xlToRight))
        For Each c In Intersect(c.EntireRow, pl.EntireColumn)
            If LCase(c) = "x" Then LPhase = LPhase & vbLf & "- " & .Cells(3, c.Column)
        Next c
    End With
    LPhase = Mid(LPhase, 2)
End Function
eric

excel300817 · Answer

Eric, 


La feuille 4 était un récap, comme tu l'avais demandé mais il reprend le  tableau synthèse qui se forme dans la feuille 3. 
Je laisse tomber mon histoire de modification du module 2 que j'ai du mal à expliquer. 

En revanche, j'ai essayé avec cette fonction en tapant : 

 If WorksheetFunction.CountIf(Ligne, "x") > 1 And DD <> "" Then
 DD.Offset(0, -2) = Lphase(DD)
 End If
Ca ne marche pas.. J'ai "type d'argument byRef incompatible"..
Fichier : http://www.cjoint.com/c/GIdvKcofcKV

Pour tester avec ce fichier : 
- Démarrer (feuille 1) => Valider (ligne 70 de la feuille 2) 
(Bien entendu, la feuille 3 s'affiche lorsque la validation fonctionne) 

Merci !!

Concatener noms des colonnes si "x"

6 réponses

Discussions similaires