transferer une colonne dans colonne précédente

[zesuila]

Bonjour (il y avait longtemps que je n'étais pas passé par ici )
j'ai besoin d'une macro me permettant de transférer les cellules remplies de la colonne b juste derrière la dernière cellule remplie de la colonne A. C'est possible ?
merci de votre aide

 

[zesuila]

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

 

[Yurperqod]

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?

 

[zesuila]

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

 

[Yurperqod]

Macro à tester

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

 

[zesuila]

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 ?

 

[Yurperqod]

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.