A voir également:
- Transformer des cellules en colonne en ligne toutes les 3 lignes
- Partager photos en ligne - Guide
- Site de vente en ligne particulier - Guide
- Aller à la ligne excel - Guide
- Test performance pc en ligne - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
5 réponses
Bonjour,
Avec cette Macro tes cellules en colonnes F seront réparties sur les 3 premières colonnes :
Il faut que ta feuille soit en première position soit la plus à gauche.
Sub transfert()
Nb_Lgn = Sheets(1).Cells(Rows.Count, 6).End(xlUp).Row
X = 1
Y = 1
For i = 1 To Nb_Lgn
If X = 3 Then
Sheets(1).Cells(Y, X) = Sheets(1).Cells(i, 6)
X = 1
Y = Y + 1
Else
Sheets(1).Cells(Y, X) = Sheets(1).Cells(i, 6)
X = X + 1
End If
Next i
End Sub
Avec cette Macro tes cellules en colonnes F seront réparties sur les 3 premières colonnes :
Il faut que ta feuille soit en première position soit la plus à gauche.
Sub transfert()
Nb_Lgn = Sheets(1).Cells(Rows.Count, 6).End(xlUp).Row
X = 1
Y = 1
For i = 1 To Nb_Lgn
If X = 3 Then
Sheets(1).Cells(Y, X) = Sheets(1).Cells(i, 6)
X = 1
Y = Y + 1
Else
Sheets(1).Cells(Y, X) = Sheets(1).Cells(i, 6)
X = X + 1
End If
Next i
End Sub
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
11 juil. 2013 à 09:28
11 juil. 2013 à 09:28
Bonjour
copiez cette formule en A1 et tirez à droite et vers le bas
=SI(ESTNA(RECHERCHEV(ADRESSE(LIGNE();COLONNE();4;1);$F$1:$F$100;1;0));"";RECHERCHEV(ADRESSE(LIGNE();COLONNE();4;1);$F$1:$F$100;1;0))
j'ai fixé le tableau à 100 lignes, remplacez la valeur 100 par la valeur qu'il vous faut
cdlt
copiez cette formule en A1 et tirez à droite et vers le bas
=SI(ESTNA(RECHERCHEV(ADRESSE(LIGNE();COLONNE();4;1);$F$1:$F$100;1;0));"";RECHERCHEV(ADRESSE(LIGNE();COLONNE();4;1);$F$1:$F$100;1;0))
j'ai fixé le tableau à 100 lignes, remplacez la valeur 100 par la valeur qu'il vous faut
cdlt
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
11 juil. 2013 à 15:48
11 juil. 2013 à 15:48
Bonjour
Je l'ai testé à nouveau et elle fonctionne parfaitement bien.
pour être sûr qu'elle soit bien copiée, faites la manoeuvre suivante
effacer le contenu de la cellule A1 (même si on ne voit rien), restez sur la cellule A1
copiez la formule
=SI(ESTNA(RECHERCHEV(ADRESSE(LIGNE();COLONNE();4;1);$F$1:$F$100;1;0));"";RECHERCHEV(ADRESSE(LIGNE();COLONNE();4;1);$F$1:$F$100;1;0))
et collez là dans la barre de formule et faites "Entrée"
puis étirez là aux autres cellules
si ça ne marche pas, mettez en copie un échantillon de votre feuille sur http:/cjoint.com/
j'attends le résultat
cdlt
Je l'ai testé à nouveau et elle fonctionne parfaitement bien.
pour être sûr qu'elle soit bien copiée, faites la manoeuvre suivante
effacer le contenu de la cellule A1 (même si on ne voit rien), restez sur la cellule A1
copiez la formule
=SI(ESTNA(RECHERCHEV(ADRESSE(LIGNE();COLONNE();4;1);$F$1:$F$100;1;0));"";RECHERCHEV(ADRESSE(LIGNE();COLONNE();4;1);$F$1:$F$100;1;0))
et collez là dans la barre de formule et faites "Entrée"
puis étirez là aux autres cellules
si ça ne marche pas, mettez en copie un échantillon de votre feuille sur http:/cjoint.com/
j'attends le résultat
cdlt
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
11 juil. 2013 à 17:38
11 juil. 2013 à 17:38
J'avoue que j'ai du mal à comprendre le sens de la question initiale par rapport au fichier fourni.
Pourriez-vous me renvoyer le fichier (les 10 premières lignes suffisent)
et mettre dans la feuille 2 le résultat que l'on doit trouver?
Pourriez-vous me renvoyer le fichier (les 10 premières lignes suffisent)
et mettre dans la feuille 2 le résultat que l'on doit trouver?
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
12 juil. 2013 à 07:09
12 juil. 2013 à 07:09
Bonjour
voici, il n'y a plus qu'a cliquer sur le bouton.
https://www.cjoint.com/c/CGmhcXZMGeP
si vous voulez recommencez pour vérifier, les données originales sont sur la feuille 3, recopiez là sur la feuille 2 et cliquez à nouveau sur le bouton
vous pourrez rajoutez des données à la suite, la partie déjà traitée ne sera pas affectée.
bonne réception
cdlt
voici, il n'y a plus qu'a cliquer sur le bouton.
https://www.cjoint.com/c/CGmhcXZMGeP
si vous voulez recommencez pour vérifier, les données originales sont sur la feuille 3, recopiez là sur la feuille 2 et cliquez à nouveau sur le bouton
vous pourrez rajoutez des données à la suite, la partie déjà traitée ne sera pas affectée.
bonne réception
cdlt
Serait-il possible d'obtenir encore un peu d'aide ? j'aurais besoin de la même macro (maintenant je sais les copier et les exécuter) mais mes données en ligne sont désormais en colonne G sur 6 lignes au lieu de 3 et je voudrais les transférer en colonnes G H I J K L. J'ai essayé de bidouiller la macro en changeant les 3 par 6 mais c'était pas ça.
Merci beaucoup d'avance si vous pouvez trouver un peu de temps pour moi.
Merci beaucoup d'avance si vous pouvez trouver un peu de temps pour moi.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
16 juil. 2013 à 04:28
16 juil. 2013 à 04:28
Bonjour
mes données en ligne sont désormais en colonne G sur 6 lignes au lieu de 3 et je voudrais les transférer en colonnes G H I J K L
si je suis à la lettre ce que vous avez écrit, normalement on écrase le contenu de G, alors, ayant un doute, j'ai considéré que les données sont toujours en F mais sur 6 lignes au lieu de 3. si je me suis trompé, faites-le moi savoir , je rectifierai.
en attendant voici la modif
Il n'y a plus qu'à recopier.
bonne journée
cdlt
mes données en ligne sont désormais en colonne G sur 6 lignes au lieu de 3 et je voudrais les transférer en colonnes G H I J K L
si je suis à la lettre ce que vous avez écrit, normalement on écrase le contenu de G, alors, ayant un doute, j'ai considéré que les données sont toujours en F mais sur 6 lignes au lieu de 3. si je me suis trompé, faites-le moi savoir , je rectifierai.
en attendant voici la modif
Sub Transfert() Application.ScreenUpdating = False NbLig = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Range("A2").Select Do While ActiveCell.Row <= Round(NbLig / 6) + 1 If Not IsEmpty(Cells(ActiveCell.Row, 7)) Then GoTo Suivant For i = 1 To 6 Cells(ActiveCell.Row, i + 6).Value = Cells(ActiveCell.Row + i, 6).Value Next i Rows(ActiveCell.Row + 1 & ":" & ActiveCell.Row + 6).Delete Suivant: ActiveCell.Offset(1, 0).Select Loop End Sub
Il n'y a plus qu'à recopier.
bonne journée
cdlt
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
17 juil. 2013 à 04:54
17 juil. 2013 à 04:54
Bonjour
Pour ne pas supprimer une colonne, voici la rectification pour les données qui sont en G
Pour ne pas supprimer une colonne, voici la rectification pour les données qui sont en G
Sub Transfert() Application.ScreenUpdating = False NbLig = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Range("A2").Select Do While ActiveCell.Row <= Round(NbLig / 6) + 1 If Not IsEmpty(Cells(ActiveCell.Row, 8)) Then GoTo Suivant For i = 1 To 6 Cells(ActiveCell.Row, i + 7).Value = Cells(ActiveCell.Row + i, 7).Value Next i Rows(ActiveCell.Row + 1 & ":" & ActiveCell.Row + 6).Delete Suivant: ActiveCell.Offset(1, 0).Select Loop End Sub
Encore moi ! ça fonctionne bien mais il y a un petit souci, ça met 7 lignes en colonne au lieu de 6 et cela que j'utilise la 1ère ou la 2ème macro et donc tout est décalé puisque la 7ème ligne correspond à une autre personne. Pourrais-tu me faire la modification s'il te plait ?
Merci beaucoup et je te prie de m'excuser pour tout ce dérangement.
Merci beaucoup et je te prie de m'excuser pour tout ce dérangement.
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
18 juil. 2013 à 04:53
18 juil. 2013 à 04:53
Bonjour
je dû mal interpréter votre demande parce que chez moi ça marche bien, pourriez-vous me remettre un petit bout de votre fichier (une dizaine de lignes suffiront) pour que je puisse en voir la structure et ainsi l'adapter correctement
A+
je dû mal interpréter votre demande parce que chez moi ça marche bien, pourriez-vous me remettre un petit bout de votre fichier (une dizaine de lignes suffiront) pour que je puisse en voir la structure et ainsi l'adapter correctement
A+
11 juil. 2013 à 12:36
11 juil. 2013 à 14:20
12 juil. 2013 à 04:14