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
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
A voir également:
- Problème pour rassembler plusieurs colonnes
- Rassembler pdf - Guide
- Somme.si plusieurs colonnes ✓ - Forum Excel
- Word colonnes indépendantes ✓ - Forum Word
- Figer plusieurs colonnes excel ✓ - Forum Excel
- Tableau croisé dynamique différence entre deux colonnes ✓ - Forum Excel
6 réponses
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
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)
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
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
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
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
https://www.cjoint.com/?3IiiezMH3mn
J'espere que cela fonctionne
Merci
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
Modifié par borntobealive le 8/09/2014 à 08:45
tu peux essayer ça (à modifier un peu pour ton utilisation) :
cordialement,
N'oubliez pas de marquez votre post comme résolu !
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
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
8 sept. 2014 à 08:46
Merci beaucoup pour votre aide rapide. Je vais essayer et je vous tiens informé du résultat.
Muriel
Muriel
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
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
Sans votre intervention, mon travail aurait pris beaucoup de retard.
Merci mille fois