Déplacer une colonne Excel par vba access Fermé

Question

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

yg_be · Answer

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.

jadami · Answer

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

Déplacer une colonne Excel par vba access

2 réponses

Discussions similaires