Discussion :

[mouncefdi]

Salut,

Je me permets de vous solliciter pour m’aider à résoudre un petit problème sur Excel, en espérant que j’aurais une réponse.

Voila je veux faire une concaténation sur ma colonne Z, de la colonne G à Q de ma feuille excel.
Dans ma concaténation il faut éviter les cases où s'est écrit "None".
Pour mieux comprendre voici le fichier Excel joint et ci-dessous ce que j'ai fait manuellement sur Excel et pourtant ça ne marche pas.

Code :

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

=IF(G2="None";"";G2&IF(H2="None";"";H2&IF(I2="None";"";I2&IF(J2="None";"";J2&IF(K2="None";"";K2&IF(L2="None";"";L2&IF(M2="None";"";M2 & IF(N2="None";"";N2&IF(O2="None";"";O2 & IF(P2="None";"";P2 & IF(Q2="None";"";Q2)))))))))))

Je ne comprends pas pourquoi cette combinaison ne marche pas…
Je vous remercie d’avance pour l’aide.

[casefayere]

Bonsoir,

adaptes un truc comme ça,

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub essai()
Dim concat As String, x As Integer, cell As Range
 
 For x = 7 To 17
If Cells(2, x) <> "none" Then
   concat = concat & Cells(2, x)
End If
Next x
MsgBox concat
End Sub

Bonne soirée

[Gorfael]

Salut à tous
Par formule :

Code :

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

=SUPPRESPACE(SI(G2="None";"";" " & G2)&SI(H2="None";"";" " & H2)&SI(I2="None";"";" " & I2)&SI(J2="None";"";" " &J2)&SI(K2="None";"";" " & K2)&SI(L2="None";"";" " & L2)&SI(M2="None";"";" " & M2) & SI(N2="None";"";" " & N2)&SI(O2="None";"";" " & O2) & SI(P2="None";"";" " & P2) & SI(Q2="None";"";" " & Q2))

Attention : j'ai rajouté un espace avant chaque morceau
None1 est différent de None et soit on le met (=None1) sout on utilise gauche(...;4)=None
A+

[casefayere]

re,
pour toutes les lignes, je pensais à ça,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub essai()
Dim concat As String, x As Integer, cell As Range, y As Integer
 
For y = 2 To Range("a100").End(xlUp).Row
 For x = 7 To 17 'pour une ligne
If Cells(y, x) <> "none" Then
   concat = concat & Cells(y, x)
Range("a" & Range("a100").End(xlUp).Row + 1) = concat
End If
Next x
Next y
 
End Sub

j'ai corrigé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub essai()
Dim concat As String, x As Integer, cell As Range, y As Integer
 
For y = 2 To Range("a100").End(xlUp).Row
 For x = 7 To 17 'pour une ligne
If Left(Cells(y, x), 4) <> "None" Then
   concat = concat & Cells(y, x)
End If
Next x
Range("z" & Range("z1000").End(xlUp).Row + 1) = concat
concat = ""
Next y
 
End Sub

[mouncefdi]

Merci casefayere et Gorfael pour votre aide précieuse.
Mon problème est résolu grace à vous