Sujet Précédent Sujet Suivant

Déplacer une colonne Excel par vba access

Fermé
jadami - 17 juin 2017 à 10:11
yg_be Messages postés 23521 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 9 avril 2025 - 25 juin 2017 à 20:29
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 23521 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 9 avril 2025 Ambassadeur 1 578
17 juin 2017 à 11:30
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
25 juin 2017 à 20:14
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 23521 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 9 avril 2025 1 578
25 juin 2017 à 20:29 
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