Discussion :

[Cyrano2022]

Bonjour tout le monde,

Voilà j'ai besoin de votre aide, je voudrais récupérer la valeur de la colonne où la cellule contient 1 voilà un exemple :



A | B | C | D
------------------------
1 | 0 | 0 |
0 | 1 | 1 |
1 | 1 | 0 |


Le résultat voulu :


A | B | C | D
------------------------
1 | 0 | 0 | A
0 | 1 | 1 | B,C
1 | 1 | 0 | A,B


Merci !

[njhub]

Bonjour Cyrano2022,

essayez la formule :

Code :

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

=CONCATENER(SI(ET(A21=1;B21=1;C21=1);"A,B,C";SI(ET(A21=1;B21=1);"A,B";SI(ET(A21=1;C21=1);"A,C";SI(ET(B21=1;C21=1);"B,C";SI(A21=1;"A";SI(B21=1;"B";SI(C21=1;"C";""))))))))

ou celle là :

Code :

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

=SI(NB.SI(A21:C21;1)>2;"A B C";SI(NB.SI(A21:C21;1)=2;SUPPRESPACE(SUBSTITUE("A B C";SUBSTITUE(ADRESSE(LIGNE();EQUIV(0;A21:C21;0);4;1);LIGNE();"");""));SUBSTITUE(ADRESSE(LIGNE();EQUIV(1;A21:C21;0);4;1);LIGNE();"")))

[halaster08]

Bonjour,
Une autre proposition,
Juste une concaténation de si:

Code :

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

=SI(A2;"A,";"")&SI(B2;"B,";"")&SI(C2;"C,";"")

Mais cette formule laisse une dernière virgule inutile

D'où l'utilisation de la fonction gauche pour restreindre le nombre de caractère:

Code :

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

=GAUCHE(SI(A2;"A,";"")&SI(B2;"B,";"")&SI(C2;"C,";"");(SOMME(A2:C2)-1)*2+1)

[Cyrano2022]

Merci voilà j'ai trouvé une solution avec VBA :

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
Function SelectedColumns(R As Range) As String 
Dim i As Long, n As Long, count As Long 
Dim cols As Variant 
 
n = R.Columns.count 
ReDim cols(1 To n) 
For i = 1 To n 
If R.Cells(1, i).Value <> "" Then 
count = count + 1 
cols(count) = Split(R.Cells(1, i).Address, "$")(1) 
End If 
Next i 
If count > 0 Then 
ReDim Preserve cols(1 To count) 
SelectedColumns = Join(cols, ",") 
End If 
End Function

Merci pour vos réponses !