OVH Cloud OVH Cloud

Rassembler texte éparpillé

9 réponses
Avatar
YeTi
Bonjour,

J'essaie depuis un petit moment de "rassembler" (mettre l'un en dessous
l'autre) plusieurs mots qui sont des cellules éparpillées.

Exemple:
A1: Bonjour
A5: Ca va?
A10: Aurevoir

Et j'aimerais, grâce a une macro, rassembler le tout comme ceci:
A1: Bonjour
A2: Ca va?
A3: Aurevoir

Il faut utiliser une boucle, mais je n'y arrive pas!
Merci d'avance

9 réponses

Avatar
AV
Sélection A1 >> Axx > Edition Q> Atteindre > Cellules > Vides > Supprimer

AV
Avatar
YeTi
Ce n'est pas vraiment ce que j'attendais, car j'ai des choses écrites en dans
d'autres colonnes...

Personne n'a une autre solution (VBA de préférence)


Sélection A1 >> Axx > Edition Q> Atteindre > Cellules > Vides > Supprimer

AV





Avatar
Daniel
Bonjour.
Ca ?
[A2] = [A5]
[A3] = [A10]
Pourquoi une boucle ?
Cordialement.
Daniel
"YeTi" a écrit dans le message de news:

Bonjour,

J'essaie depuis un petit moment de "rassembler" (mettre l'un en dessous
l'autre) plusieurs mots qui sont des cellules éparpillées.

Exemple:
A1: Bonjour
A5: Ca va?
A10: Aurevoir

Et j'aimerais, grâce a une macro, rassembler le tout comme ceci:
A1: Bonjour
A2: Ca va?
A3: Aurevoir

Il faut utiliser une boucle, mais je n'y arrive pas!
Merci d'avance


Avatar
YeTi
Ce n'est pas forcément A5 et A10... Ca pourrait etre A3 et A8, A9 et A24...
C'est variable! C'est pour ca que je pensais a une boucle


Bonjour.
Ca ?
[A2] = [A5]
[A3] = [A10]
Pourquoi une boucle ?
Cordialement.
Daniel
"YeTi" a écrit dans le message de news:

Bonjour,

J'essaie depuis un petit moment de "rassembler" (mettre l'un en dessous
l'autre) plusieurs mots qui sont des cellules éparpillées.

Exemple:
A1: Bonjour
A5: Ca va?
A10: Aurevoir

Et j'aimerais, grâce a une macro, rassembler le tout comme ceci:
A1: Bonjour
A2: Ca va?
A3: Aurevoir

Il faut utiliser une boucle, mais je n'y arrive pas!
Merci d'avance







Avatar
AV
| Ce n'est pas vraiment ce que j'attendais,

Ah bon...
Ben toutes mes excuses alors

| car j'ai des choses écrites en dans d'autres colonnes...

Ben tu n'as qu'à supprimer les lignes entières

| Personne n'a une autre solution (VBA de préférence)

Utilise l'enregistreur de macros..
C'est LA solution pour débuter

Pfff.....
AV
Avatar
Daniel
Comment détermines-tu les cellules à copier ?
Daniel
"YeTi" a écrit dans le message de news:

Ce n'est pas forcément A5 et A10... Ca pourrait etre A3 et A8, A9 et
A24...
C'est variable! C'est pour ca que je pensais a une boucle


Bonjour.
Ca ?
[A2] = [A5]
[A3] = [A10]
Pourquoi une boucle ?
Cordialement.
Daniel
"YeTi" a écrit dans le message de news:

Bonjour,

J'essaie depuis un petit moment de "rassembler" (mettre l'un en dessous
l'autre) plusieurs mots qui sont des cellules éparpillées.

Exemple:
A1: Bonjour
A5: Ca va?
A10: Aurevoir

Et j'aimerais, grâce a une macro, rassembler le tout comme ceci:
A1: Bonjour
A2: Ca va?
A3: Aurevoir

Il faut utiliser une boucle, mais je n'y arrive pas!
Merci d'avance









Avatar
YeTi
J'explique en 2 mots le principe:

1) L'utilisateur a coché une 1ère fois des checkbox pour déterminer quelles
branches il étudie à l'école

2)L'utilisateur coche une 2ème fois des checkbox pour déterminer les
branches principales

3)Les branches cochée (2ème fois) sont copiées de la colonne A vers la B

4)La les branches sont éparpillée et il faut qu'elles soient rassemblées

C'est juste le point 4 qu'il me manque



Comment détermines-tu les cellules à copier ?
Daniel
"YeTi" a écrit dans le message de news:

Ce n'est pas forcément A5 et A10... Ca pourrait etre A3 et A8, A9 et
A24...
C'est variable! C'est pour ca que je pensais a une boucle


Bonjour.
Ca ?
[A2] = [A5]
[A3] = [A10]
Pourquoi une boucle ?
Cordialement.
Daniel
"YeTi" a écrit dans le message de news:

Bonjour,

J'essaie depuis un petit moment de "rassembler" (mettre l'un en dessous
l'autre) plusieurs mots qui sont des cellules éparpillées.

Exemple:
A1: Bonjour
A5: Ca va?
A10: Aurevoir

Et j'aimerais, grâce a une macro, rassembler le tout comme ceci:
A1: Bonjour
A2: Ca va?
A3: Aurevoir

Il faut utiliser une boucle, mais je n'y arrive pas!
Merci d'avance














Avatar
Daniel
Essaie :

Sub test()
Dim DerLigne As Long
DerLigne = Range("B65536").End(xlUp).Row
For i = DerLigne To 1 Step -1
If Range("B" & i).Value = "" Then
Range("B" & i).Delete xlShiftUp
End If
Next i
End Sub

Daniel
"YeTi" a écrit dans le message de news:

J'explique en 2 mots le principe:

1) L'utilisateur a coché une 1ère fois des checkbox pour déterminer
quelles
branches il étudie à l'école

2)L'utilisateur coche une 2ème fois des checkbox pour déterminer les
branches principales

3)Les branches cochée (2ème fois) sont copiées de la colonne A vers la B

4)La les branches sont éparpillée et il faut qu'elles soient rassemblées

C'est juste le point 4 qu'il me manque



Comment détermines-tu les cellules à copier ?
Daniel
"YeTi" a écrit dans le message de news:

Ce n'est pas forcément A5 et A10... Ca pourrait etre A3 et A8, A9 et
A24...
C'est variable! C'est pour ca que je pensais a une boucle


Bonjour.
Ca ?
[A2] = [A5]
[A3] = [A10]
Pourquoi une boucle ?
Cordialement.
Daniel
"YeTi" a écrit dans le message de
news:

Bonjour,

J'essaie depuis un petit moment de "rassembler" (mettre l'un en
dessous
l'autre) plusieurs mots qui sont des cellules éparpillées.

Exemple:
A1: Bonjour
A5: Ca va?
A10: Aurevoir

Et j'aimerais, grâce a une macro, rassembler le tout comme ceci:
A1: Bonjour
A2: Ca va?
A3: Aurevoir

Il faut utiliser une boucle, mais je n'y arrive pas!
Merci d'avance
















Avatar
michdenis
Bonjour Yeti,

On Error Resume Next
Range("A:A").SpecialCells(xlCellTypeBlanks).Delete xlUp



Salutations!



"YeTi" a écrit dans le message de news:
Bonjour,

J'essaie depuis un petit moment de "rassembler" (mettre l'un en dessous
l'autre) plusieurs mots qui sont des cellules éparpillées.

Exemple:
A1: Bonjour
A5: Ca va?
A10: Aurevoir

Et j'aimerais, grâce a une macro, rassembler le tout comme ceci:
A1: Bonjour
A2: Ca va?
A3: Aurevoir

Il faut utiliser une boucle, mais je n'y arrive pas!
Merci d'avance