Macro sur excel

tbft

XLDnaute Accro

• 8 Octobre 2010

• #2

Re : Macro sur excel

Bonjour

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

 

Vote positif 0 Vote négatif

D

dixx34

XLDnaute Nouveau

• 8 Octobre 2010

• #3

Re : Macro sur excel

Yep merci pour ton aide !!!

 

Pièces jointes

• VBA help.xls

  14 KB · Affichages: 35

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Octobre 2010

• #4

Re : Macro sur excel

Bonjour dixx et bienvenue sur le forum

voir exemple en pièce jointe

à+
Philippe

 

Pièces jointes

• 111.xls

  27.5 KB · Affichages: 44
• 111.xls

  27.5 KB · Affichages: 48
• 111.xls

  27.5 KB · Affichages: 43

Vote positif 0 Vote négatif

D

dixx34

XLDnaute Nouveau

• 8 Octobre 2010

• #5

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!

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 8 Octobre 2010

• #6

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....

 

Vote positif 0 Vote négatif

D

dixx34

XLDnaute Nouveau

• 8 Octobre 2010

• #7

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.

 

Pièces jointes

• VBA.xls

  26.5 KB · Affichages: 48
• VBA.xls

  26.5 KB · Affichages: 51
• VBA.xls

  26.5 KB · Affichages: 48

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 8 Octobre 2010

• #8

Re : Macro sur excel

Bonjour

En modifiant légèrement la macro phlaurent55

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Octobre 2010

• #9

Re : Macro sur excel

Bonjour le fil,

tbft à dit:

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

Cliquez pour agrandir...

Si bien sûr, par formule.

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

En A16 et à copier vers le bas :

Code:

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

A+

 

Pièces jointes

• Une seule colonne(1).xls

  23.5 KB · Affichages: 33

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 8 Octobre 2010

• #10

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.

 

Vote positif 0 Vote négatif

D

dixx34

XLDnaute Nouveau

• 8 Octobre 2010

• #11

Re : Macro sur excel

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

 

Vote positif 0 Vote négatif