Déplacer une colonne Excel par vba access

jadami -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Sur ma feuille Excel pilotée par VBA Access je voudrais mettre la colonne AY avant la colonne AK

J’ai essayé avec l’enregistreur de macro, mais je n’arrive pas à l’adapter.

Ci après macro : 

Columns("AY:AY").Select
    Selection.Cut
    Columns("AK:AK").Select
    Selection.Insert Shift:=xlToRight


Et l’endroit ou doit être insérer le code : 

With excl.Sheets(1)
 ‘Inserer  AY après AK
  ??????????,

    'Supprime les colonnes
    .Columns("G:J").Delete
    ‘’
    ‘’
    'Renomme les titres
    .Cells(1, 3) = "Tél portable"
   ‘’
   ‘’
End With


Merci pour votre aide.

Salutations
A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, suggestion: 

With excl.Sheets(1)
 ‘Inserer  AY avant AK
Columns("AK").Insert XlDirection.xlToRight
Columns("AK").Value = Columns("AX").Value
Columns("AX").Delete

    'Supprime les colonnes
    .Columns("G:J").Delete
    ‘’
    ‘’
    'Renomme les titres
    .Cells(1, 3) = "Tél portable"
   ‘’
   ‘’
End With

dans ton texte, tu écris "avant", dans ton commentaire, tu écris "après": bizarre.
0
Réponse 2 / 2
jadami
 
Bonsoir yg_be,

Merci pour ta réponse, mais le code ne donne rien AY ne se déplace pas.

Salutations
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
  
With excl.Sheets(1)
 ‘Inserer  AY avant AK
Columns("AK").Insert XlDirection.xlToRight
Columns("AK").Value = Columns("AZ").Value
Columns("AZ").Delete

    'Supprime les colonnes
    .Columns("G:J").Delete
    ‘’
    ‘’
    'Renomme les titres
    .Cells(1, 3) = "Tél portable"
   ‘’
   ‘’
End With
0