Problème pour rassembler plusieurs colonnes

Résolu
Mumu007 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -  
Mumu007 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -
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

6 réponses

Réponse 1 / 6
borntobealive Messages postés 138 Date d'inscription   Statut Membre Dernière intervention   7
 
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)
0
Réponse 2 / 6
borntobealive Messages postés 138 Date d'inscription   Statut Membre Dernière intervention   7
 
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



0
Réponse 3 / 6
Mumu007 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 4 / 6
borntobealive Messages postés 138 Date d'inscription   Statut Membre Dernière intervention   7
 
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 !
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Mumu007 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup pour votre aide rapide. Je vais essayer et je vous tiens informé du résultat.
Muriel
0
Réponse 6 / 6
Mumu007 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
Cela fonctionne... Je vous remercie beaucoup pour votre aide.
Sans votre intervention, mon travail aurait pris beaucoup de retard.
Merci mille fois
0

Discussions similaires

Ecrire sur 2 colonnes indépendantes
randall -
morinc -

4 réponses