Discussion :

[Laura48]

Bonjour,

Dans un fichier Excel, j'aimerais pouvoir supprimer plusieurs colonnes dont l'intitulé est recherché (Cfr ci-dessous).
Comment puis-je écrire cela autrement pour que l'instruction ne soit pas répétée à plusieurs reprises? (Variable= nom de la colonne)

Code :

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

1
2
3
4
5
wsSheet1.Cells.Find(What:="Village").EntireColumn.Delete
wsSheet1.Cells.Find(What:="Ville").EntireColumn.Delete
wsSheet1.Cells.Find(What:="Pays").EntireColumn.Delete
wsSheet1.Cells.Find(What:="Rue").EntireColumn.Delete
wsSheet1.Cells.Find(What:="Numéro").EntireColumn.Delete

D'avance, merci pour votre aide.

[yadelajoie]

salut,

tu peux essayer quelque chose comme ça. Tu stokes tes noms à chercher dans un tableau et tu fait une boucle pour, comme ça si tu veux rajouter des éléments tu les rajoutes dans ton tableau.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim tableau(5) as string
dim i as integer
 
tableau(0)="Village"
....
tableau(4)="Numéro"
 
'tu lances ta boucle
 
for i=0 To (ubound(tableau)-1)
    wsSheet1.Cells.Find(What:= tableau(i)).EntireColumn.Delete
next i

bonne journée

[henripec]

Bonjour

Est ce qu'une petite procédure du type :

Code :

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

1
2
3
4
 
Sub SupprCol (NomCol as String,MaFeuille as Excel.Worksheet)
MaFeuille.Cells.Find(NomCol).EntireColumn.Delete
End Sub

Avec un appel comme suit:

Code :

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

1
2
3
4
5
6
7
8
 
Dim ListeCol () as Variant
Dim i as Integer
ListCol =  Array("Nom1","Nom2","Nom3")
 
for i = 0 to Ubound (ListCol)
SupprCol(ListCol(i),ActiveSheet)
Next i

Je n'ai pas tester le code, mais ça peut être une piste de rélexion.

[Laura48]

Merci pour votre aide.
Pouvez-vous m'indiquer ce que signifie "ubound"?
J'ai un fichier avec 112 colonnes.
Dois-je indiquer 112 lignes telle que celle-ci dans la procédure?
tableau(0)="Village"
tableau(1)="Numéro"
....
Dois-je construire le tableau dans une feuille séparée et nommer la plage qui constitue le tableau?

Merci

Sorry, je n'y parviens pas. Pouvez-vous être un peu plus précis?

Merci à vous

[Laura48]

Voici...

J'ai fait une compile de vos deux réponses.

Un grand merci et bonne journée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub SuppressionColonne()
 
Dim ListeCol() As Variant
Dim i As Integer
ListeCol = Array("Bonjour", "Village", "Numéro")
 
For i = 0 To (UBound(ListeCol) - 1)
    wsSheet1.Cells.Find(What:=ListeCol(i)).EntireColumn.Delete
Next i
 
End Sub