XL 2010 Extraire les valeurs d'une cellule et les repartir dans des colonnes differentes

A

ALK

XLDnaute Nouveau

• 22 Août 2019

• #2

Merci d'avance pour vos reponses

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Août 2019

• #3

Bonjour le fil , ALK

ALK
A vue de nez (puisque pas de fichier Excel exemple joint...)

VB:

Sub test()
Dim c As Range
For Each c In Selection
t = Split(c, Chr(10))
c(1, 2).Resize(, UBound(t) + 1) = t
Erase t
Next
End Sub

 

Vote positif 0 Vote négatif

A

ALK

XLDnaute Nouveau

• 22 Août 2019

• #4

Salut
desolé j'ai oublié le fichier
le voici

 

Pièces jointes

• Classeur1.xlsx

  8.9 KB · Affichages: 10

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Août 2019

• #5

Re

Tu as testé le code que j'ai posté dans le message#3?

 

Vote positif 0 Vote négatif

A

ALK

XLDnaute Nouveau

• 22 Août 2019

• #6

Oui je l'ai testé mais ça m'indique une erreur
et mon fichier original à 3000 ligne et 2 colonne et plusieurs cellule qui contiennent plusieurs valeurs qui je voudrais dispatché dans des colonnes mais sur la meme ligne

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Août 2019

• #7

Re

J'ai testé sans erreur sur ton fichier
En sélectionnant les cellules non vides de la colonne B (en partant de B2), ensuite je lance la macro
et j'obtiens ce que tu souhaites, non ?

 

Vote positif 0 Vote négatif

A

ALK

XLDnaute Nouveau

• 22 Août 2019

• #8

Oui exactement ça marche , je faisais une mauvaise manipulation
Merci infiniment
As-tu des ressources à me proposer pour apprendre VBA?
merci d'avance

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Août 2019

• #9

Re

As-tu des ressources à me proposer pour apprendre VBA?

Cliquez pour agrandir...

Oui
1) ta curiosité
2) ta bibliothèque municipale
3) ce forum et notamment la section Télécharger (rubrique: Leçons et Tutoriaux)
4) L'aide en ligne de VBA
5) Les bons mots-clés dans le moteur de recherche de ton choix
6) une bonne cafetière

 

Vote positif 0 Vote négatif

A

ALK

XLDnaute Nouveau

• 22 Août 2019

• #10

c'est noté ,
je le ferais
Encore merci

 

Vote positif 0 Vote négatif