Fonction vs macro sur concatenation

Version imprimable

05/09/2018, 21h24
esse2016

Fonction vs macro sur concatenation

Bonsoir le forum

J’ai sur la feuille1 dans les cellules
D105 = «*test1 mauvais*»
D106 = «*test2 bon*»
D107= «*test3 40% mauvais*»

Dans une cellule E104 je concatene les cellules D105 à D107 sssi pour chacunes des cellules le test est mauvais avec les fonctions «*si*» du genre en E104. =si(droite(d105,8)=«*mauvais*»; concatener(d105 avec d106 et avec d107 si eux memes sont mauvais aussi). Cette méthode risque d’être longue et fastidieuse (d’autant que j’ai au moins 5 cellules (soit jusqu’à d109) à concatener avec chacune des états différents). Ceci me permettrait de faire en page de garde (dans la cellule b2 par exemple) un résumé du genre: «* voici le résultat: le test1; le test3 à 40% sont mauvais*»

Par contre je souhaiterai l’ecrire en macro plutot que de voir «*apparaitre les resultats dans une cellule E104*» et je me dis qu’avec un tableau je pourrais mieux gérer la concaténation. Mais mon soucis c’est où mettre cette macro qui vient scruter les cellules ? Et comment s’active t’elle sans passer par un bouton dans la feuille1? Pour un pro ça doit être évident mais lorsqu’on ne maîtrise pas excel cela est moins...
Dans worksheet_change, dans un module ?

Je pourrais mettre cela dans worksheet_change mais on dirait que je reviens au même problème de ce matin sur le post worksheet_change. A savoir ralentissement si la feuille recalcule a chaque modif de quelconque cellule.

Comment s’y prendre, ?je ne sais pas si je suis bien clair ?

Merci par avance.
05/09/2018, 22h25
esse2016

Je vais essayer de me créer une fonction dans un module.
Puis cette fonction sera appelée dans la cellule b2

La fonction aura comme arguments: la range désirée, le critére ici «*mauvais*» et puis un séparateur
Dans cette fonction je balaierai chacune des cellules en fonctions des arguments passés et sera enregistrée dans une chaîne de caractère...

J’essayeri demain, histoire de voir si je m’oriente vers la bonne solution...
06/09/2018, 09h02
Menhir
La fonction CONCATENER() n'est conservée dans Excel que pour des raisons de compatibilité ascendante mais elle est complètement obsolète.
Il est beaucoup plus simple d'utiliser l'opérateur &.

C'est deux formules sont équivalentes :
Code:

1 2 =CONCATENER(A1;A2;A3) =A1&A2&A3
CONCATENER() pourrait avoir un intérêt si elle acceptait une zone comme paramètre. Ce n'est malheureusement pas le cas et chaque élément doit être spécifié individuellement.
C'est un défaut que pallie la fonction CONCAT mais elle n'est disponible qu'à partir d'Excel 2016.

1 pièce(s) jointe(s)

Bonjour,
Avec une fonction personnalisée comme par exemple celle qui suit à copier dans un module Standard

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function CONCAT_MAUVAIS(Plage As Range) As String
Dim C As Range
Dim A$
'---
For Each C In Plage
  If InStr(1, UCase(C), "MAUVAIS") > 0 Then
    A$ = A$ & C & " / "
  End If
Next C
If A$ <> "" Then
  A$ = Trim(A$)
  A$ = Mid(A$, 1, Len(A$) - 3)
Else
  A$ = "Tout bon"
End If
CONCAT_MAUVAIS = A$
End Function

07/09/2018, 17h14
esse2016

Pmo2017 et Menhir,

Merci pour vos interventions, je regarderai cela lundi prochain. J’ai fait une fonction dans un module qui s’appelle concatif(concatrange, criteriarange as variant, criteria as string et separateur as string

Currentstring =«*»
For i=1 to concatrange.count
If criteriarange(i)=criteria (ici «*mauvais*»)

Currenstring=currentstring & concarange(i) & separateur
Next i

Concatif=currenstring

Sauf que je dois mettre davanatge de conditions car mes cellules on parfois l’etat «*mauvais*» parfois l’etat «*usagé*» parfois etat «*a reparer*» creer par une liste deroulante de vzlidation de donnee

Qui est consideré comme mauvais et je dois fzire des possibilites de phrase selon les etats. Des ces dites cellules

Je tacherai de prednre des photos pour mieux expliciter le probleme

Merci

1 pièce(s) jointe(s)

Alors peut-être comme suit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function CONCAT_MAUVAIS(Plage As Range, Plage_criteres As Range) As String
Dim C As Range
Dim C2 As Range
Dim A$
'---
For Each C In Plage
  For Each C2 In Plage_criteres
    If InStr(1, UCase(C), UCase(C2)) > 0 Then
      A$ = A$ & C & " / "
    End If
  Next C2
Next C
If A$ <> "" Then
  A$ = Trim(A$)
  A$ = Mid(A$, 1, Len(A$) - 3)
Else
  A$ = "Tout bon"
End If
CONCAT_MAUVAIS = A$
End Function

07/09/2018, 20h45
esse2016

À pmo2017
C’est à peu prés cela que j’obtiens aussi avec ma macro (en moins bien, bien sur) dont l’esquisse a été présenté. Mais voyez vous dans votre fichier demo v02 si on regarde les resultats dans les cadres jaunes et en particulier le 3eme cas à savoir:

Code:

*test1 mauvais* / *test3 40% mauvais* / *test4 mauvais* / *test5 mauvais

J’essaye de tendre vers une phrase

Code:

les test1, test4 et test5 sont mauvais. Test3 à 40%

Sur le 4eme cas à savoir

Code:

*test1 mauvais* / *test2 à réparer* / *test3 usagé

il faudrait arriver à faire

Code:

le Test1 est mauvais. Le test2 à réparer. Le test3 est usagé

Notez les points entre chaque phrase.

Mettre en phrase m’oblige à faire tous les cas de figure.
Mon problème est situé à ce niveau.
Du coup je ne sais si on peut s’affranchir de tous les cas de figure ?

Mais c’est déjà énorme ce que vous avez fait
09/09/2018, 19h16
PMO2017

1 pièce(s) jointe(s)

Bonjour,
Cela devient très compliqué mais peut-être que la fonction prenant en compte vos remarques vous aidera à avancer (voir le classeur en pièce jointe).

2 pièce(s) jointe(s)

Bonjour,

ci-dessous le code, mais comme on le voit je dois faire chaque cas de figure... trop compliqué ou long

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Function Concatif(concatRange As Variant, criteriaRange As Variant, criteria As String, mySep As String) As String
Dim currentString As String
Dim tab1(5) As String
Dim i As Integer
 
currentString = ""
tab1(1) = "l'état de la boite"
tab1(2) = "grenouillères"
tab1(3) = "de presence"
tab1(4) = "de test"
tab1(5) = "d'humidité"
 
For i = 1 To concatRange.Count
 
    If criteriaRange(i) = "MAUVAIS" Or criteriaRange(i) = "40% ROSE" Or criteriaRange(i) = "50% ROSE" Or criteriaRange(i) = "ABIME" Or criteriaRange(i) = "A REPARER" Then
 
        If (criteriaRange(1) = "BON" Or criteriaRange(1) = "") And criteriaRange(2) = "MAUVAIS" And i = 2 Then
        currentString = currentString & "l'état des " & tab1(2) & " est mauvais" & mySep
        ElseIf criteriaRange(1) = "MAUVAIS" And criteriaRange(2) = "MAUVAIS" And i = 2 Then
        currentString = tab1(1) & " et des " & tab1(2) & " sont mauvais" & mySep
        ElseIf i = 1 Then
        currentString = currentString & tab1(1) & " est mauvais" & mySep
        ElseIf i = 3 Then
        currentString = currentString & Chr(10) & " témoin " & tab1(3) & " est mauvais" & mySep
        ElseIf (criteriaRange(3) = "BON" Or criteriaRange(3) = "") And (criteriaRange(5) = "MAUVAIS" Or criteriaRange(5) = "40% ROSE" Or criteriaRange(5) = "50% ROSE") And i = 4 Then
        currentString = currentString & " les témoins " & tab1(3) & " et " & tab1(5) & " sont mauvais" & mySep
        ElseIf criteriaRange(1) = "MAUVAIS" And (criteriaRange(5) = "MAUVAIS" Or criteriaRange(5) = "40% ROSE" Or criteriaRange(5) = "50% ROSE") And i = 4 Then
        currentString = currentString & " les témoins " & tab1(1) & ", " & tab1(3) & " et " & tab1(5) & " sont mauvais" & mySep
        'Else
        'currentString = currentString & tab1(i) & mySep
        End If
 
    End If
Next i
 
If Not currentString = "" Then
currentString = Left(currentString, Len(currentString) - Len(mySep))
 
Concatif = currentString
End If
 
End Function

en complément illustré par des photos:

ici choix via validation de données (les choix sont listés sur la feuille "PARAM")
Pièce jointe 410377

ici chaque éléments ont été selectionnés
Pièce jointe 410378