concatener

[bono64]

bonjour

Je connais la formule concatener , mais comment faire un choix et les reclasser dans un ordre bien precis ?
bono64

[file name=concatene.zip size=2573]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/concatene.zip[/file]

 

[Hervé]

Bonjour bono

Une solution par VBA en pièce jointe.

Je ne trouve pas tout a fait les memes résultats que toi, je te laisse le soin de vérifier tes données.

salut
[file name=concateneV2.zip size=9377]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/concateneV2.zip[/file]

 

[bono64]

Pas de soucis Hervé c est extra encore une fois
je te remercie , en vba c est vraiment bien , trop dur a apprendre , pourtant j ai essayé
merci l ami
bono

 

[dg62]

Bonjour BOno, hervé


une solution en vba je n'ai pas encore regardé la solution d'Hervé.

Sub concatene()
    mot = ''
    mot1 = ''
    mot2 = ''
    mot3 = ''

For i = 0 To 10
For j = 0 To 4
    valeur = Range('AA7').Offset(i, j).Value
    
    Select Case valeur
    
    Case 1
    mot1 = mot1 & '1'
    Case 2
    mot2 = mot2 & '2'
    Case 3
    mot3 = mot3 & '3'
    End Select
    
    Next j
    mot = mot1 & mot2 & mot3
    Range('AA7').Offset(i, 7).Value=mot
    mot = ''
    mot1 = ''
    mot2 = ''
    mot3 = ''
    
    Next i
    
    
    
End Sub

Message édité par: dg62, à: 10/10/2005 14:16

 

[Hervé]

re bono, salut didier

Didier ta solution est bien plus simple que la mienne. je sortais le marteau pilon pour ecraser une mouche

Merci à toi.

salut

 

[Jocelyn]

Bonjour le Forum,
Bonjour bono64, Hervé, dg62,

voila pour ce qui comme moi ont du mal avec le VBA juste au cas ou dans la pièce jointe celle d'Hervé une solution par formule en colonne AQ

Jocelyn

[file name=concateneV2_20051010145347.zip size=9471]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/concateneV2_20051010145347.zip[/file]

 

[bono64]

et bien je vous remercie à tous vraiment sympa , au moins sur ce probleme j aurais appris
merci et bonne fin de journée
bono

 

[JeanMarie]

Bonjour

Une autre formule, mais à valider par Ctrl+Shift+Entrer
=SOMME((AA7:AE7<4)*AA7:AE7*(10^(NB.SI(AA7:AE7;'<4')-NB.SI(DECALER(AA7;;;1;COLONNE(AA7:AE7)-26);'<4'))))

la valeur 32 étant le n° de la colonne AF.

@+Jean-Marie

PS : Nouvelle édition pour correction de la formule à

Message édité par: JeanMarie, à: 10/10/2005 17:36

 

[bono64]

merci jean marie
je crois que je suis gater pour ce fichier
super