Création d'une Macro

Bonjour tout le monde!

Je suis tout nouveau dans ce forum et je fais appel à vous parce que j'arrive pas à m'en sortir..:cry:
Voila j'ai un problème de création d'une macro.
J'ai des cellules (qui commence de Q2 à Q3924) ou il est écrit des chiffres sous cette forme :
'106108
204205
603608

BUT DE LA MANIP' : je voudrais que c'est retour à la ligne de cette même case n'existe plus et que a la place elle soit redistribuer sur cette même ligne à droite comme suit :
'106108 /(changement de case à droite)/204205//603608

Pour faciliter le truc, sur toutes les 3924 lignes je n'ai pas forcement le même nombre de retour à la ligne :lol: il peut y avoir cela par exemple:
'106108
204205

MAIS PAR CONTRE TOUJOURS LE MEME FORMAT!

voila j'espère que j'ai tout dit et je remercie d'avance tioutes les personnes qui m'aideront ;)

Salut, à tout hazard, as tu essayé de remplacer "/" ou "//" par "rien" sans passer apr une macro.???

Bonjour,

Citation:

---

BUT DE LA MANIP' : je voudrais que c'est retour à la ligne de cette même case n'existe plus et que a la place elle soit redistribuer sur cette même ligne à droite comme suit :
'106108 /(changement de case à droite)/204205//603608

---

Pas sûr d’avoir bien compris ce que tu souhaites faire 8O.
Essaie quand même ce code qui sépare une chaine de caractères en plusieurs sous chaines, le séparateur étant le caractère nouvelle ligne Chr(10).
Les textes de la colonne Q sont scindés suivant ce principe, les fragments étant répartis sur les cellules adjacentes, à droite de la colonne Q.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Sub Test() Dim DerLig As Long Dim MaPlage As Range, C As Range Dim Tablo With Worksheets("Feuil1") DerLig = .Range("Q" & .Rows.Count).End(xlUp).Row Set MaPlage = .Range("Q2:Q" & DerLig) For Each C In MaPlage Tablo = Split(C.Value, Chr(10)) C.Resize(1, UBound(Tablo) + 1) = Tablo Next C For Each C In .Range("Q1").CurrentRegion If C <> "" Then If IsNumeric(C) Then C = C.Value * 1 End If Next C End With End Sub

---

Cordialement.

Pour peut etre m'exprimer plus simplement je dirai que j'ai des caractère sont présenté comme suit
'104106
204208
305309

et je veux qu'il soit comme sa

'104106 autre case à sa droite 204208 autre case à sa droite 305309

les "//" etait la pour matérialisé les separations de cas ..

@ gFZT82 : ton code copier coller ne marche pas :(

Citation:

---

@ gFZT82 : ton code copier coller ne marche pas

---

Si tu montres un bout de ton fichier, on pourra peut-être comprendre pourquoi.
(ça ne marche pas, c'est un peu vague :whistle2: ).

Bonjour,

pas besoin de macro...

tu commence par insérer des colonnes vides à droite de la colonne à redistribuer puis tu sélectionne la colonne à redistribué :

Menu Donnée/Convertir/ Délimité / caractére de séparation autre, que tu saisie en maintenant la touche alt de gauche actionné puis tu tape 010 sur le clavier numérique ce qui équivaut as saisir le caractére "line feed" ...

et voilà..

Merci beaucoup BBIL,

Sa m'arrange pour beaucoup de chose !! :ccool:

A bientot si besoin est ! :lol: