Macro sur excel

[dixx34]

Bonjour a tous,
Je dois realiser une macro pour mon boulot mais malheureusement je bloque sur l'ecriture de la macro.
En fait j'ai un tableau tres classique et je dois "couper" le tableau a partir de la colonne B et le "coller" sous la colonne A et puis ensuite pareil "couper" le tableau a partir de la colonne C et le "coller" sous B etc ...
Ca doit etre super facile mais je ne sais pas comment lui dire de ne pas toujours remonter a la meme ligne ...
C'est peut etre une question tres facile pour vous messieurs ...
PS : desole pour les accents mais je travaille en Angleterre et comme vous le savez il n'y a pas d'accents sur les claviers QWERTY !!!
Many thanks.

 

[tbft]

Re : Macro sur excel

Bonjour

Serait t'il possible d'avoir un bout de fichier,svp?

 

[dixx34]

Re : Macro sur excel

Yep merci pour ton aide !!!

 

[phlaurent55]

Re : Macro sur excel

Bonjour dixx et bienvenue sur le forum

voir exemple en pièce jointe

à+
Philippe

 

[dixx34]

Re : Macro sur excel

Bonjour et merci pour ton aide mais je ne peux pas demarrer ta macro car le level de securite est trop haut et je ne suis pas super chaud de le baisser.
Comment faire?
Merci pour votre aide, c'est super sympa!

 

[tbft]

Re : Macro sur excel

Bonjour

Je crois malheureusement qu'il n'y a pas d'autre solution.
Il faut que tu le baisse au moins jusqu'au niveau où c'est toi qui choisit à l'ouverture du fichier....

 

[dixx34]

Re : Macro sur excel

Merci tbft et phil je viens de l'ouvrir et c'est vraiment un super exemple. Je sais pas comment vous pouvez faire ca n'empeche. lol!
Mais quand j'essaye de faire pareil avec mon fichier ca ne marche pas. Pouvez vous voir mon fichier en piece jointe et me montrer comment faire.
Merci beaucoup pour votre aide.

 

[tbft]

Re : Macro sur excel

Bonjour

En modifiant légèrement la macro phlaurent55

Sub Macro1()
  Dim nb_col As Long, col As Long
    nb_col = UBound(ActiveSheet.UsedRange.Value, 2)
    Range("B1:B" & Range("B65535").End(xlUp).Row).Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("A" & Range("A65535").End(xlUp).Row).Select
    Cells(ActiveCell.Row + 1, 1).Select
    ActiveSheet.Paste
    For col = 3 To nb_col
      Columns(col).Select
      Selection.Cut
      Cells(1, col - 1).Select
      ActiveSheet.Paste
    Next col
    Range("A1").Select
End Sub

 

[job75]

Re : Macro sur excel

Bonjour le fil,

Je crois malheureusement qu'il n'y a pas d'autre solution.

Si bien sûr, par formule.

Faut juste savoir si l'on veut une macro ou pas 🙂

En A16 et à copier vers le bas :

=INDEX(B$1:D$15;1+MOD(LIGNE()-1;15);ENT((LIGNE()-1)/15))

A+

 

[tbft]

Re : Macro sur excel

Bonjour Job75.

Lorsque je déclare : "Je crois malheureusement qu'il n'y a pas d'autre solution."
Je parle du problème de niveau de sécurité des macros pas du problème initial de dixx34.

 

[dixx34]

Re : Macro sur excel

Merci a tous c'est super sympa pour la reactivite!
Cheers and good luck guys ,)