Discussion :

[jmde]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
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

[Invité]

bonjour,
si tu nous montrais le résulta de la macro fourni par le générateur de macro!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With excl.Sheets(1)
    .Columns("AK").Insert
    .Columns("YA").Offset(, 1).Copy .Columns("AK")
    .Columns("YA").Offset(, 1).Delete
End With

[jmde]

Bonjour,

Merci pour ta réponse.

Le code me donne la colonne Ak Vide et la colonne YA n'a pas bougé.

Je joins la macro faite avec le générateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Columns("AY:AY").Select
    Selection.Cut
    Columns("AK:AK").Select
    Selection.Insert Shift:=xlToRight

Salutations

[jmde]

Bonsoir,

Personne pour m'aider.

Salutations