Discussion :

[Casper1664]

Bonjour tout le monde!

Je suis tout nouveau dans ce forum et je fais appel à vous parce que j'arrive pas à m'en sortir..
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 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

[yoyo3d]

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

[gFZT82]

Bonjour,

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 .
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Casper1664]

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

[gFZT82]

@ 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 ).

[SfJ5Rpw8]

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à..