Problème pour rassembler plusieurs colonnes

Résolu/Fermé

Mumu007 Messages postés 9 Date d'inscription dimanche 19 janvier 2014 Statut Membre Dernière intervention 8 septembre 2014 - 7 sept. 2014 à 20:55
Mumu007 Messages postés 9 Date d'inscription dimanche 19 janvier 2014 Statut Membre Dernière intervention 8 septembre 2014 - 8 sept. 2014 à 19:53

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

A voir également:

Problème pour rassembler plusieurs colonnes
Comment rassembler plusieurs fichiers pdf en un seul - Guide
Formule moyenne excel plusieurs colonnes - Guide
Classer par ordre alphabétique excel plusieurs colonnes - Guide
Word colonnes indépendantes - Guide
Fusionner deux colonnes excel - Guide

6 réponses

Réponse 1 / 6

borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 7
7 sept. 2014 à 21:07

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)

Réponse 2 / 6

borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 7
7 sept. 2014 à 21:12

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

Réponse 3 / 6

Mumu007 Messages postés 9 Date d'inscription dimanche 19 janvier 2014 Statut Membre Dernière intervention 8 septembre 2014
8 sept. 2014 à 08:05

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

Réponse 4 / 6

borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 7
Modifié par borntobealive le 8/09/2014 à 08:45

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 !

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 dimanche 19 janvier 2014 Statut Membre Dernière intervention 8 septembre 2014
8 sept. 2014 à 08:46

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

Réponse 6 / 6

Mumu007 Messages postés 9 Date d'inscription dimanche 19 janvier 2014 Statut Membre Dernière intervention 8 septembre 2014
8 sept. 2014 à 19:53

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

Discussions similaires

Ecrire sur 2 colonnes indépendantes

Tableau croisé dynamique : différence entre deux colonnes

[TCD] Calcul de pourcentage entre deux colonnes

Discussions similaires

Newsletters