Macro allignant de 4 lignes sous excel

Résolu/Fermé

Utilisateur anonyme - 4 mai 2009 à 13:35
Utilisateur anonyme - 8 mai 2009 à 11:58

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.

A voir également:

Macro allignant de 4 lignes sous excel
Liste déroulante excel - Guide
Aller à la ligne excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide

16 réponses

Réponse 1 / 16

Utilisateur anonyme
8 mai 2009 à 11:58

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.

Réponse 2 / 16

hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 752
4 mai 2009 à 19:12

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

mettre un tres de separation !!!

Réponse 3 / 16

Utilisateur anonyme
5 mai 2009 à 11:49

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

Réponse 4 / 16

hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 752
5 mai 2009 à 12:39

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

B2=A1 & A2 , ca donne " lmZE "

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 16

Utilisateur anonyme
5 mai 2009 à 13:00

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

Réponse 6 / 16

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
5 mai 2009 à 13:37

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+

Réponse 7 / 16

Utilisateur anonyme
5 mai 2009 à 13:58

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

Réponse 8 / 16

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
5 mai 2009 à 14:35

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

Réponse 9 / 16

Utilisateur anonyme
5 mai 2009 à 16:01

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

Réponse 10 / 16

Utilisateur anonyme
7 mai 2009 à 16:58

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

Réponse 11 / 16

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
7 mai 2009 à 17:21

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

Réponse 12 / 16

Utilisateur anonyme
7 mai 2009 à 17:31

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.

Réponse 13 / 16

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
7 mai 2009 à 17:55

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

Réponse 14 / 16

Utilisateur anonyme
7 mai 2009 à 19:20

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

Réponse 15 / 16

Utilisateur anonyme
8 mai 2009 à 11:44

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.

Réponse 16 / 16

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
8 mai 2009 à 11:49

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+

Discussions similaires

Afficher toutes les lignes masquées excel

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters