XL 2016 Assembler du Texte avec Sommeprod

APPRENTI:)

XLDnaute Nouveau
Bonjour à tous,

je cherche à assemble du texte avec la fonction sommeprod.

Je me sers pour le moment d'une formule type =SI(B2="x";B1;"")&SI(C2="x";C1;"")&SI(D2="x";D1;"")

Seulement, il m'arrive de créer de nouvelles colonnes.... alors je dois modifier la fonction dans de nombreuse cellule.

J'aimerais une fonction qui s'étend sur tout une plage, à l'instar du la fonction sommeprod.
Je n'arrive pas à retranscrire du texte avec celle-ci, avez vous des conseils?

Très bonne journée à vous!!
 

Pièces jointes

  • test.xlsx
    10.4 KB · Affichages: 14
Solution
Re à tous,

Voir la version v2:

La fonction a été réécrite. Elle possède maintenant un troisième paramètre qui doit être égal à "D" si on veut les devis ou à "S" si on veut la situation.

Pour les devis: =ConcatSi(B2:O2;$B$1:$O$1;"d")
Pour les situations: =ConcatSi(B2:O2;$B$1:$O$1;"s")

Le code dans module1:
VB:
Function ConcatSi(rgX As Range, rgC As Range, Typ As String) As String
' Typ doit valoir "D" ou "S"
Dim j As Long, s As String, debut As Long
   If UCase(Typ) = "D" Then debut = 1 Else debut = 2
   For j = debut To rgX.Columns.Count Step 2
      If Trim(rgX.Cells(1, j)) <> "" Then s = s & ", " & Trim(rgC.Parent.Cells(rgC.Row, 1 - debut + rgX.Cells(1, j).Column))
   Next
   If Len(s) > 0 Then ConcatSi = Mid(s...

APPRENTI:)

XLDnaute Nouveau
Merci Amilo, alors j'ai pas réussi a voir comment ça fonctionne….
^^ peux tu m'éclairer?
Je ne sais pas si ça va être facile à insérer dans mon classeur.
le but de cette fonction est de créer un devis automatique.

On vient cocher des croix, dans le premier onglet, ce qui élabore un PVHT
Dans un même temps, au second onglet, un devis automatique est produit.
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir @APPRENTI:), @Amilo ;),

Avec une p'tite fonction personnalisée dont le code est dans module1:
VB:
Function ConcatSi(rgX As Range, rgC As Range) As String
Dim x, s As String
   For Each x In rgX
      If Trim(x) <> "" Then s = s & ", " & Trim(rgC.Parent.Cells(rgC.Row, x.Column))
   Next
   If Len(s) > 0 Then ConcatSi = Mid(s, 3)
End Function

nota: pensez à mettre en référence absolue la ligne à concaténer. Ici, la plage $B$1:$I$1
=ConcatSi(B2:I2;$B$1:$I$1)
 

Pièces jointes

  • APPRENTI- Concaténer- v1.xlsm
    16.6 KB · Affichages: 7
Dernière édition:

APPRENTI:)

XLDnaute Nouveau
Est ce que je peux modifier le code, pour que la sélection se fasse sur la cellule à coté?

Le x sur fond rouge élabore le prix et le devis.
Le x sur fond vert me sert à faire les situations.

J'ai donc un onglet un doc type situation qui se rempli automatiquement lorsque que je valide les tâches qui ont été effectuées

Un grand merci à toi, c'est des pavés de formule remplacé par quelques lignes grâce à tes connaissances!!!
 

Pièces jointes

  • Capture.PNG
    Capture.PNG
    21.2 KB · Affichages: 13

Amilo

XLDnaute Accro
Re,
bonsoir mapomme,


Merci Amilo, alors j'ai pas réussi a voir comment ça fonctionne….
^^ peux tu m'éclairer?
Je ne sais pas si ça va être facile à insérer dans mon classeur.
le but de cette fonction est de créer un devis automatique.

On vient cocher des croix, dans le premier onglet, ce qui élabore un PVHT
Dans un même temps, au second onglet, un devis automatique est produit.

@APPRENTI:), comme c'est pour établir un devis et ajouter d'autres colonnes de prix notamment alors je pense qu'une une solution VBA est plus adaptée

Edit : lorsque je vois un peu la structure des tableaux, j'imagine une certaine complexité dans la conception des devis.

Cordialement
 
Dernière édition:

APPRENTI:)

XLDnaute Nouveau
Effectivement, lorsque je coche la case d'a coté (Fond en vert), cela rajoute une virgule entre les tâches. c'est pas trop méchant puisque le devis sera sorti avant que la réalisation ne commence.

Par contre, je ne vois pas du tout comment transformer le code pour qu'il s'applique aux situation d'avancement.
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Re à tous,

Voir la version v2:

La fonction a été réécrite. Elle possède maintenant un troisième paramètre qui doit être égal à "D" si on veut les devis ou à "S" si on veut la situation.

Pour les devis: =ConcatSi(B2:O2;$B$1:$O$1;"d")
Pour les situations: =ConcatSi(B2:O2;$B$1:$O$1;"s")

Le code dans module1:
VB:
Function ConcatSi(rgX As Range, rgC As Range, Typ As String) As String
' Typ doit valoir "D" ou "S"
Dim j As Long, s As String, debut As Long
   If UCase(Typ) = "D" Then debut = 1 Else debut = 2
   For j = debut To rgX.Columns.Count Step 2
      If Trim(rgX.Cells(1, j)) <> "" Then s = s & ", " & Trim(rgC.Parent.Cells(rgC.Row, 1 - debut + rgX.Cells(1, j).Column))
   Next
   If Len(s) > 0 Then ConcatSi = Mid(s, 3)
End Function
 

Pièces jointes

  • APPRENTI- Concaténer- v2.xlsm
    17.7 KB · Affichages: 6

APPRENTI:)

XLDnaute Nouveau
Bonjour à tous

Merci MaPomme!
Pour élaborer le devis, je me sers du x lorsque c'est notre entreprise qui projette la réalisation, et d'un s lorsque que nous sous-traitons .
une fois la tache réalisée, je valide par un x ou par un s, suivant qui à réellement réalisé la tâche.

Suivant ces critères j'ai un onglet "prévisionnel&suivi" qui élabore le pvht et calcul la rentabilité en cours de réalisation.

Est-il possible que dans la première cellule pour établir le devis, nous rentrions x ou s
et que dans la cellule d'à côté , nous validions par x ou s pour la situation?

Peut être en se servant de la cellule "Temps U" et "Prix u Mat"???
c'est ce que j'ai fait pour additionner les temps unitaires et les prix unitaires des matériaux, en validant avec un x ou s à l'aide la fonction sommeprod. =SOMMEPROD((CF8:JN8="x")*($CF$3:$JN$3="Temps U");($CF$4:$JN$4))
 

Pièces jointes

  • Capture.PNG
    Capture.PNG
    21.2 KB · Affichages: 10

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna