Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA - transformer des colonnes en lignes

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jcf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jcf

Guest
bonjour tout le monde,

J'ai besoin de vos conseils pour une macro (je débute).
J'ai un fichier Excel avec plusieurs colonnes :



J'aimerai créer une nouvelle ligne pour chaque tranches de SDA (SDA_debut -> SDA_fin) en gardant les infos "code_site", "caisse", "NDI_ref_facturation".

Pour avoir le résultat ci-dessous :



Vous avez des conseils ? une idée du déroulement du script ? des fonctions qui pourraient m'aider ?

Merci d'avance ! 🙂
 
Trier par date Trier par votes
Re : VBA - transformer des colonnes en lignes

Bonjour Jcf et bienvenue sur ce forum

Il te faut déjà une boucle pour effectuer l'action sur toutes les lignes
Voci un début de code 😉
Code: 
Sub Test()
Dim DLig as long, Lig as long
' Récupérer la dernière ligne remplie du tableau
DLig = Range("A" & Rows.Count).End(XlUp).Row
' Pour chaque ligne en partant de la fin, mieux pour insérer des lignes
For Lig = DLig to 2 Step -1
  ' Vérifier si sur la ligne il y a d'autres SDA
  ' Si oui insérer une ligne et couper coller les données
Next Lig
End Sub

A+
 
Vote positif 0 Vote négatif
Re : VBA - transformer des colonnes en lignes

Bonjour jcf, bienvenue sur XLD,

Un conseil : joignez le fichier, ça évitera de se fatiguer à le refabriquer.

Quant au script : du couper/coller, en insérant les lignes nécessaires...

Edit : salut Bruno 🙂

A+
 
Vote positif 0 Vote négatif
Re : VBA - transformer des colonnes en lignes

Bonjour, merci pour votre accueil et vos réponses.

Bruno j'ai une question.
Sur la boucle For, pourquoi le "to 2" ?

Code: 
For Lig = DLig to 2 Step -1

Edit : ok je viens de comprendre, je plaisantais pas quand je disais que je débutais xD
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : VBA - transformer des colonnes en lignes

Re,

La macro et le fichier :

Code: 
Sub Regrouper()
Dim lig&, lig1&, col%
Application.ScreenUpdating = False
For lig = [A65536].End(xlUp).Row To 2 Step -1
  lig1 = lig + 1
  col = 6
  While Cells(lig, col) <> ""
    Rows(lig1).Insert
    Cells(lig, col).Resize(, 2).Cut Cells(lig1, 4)
    Cells(lig, 1).Resize(, 3).Copy Cells(lig1, 1)
    lig1 = lig1 + 1
    col = col + 2
  Wend
Next
[F:IV].Delete
End Sub

Edit : j'ai supposé que même sur Excel 2007 le tableau ne dépassera pas la ligne 65536 et la colonne IV.

S'il peut dépasser ces limites dites-le, je modifierai légèrement la macro.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : VBA - transformer des colonnes en lignes

Re,

Pour éviter le couper ou copier/coller qui prennent trop de temps de calcul, procéder comme suit :

- mettre les colonnes A à E au format Texte (pour conserver les zéros devant les nombres)

- faire un transfert des valeurs avec cette macro :

Code: 
Sub Regrouper()
Dim lig&, lig1&, col%
Application.ScreenUpdating = False
For lig = [A65536].End(xlUp).Row To 2 Step -1
  lig1 = lig + 1
  col = 6
  While Cells(lig, col) <> ""
    Rows(lig1).Insert
    Cells(lig1, 4).Resize(, 2) = Cells(lig, col).Resize(, 2).Value
    Cells(lig1, 1).Resize(, 3) = Cells(lig, 1).Resize(, 3).Value
    lig1 = lig1 + 1
    col = col + 2
  Wend
Next
[F:IV].Delete
End Sub
Fichier(2).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : VBA - transformer des colonnes en lignes

remercie!!
ça me donne vraiment envie de me plonger à fond dans le VBA. T'as un livre que tu recommandes pour s'initier job75 ??
J'essaye de bien comprendre le code mais j'ai encore un petit doute.

Le resize c'est pour sélectionner plusieurs champs ? (sur l'aide F1 c'est pas super bien expliqué même si ça parait logique dans ton code)

On créée une ligne sous la ligne qu'on veut copier
Code: 
Rows(lig1).Insert
Sur cette ligne on se positionne sur la 4eme colonne, on prend 2 champs (resize?) et on copie la valeur des deux champs de la colonne d'au dessus.
Code: 
Cells(lig1, 4).Resize(, 2) = Cells(lig, col).Resize(, 2).Value

J'ai tout bon ?

Et sur le premier code je ne comprenais pas pourquoi il y avait un espace entre le CUT et le 2eme CELLS
Code: 
Cells(lig, col).Resize(, 2).Cut Cells(lig1, 4)

merci d'avoir passé du temps à optimiser le code en tout cas!
 
Vote positif 0 Vote négatif
Re : VBA - transformer des colonnes en lignes

Re,

Oui je pense que vous avez compris le Resize :

Code: 
plage.Resize(n1, n2)
redimensionne plage en lui donnant n1 lignes et n2 colonnes, la 1ère cellule (en haut à gauche) restant la même.

Quant à l'espace après Cut ou Copy, c'est la syntaxe imposée par VBA, voyez l'aide.

A+
 
Vote positif 0 Vote négatif
Re : VBA - transformer des colonnes en lignes

Bonsoir,

Merci à @jcf
Ah j'aime bien pour la fonction Resize que je ne connaissais pas et qui va m'éviter des calculs de plages de cellules lourdes à souhait (par exemple pour traiter un Sudoku)

Hellnar
 
Vote positif 0 Vote négatif
Re : VBA - transformer des colonnes en lignes

Salut a tous,

Je souhaiterai faire exactement le contraire.

D'une liste en lignes je voudrais organiser mes données en colonne.

Pourriez vous me fournir le code VBA svp ?

Merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : VBA - transformer des colonnes en lignes

ok, et ? C est interdit ?

Je suis bloqué je cherche de l'aide c est tout.

Si t'en as a m'apporter, je suis preneur.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

H
  • Question Question
XL 2019 masquer des colonne sous condition d'une cellule en vba
Réponses
5
Affichages
181
sylvanu
  • Résolu(e)
XL 2021 tri par lignes
2
Réponses
19
Affichages
1 K
rastafouette
M
  • Question Question
Power Query Fractionner et modifier les colonnes d'un tableau
2
Réponses
18
Affichages
1 K
job75
L
  • Résolu(e)
Microsoft 365 Vba formulaire en bogage avec les ongles masqués
2 3
Réponses
30
Affichages
577
fanfan38
B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
540
Phil69970
D
  • Question Question
XL 2021 Formule Excel dans VBA
Réponses
3
Affichages
159
dl87671
D
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
L
  • Question Question
XL 2021 calcul de variation
Réponses
1
Affichages
447
C'est papy Mougeot !
J
  • Question Question
Microsoft 365 VBA transformer une formule au format texte en formule dans excel
Réponses
2
Affichages
267
jujulili
J
  • Résolu(e)
Microsoft 365 Powerquery - Total par Compte / lignes en insérant des colonnes
Réponses
5
Affichages
309
chris
N
  • Question Question
Microsoft 365 Besoin d'aide sur VBA
Réponses
7
Affichages
308
vgendron
O
  • Question Question
XL 2021 finaliser un script VBA pour répartir une liste de personnes dans des villes.
2
Réponses
19
Affichages
722
gbinforme
G
O
  • Résolu(e)
XL 2013 VBA/ Macro qui classe des données dans une colonne unique
Réponses
5
Affichages
198
onyirimba
O
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
448
TooFatBoy
S
  • Question Question
XL 2021 Pause dans VBA
Réponses
2
Affichages
149
stefb1968
S
J
  • Question Question
Microsoft 365 [RESOLU] vba dupliquer contenu d'une cellule en colonnes jusqu'à ligne vide
Réponses
3
Affichages
206
job75
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
367
agayet
A
H
  • Résolu(e)
XL 2016 Trouver le poste en fonction des heures
Réponses
3
Affichages
177
hutch57
H
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
501
xavieralvaro
X
L
  • Question Question
XL 2019 Créer des dossiers et sous dossiers avec VBA
2
Réponses
19
Affichages
744
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…