Macro allignant de 4 lignes sous excel

Re,
Je ne comprends vraiment pas votre intervention, au lieu de faire des remarques , qui ne servent à rien, montre toi plutôt utile et propose une solution, par ce que jusqu'à présent ta seule intervention n'aide vraiment en rien, et pour le fait de progresser, je suis une vrai débutante et je n'ai jamais toucher à des macros dans ma vie, c ma première expérience là-dessus, je suis bloquée et je demande de l'aide, c'est un forum d'entraide je te le rapelle.

comment regrouper ?
mettre une seule couleur par exemple ?
faire la somme ?

mettre un tres de separation !!!

Merci hich24 pour la réponse, mais je crois que je me suis mal exprimée, je veux dire par regrouper, mettre des informations figurant sur 4 lignes sur une seule:
exp:
formes initiale:
123 esx 456 00 abs
145 nfm 00 356 00 56
256 mpl 33 899 iz
963 3265 lkji 23 pmd 2563
569 mol in 456 256 ilp kdm
365 ildm 25986 365 142 486
14568 opm imp
nhkopm 4568 mlp 896 100
Forme voulue:
123 esx 456 00 abs 145 nfm 00 356 00 256 mpl 33 899 iz 963 3265 lkji 23 pmd
569 mol in 456 256 ilp kdm 365 ildm 25986 365 142 486 14568 opm imp nhkopm 4568 mlp 896 100

ps: les valeurs ke j'ai mises sont purement aléatoires

Merci d'avance

tu peut utiliser le caractére concatiner " & "
ex A1= " lm " A2 = " ZE "

B2=A1 & A2 , ca donne " lmZE "

et cmt je peux faire ça avec 1e macro ki va s'executer sur 1 fichier excel de 70 Ko ?

Bonjour,

Forme voulue: 
123 esx 456 00 abs 145 nfm 00 356 00 256 mpl 33 899 iz 963 3265 lkji 23 pmd 
569 mol in 456 256 ilp kdm 365 ildm 25986 365 142 486 14568 opm imp nhkopm 4568 mlp 896 100 

Dans une seule cellules ou dans les cellules adjascentes ?
Supprimer les lignes ?

A+

bi1 sur ds des colonnes adjacentes, chak variable ds une cellule à part mais sur la mm ligne

Bonjour,

J'ai peu anticipé la réponse à Lermite (Bonjour, Louis ca va?)

tableau de départ en ligne1 colonneA
restitution en feuil2

Sub lignes()
Dim ligne As Long, lig As Long
derlig = Sheets(1).Range("A65536").End(3).Row
lig = 1
For ligne = 1 To derlig Step 4
    
   ecrire ligne, lig
   lig = lig + 1
Next
End Sub

Sub ecrire(cptr As Long, lig_sh2 As Long)
 For grp = 0 To 3
            der_col = Sheets(1).Cells(cptr + grp, 256).End(xlToLeft).Column
                For col = 1 To der_col
                    cellules = cellules & Cells(cptr + grp, col) & " "
                Next
        Next
         tablo = Split(cellules)
        Sheets(2).Cells(lig_sh2, 1).Resize(1, UBound(tablo)) = tablo
        
End Sub

Bonjour michel_m
Merci pour la reponse je l'essayeré et je te ferais signeaprès.
Merci pour vs ts

Bonjour
g un problème d'execution à ce niveau : Sheets(2).Cells(lig_sh2, 1).Resize(1, UBound(tablo)) = tablo
je suis vraiment 1e debutante et je ne s pas dutt cmt my prendre.
cmt procedez mnt ?
merci infiniment

bonjour,
je ne sais pas; chez moi ca marchait et ca a marché pour une demande ressemblante à la tienne...
avec juste une ligne et sans me dire le message d'erreur, je ne peux rien faire
donc, précise...

Bjr
l'erreur est la suivante:
erreur d'execution '9':
l'indice n'apartient pas à la selection.
et comme option. Fin, debogage, Aide.
c tt.

Met un extrait de ton classeur sans données confidentielles sur:
https://www.cjoint.com/
et colles le lien proposé dans ta réponse

merci, pour la sol , je l'ai experimenter et ça marche, le probleme etait que la fueille 2 ou il devait exporter le resultat n'existait, donc je l'ai inserer et par la suite executer la macro, et mnt ça marche
merci infiniment,
enfait ce n'ets k1e partie de lapplication ke je veux :) donc je vais essayer de progresser 1 peu et 1e fois ke je me blokeré je feré appel à vs :)
thx a lot

Bonjour
Me revoilà :)
à présent j'aimerais modifier ma macro de tel sorte:
- Au lieu de m'aligner les 4 lignes en une seule, j'aimerai pluto qu'il me regroupe toutes les lignes entre les caractères: ========= et -------------------
Exp:
état présent:
======================================================================================================================
I2497-0001B SIMU51 BT TK24 B IM9 NR 690
5187VCSPA A PA C 1100VU 112
2184VCSPA A PA C 191
SIMU51

----------------------------------------------------------------------------------------------------------------------
Resultat souhaité:

I2497-0001B SIMU51 BT TK24 B IM9 NR 690 5187VCSPA A PA C 1100VU 112 2184VCSPA A PA C 191 SIMU51

Bien sur le tout sur 1e seule ligne et on ignorant les lignes contenant les caractères === et --------------
merci d'avance.

Re,
En premier, il est souhaitable d'écrire en Français et non en mode SMS.
Ensuite tu dis...

enfait ce n'ets k1e partie de lapplication ke je veux :) donc je vais essayer de progresser 1 peu et 1e fois ke je me blokeré je feré appel à vs :) 

Et bien montre un peu ce que tu a fait pour "Progresser 1 peu" !!
A+