Discussion :

[bentor22]

Bonjour,

je réalise une macro dans laquelle je dois effacer les colonnes AA, AB, AC et AD.

toutefois les colonnes ont tendance à bouger, donc je veux dire à ma macro d'effacer la colonne ayant pour nom : "A vendre" ; "A ceder" ; "A louer"; "Avoirs" ;
"A rendre".

serait ce possible d avoir une macro de la forme
public sub effacer_colonne ( ... )

l'idéal serait que la macro arrive à lire l'intitulé de la colonne (qui se trouve à la première liigne et que s'il reconnait cet intitulé efface l'ensemble de la colonne.

En vous remerciant par avance pour votre aide.

bien cordialement,

[rvtoulon]

bonjour,
une idée avec la fonction FIND:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub efface_colonne()
 
mescol = Array("A vendre", "A ceder", "A louer", "A voirs", "A rendre")
 
For Each col In mescol
 
Set vrech = Rows(1).Find(col)
 
  If Not vrech Is Nothing Then Columns(vrech.Column).EntireColumn.Delete
 
Next col
End Sub

je met les noms de colonnes que je recherche dans un tableau, je fais une boucle sur ce tableau et je recherche dans la ligne 1 le nom de la colonne, si je le trouve je supprime la colonne entière

[bentor22]

Bonjour,

Merci pour votre réponse.

Toutefois, j aurai aime savoir s il est possible de faire la chose suivante:

Mon fichier a 20 colonnes ( par ex nommé A,B,C,D,E,F,G,H,I,J,K...), j aimerai faire la chose suivante:
Si dans la colonne 1 sont cités des noms de colonne, alors j aimerai que ma macro me supprime la colonne.

Merci par avance pour votre aide

[rvtoulon]

Si les noms de colonnes sont inscrits à partir de A1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub efface_colonne() 
 
For Each col In range("A1:A" & range("A" & rows.count).end(xlup).row) 
  Set vrech = Rows(1).Find(col)   
 
  If Not vrech Is Nothing Then Columns(vrech.Column).EntireColumn.Delete 
 
Next col
 
End Sub

j'ai pas testé mais le principe est là
je parcours chaque cellule utilisé de la colonne A à partir de A1 et je recherche le nom dans la ligne 1 etc...

[bentor22]

ca marche tres bien.

merci enormement