Convertir toutes les 3 lignes de données d'une colonne en 3 colonnes
Bonjour,
j'ai une colonne avec une multitude de données
Je voudrais convertir toutes les 3 lignes de données en 3 colonnes
Petite subtilité dans la 2eme ligne il faut supprimer du texte et la 3eme ligne correspond à un lien
vous trouverez ci joint mon tableau initiale et ce que je veux en faire
merci de votre aide , je debute
Bonjour Stéphanie et bienvenue, bonjour le forum,
Pas très clair ! Faire deux lignes devait êtres trop fatiguant...
Les 3 lignes suivantes, tu les veux à partir de la première ligne vide de la colonne D ou tu les veux à partir de la première cellule vide de la ligne 1 ?
Re,
Si première solution :
Sub Macro1()
Dim O As Worksheet
Dim DL As Integer
Dim DEST As Range
Dim I As Integer
Set O = Worksheets("Feuil3")
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row
For I = 1 To DL Step 3
Set DEST = O.Cells(Application.Rows.Count, "D").End(xlUp).Offset(1, 0)
DEST.Resize(1, 3).Value = Application.Transpose(O.Cells(I, "A").Resize(3, 1))
DEST.Offset(0, 1).Select
DEST.Offset(0, 1).Value = Split(DEST.Offset(0, 1).Value, " |")(0)
Next I
End SubBonjour
A partir de la colonne D, c'est très bien
je vais avoir plus de 3000 données a recuperer via ce format la, donc je n'ai pas pu faire 2 lignes je suis désolé
en tout cas merci pour votre aide je ne connais pas la VBA mais je vais m'y mettre
merci à tous
bonjour,
j'ai teste la macro envoyé mais voici l'erreur rencontrée, pouvez vous m'aider
merci
Re,
Pour t'aider, je peux te commenter le code. Mais si tu n'y connais rien...
Tu ne dis pas si le code proposé fonctionne ?!...
Re,
Je m'en doutais. Avec juste deux lignes comme exemple... Je me suis servi des caractères " |" pour supprimer la fin du texte en colonne E mais si ces caractères 'y sont pas la plante.
Il nous faudrait un vrai fichier pour tester et trouver une solution.
bonjour,
voici un fichier plus complet
effectivement je debute
donc c'est un peu compliqué néanmoins je veux apprendre et suis preneuse pour les explications
merci à tous pour votre aide
pour repondre le code fonctionne mais ne reprend pas le lien contenu dans la 3eme ligne uniquement le texte
j'etais passé par les fonctions INDIRECT, et decaler et j'ai rencontré le meme souci d'ou mon appel à l'aide
de plus le texte affiché après la date dne s'enleve pas
merci encore pour votre aide
cordialement
Bonjour Stéphanie94, ThauThème , le forum,
Un essai....en attendant le correctif de ThauThème....
Si il y a beaucoup de lignes, ça risque de ramer un peu....
CTRL + e pour exécuter la macro
Cordialement,
Bonjour le fil, bonjour le forum,
Je dois partir et ne pourrai m'y remettre que fin d'après-midi mais je reste vigilant à ce post...
Re,
Seconde tentative....le traitement devrait être plus rapide...
J'ai préalablement formaté les colonnes D à F...
....toujours CTRL + e pour lancer la macro...
[EDIT] nouvel essai avec recopie de la mise en forme...
Merci tulipe_4 pour la solution via formules,
Cordialement,
Bonjour,
et merci à tous pour votre aide
la solution VBA fonctionne super bien surtout pour les liens
que faut il changer dans la macro si on 4 4 lignes et 4 colonnes afin que je puisse l'adapter le cas echeant
j'avais deja testé les fonctions indirect et decaler (mais au niveau du lien cela ne fonctionne pas)
merci encore à vous tous
cordialement
Re,
Merci pour ton retour,
que faut il changer dans la macro si on 4 4 lignes et 4 colonnes afin que je puisse l'adapter le cas echeant
Voici un essai avec 4 lignes au lieu de 3...
J'ai tenté de commenté le code....
Bonne soirée,
merci beaucoup et surtout pour les explications même si pour le moment j'avoue que c'est un peu "étranger "comme langage cela me permet de voir ou se trouvent les infos à modifier si je veux l'adapter à d'autres circonstances
ce forum va me permettre de répondre à des besoins mais également à apprendre et me perfectionner
merci à tous