transferer une colonne dans colonne précédente

zesuila

XLDnaute Occasionnel

• 11 Octobre 2016

• #16

Un petit up pour m'aider à terminer ce projet. merci

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 11 Octobre 2016

• #17

Bonjour le forum

Pourquoi la première question parle de 2 colonnes, ensuite on passe à 3 et maintenant à 5 ?
C'est plus simple de dès le départ bien détailler la question.

Tu peux téléverser un nouveau fichier pour expliquer ta dernière demande?

 

Vote positif 0 Vote négatif

zesuila

XLDnaute Occasionnel

• 11 Octobre 2016

• #18

Bonjour
La raison est que j'ai revu mon projet et j'avais oublié ces données donc plus de colonnes qu'au départ 🙁
j'ai essayé de travailler ton code mais comme je le dis plus haut tout fonctionne sauf pour la dernière ligne.
Celle ci se répercute pas correctement, ne se copie pas complètement à la suite.
comme ceci :
colA - ol
col B - ol2
col C - ol3
col D - ol4
col E - ol 5
col f - info
Résultat après ma macro dernière ligne :
col A -ol
col b, c , d , e = rien
col F : info

Voici mon fichier test
et si tu as un moment pour m'expliquer brièvement ton code ce serait adorable.
Merci

 

Pièces jointes

• Classeur3.xls

  18 KB · Affichages: 26

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 11 Octobre 2016

• #19

Macro à tester

VB:

Sub Macro3()
Dim ligne As Long, Compteur As Long, Fin As Long
ligne = Cells(Rows.Count, 1).End(xlUp).Row
For ligne = 2 To ligne
Cells(ligne, 1).Resize(, 5).Copy
Compteur = Cells(Rows.Count, "F").End(xlUp).Row + 1
Cells(Rows.Count, "F").End(xlUp).Offset(1).PasteSpecial Paste:=xlValues, SkipBlanks:=True, Transpose:=True
Cells(Compteur, "G") = Cells(ligne, 6)
Compteur = Compteur + 1
Next
Fin = Cells(Rows.Count, "F").End(xlUp).Row
With Range(Cells(ligne + 1, "G"), Cells(Fin, "G"))
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
Range(Cells(ligne, "G"), Cells(Rows.Count, "F").End(xlUp)).Cut Cells(ligne + 1, 1)
End Sub

 

Vote positif 0 Vote négatif

zesuila

XLDnaute Occasionnel

• 12 Octobre 2016

• #20

Génial !
cela fonctionne à merveille.
Quelle est la différence entre ton code et le mien ? qu'est ce qui a changé pour que toutes les données soient prises en compte ?

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 12 Octobre 2016

• #21

Bonjour le forum

Tu imprimes les deux macros et tu compares ligne par ligne pour trouver les différences.
Elles devraient se situer au niveau de l'identification des plages de cellules.

 

Vote positif 0 Vote négatif