Discussion :

[cynoq]

Bonjour à tous,
Je cherche à créer une macro qui me permettre de déplacer une colonne en premier dans le même tableau.

Exemple :
- J'ai un tableau de 4 colonnes (Nom, Prénom, Age, Sexe).
- Depuis une liste déroulante, je dois pouvoir sélectionner quelle colonne doit passer en premier.
- L'ordre des colonnes doit toujours rester le même, à l'exception bien évidemment de la colonne déplacée.

Si je sélectionne une autre colonne à mettre en premier, la colonne initialement déplacée doit reprendre sa place du début.

J'avoue ne pas connaître grand chose en VB et je bloque complètement sur ce point.

Merci par avance pour votre coup de main.

[AlainTech]

L'enregistreur de macro est ton ami.
Pour le déplacement de la colonne D, il donne ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 25/01/2008 par AlainTech
'
 
'
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Columns("E:E").Select
    Selection.Cut Destination:=Columns("A:A")
    Columns("A:A").Select
End Sub

Après correction, on peut lui donner cette forme:

Code :

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

1
2
3
4
5
6
Sub AuDebut()
  Dim strCol As String
  strCol = "D" ' Ici, tu peux mettre un InputBox pour donner le choix à l'utilisateur
  Columns(1).Insert Shift:=xlToRight
  Columns(Columns(strCol).Column + 1).Cut Destination:=Columns(1)
End Sub

[cynoq]

Bonjour et merci pour ces infos.
Mon problème est un peu plus complexe dans le sens où je dois conserver l'ordre des colonnes. Si je décide dde déplacer une autre colonne, la colonne qui a été déplcée juste avant doit revenir à sa place initiale.
Je ne peux pas mettre le fichier en démo aujourd'hui, je ne suis pas sur le même ordi. Je pense pouvoir imager ma demande en début de semaine.
Merci quand même pour votre coup de main.

[AlainTech]

J'ai du mal à comprendre le but de cette manoeuvre.

Quoi qu'il en soit, lorsqu'on se rend compte que, pour arriver à ce qu'on veut, le programme commence à prendre la forme d'un usine à gaz, il est temps de se demander s'il ne faut pas envisager les choses autrement.

Puisqu'il s'agit de présenter la feuille autrement, pourquoi ne pas créer une feuille uniquement pour la présentation et garder la feuile d'origine avec son ordre de colonnes préservé?

Autre piste: Avoir une colonne vide en début de feuille pour y dupliquer la colonne qu'on veut voir en premier.