Déplacer une colonne Excel par vba access
jadami
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 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 :
Et l’endroit ou doit être insérer le code :
Merci pour votre aide.
Salutations
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
2 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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. -
Bonsoir yg_be,
Merci pour ta réponse, mais le code ne donne rien AY ne se déplace pas.
Salutations
