macro allignant de 4 lignes sous excel Résolu/Fermé

Question

Bonjour,
J'ai besoin d'une macro qui pourrait :
- Me grouper chaque 4 lignes de mon classeur excel en une seule.
Je n'ai vraiment pas d'idée pour le moment et j'en ai vraiment besoin.
Merci d'avance.

hich24 · Answer

comment regrouper ?
mettre une seule couleur par exemple ?
faire la somme ?

mettre un tres de separation !!!

Utilisateur anonyme · Answer

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

hich24 · Answer

tu peut utiliser le caractére concatiner " & " 
ex A1= " lm "       A2 = " ZE "               

B2=A1 & A2 , ca donne " lmZE "

Utilisateur anonyme · Answer

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

lermite222 · Answer

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+

Utilisateur anonyme · Answer

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

michel_m · Answer

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

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

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

michel_m · Answer

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

Utilisateur anonyme · Answer

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.

michel_m · Answer

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

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

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.

lermite222 · Answer

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+

Utilisateur anonyme · Answer

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.

Macro allignant de 4 lignes sous excel

16 réponses

Discussions similaires