Problème pour rassembler plusieurs colonnes Résolu

Question

Bonjour à tous,
J'aurais besoin d'aide pour résoudre le problème suivant - Problème de concatener une partie de la chaine de caractere (je coince dans le programme).

Au départ 2 colonnes A et B
COLONNE A	                               
3310-PRE | 3310-CTD | 3310-CFC	
3210-PRE | 3210-CTD | 3210-CFC	
COLONNE B
14-09-14 | 14-10-14 | 14-11-14
14-09-14 | 14-10-14 | 14-11-14

J'aimerai que les colonnes C, D, E donnent ce qui suit :

COLONNE C
3310-PRE | 14-09-14
3210-PRE | 14-09-14

COLONNE D
3310-CTD | 14-10-14
3210-CTD | 14-10-14

COLONNE E
3310-CFC | 14-11-14
3210-CFC | 14-11-14

Je joins une image qui peut être plus explicite

Merci d'avance pour votre aide
Salutations

borntobealive · Answer

je vois pas ton image pour nous expliquer tu peux aussi utiliser https://www.cjoint.com/ et tu copie le lien dans un commentaire comme ça on verra ta feuille (en enlevant les valeur confidentiel bien sur)

borntobealive · Answer

Sinon de ce que j'en ai compris je te conseil de parcourir ta colonne A et de regarder la fin de sa value 

dim cel as Range

for each cel in Range("A:A") 
    select case right(cel.value,3)
    case is ="PRE" 
        'tu copie la ligne avec la date 
    case is = "CDT" 
    '...

end select 
next cel

Mumu007 · Answer

J'ai créé un autre fichier (peut-être plus clair) et je l'ai mise sur le site mentionné
https://www.cjoint.com/?3IiiezMH3mn
J'espere que cela fonctionne

Merci

borntobealive · Answer

tu peux essayer ça (à modifier un peu pour ton utilisation) :

Sub recherche()

'declaration des variables
Dim cel As Range
Dim S1() As String
dim S2() As String

For Each cel In Range("A:A").specialcells(xlTextValue)
    S1 = Split(cel.Value, " | ")
    S2 = Split(cel.Offset(0, 1).Value, " | ")
    For i = 0 To UBound(S1)
        cel.Offset(0, 2 + i).Value = S1(i) & " " & S2(i)
    Next i
Next cel

End Sub 
 
cordialement,
N'oubliez pas de marquez votre post comme résolu !

Mumu007 · Answer

Merci beaucoup pour votre aide rapide.  Je vais essayer et je vous tiens informé du résultat.
Muriel

Mumu007 · Answer

Cela fonctionne... Je vous remercie beaucoup pour votre aide.
Sans votre intervention, mon travail aurait pris beaucoup de retard.
Merci mille fois

Problème pour rassembler plusieurs colonnes

6 réponses

Discussions similaires

Newsletters