Discussion :

[jackfred]

Bonjour...

Je suis sur Excel et j'ai une base de données avec un certain nombre de colonnes.
Je checrhe à mettre en place une macro qui me permette de supprimer les colonnes inutiles.

Cette macro m'afficherait la liste des intitulées des colonnes dans une boite de dialogue.
En sélectionnant certains intitulés et en cliquant sur "suprimer" les colonnes sélectionnées doivent se supprimer.

Existe-t-il une appli dj réalisée de ce type qui pourrait m'aider...

Vous en remerciant par avance

Fred

[tonton fred]

Salut Fred
Pour la premiere partie (recuperer les intitules)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Intitule() as string
Dim Index as Integer
 
'en supposant que les intitules sont dans la ligne A
Index = 1
do 
  if Range("A" & Index).value <> "" then
    Intitule(Index)=Range("A" & Index).value 
 else 
    exit do
  end if
loop

Pour les recuperer il suffit d'appeller Intitule(Index) quelque part apres. Comme Index est aussi le numero de colonne c'est plus facile.