Sélection de colonnes contenant un caractère

[Charles]

Cher forum,

J'aimerai sélectionner, dans une macro, toutes les colonnes d'une feuille dont l'en-tête contient une chaîne de caractères particuliers, p. ex. ###, et n'y arrive pas...

Merci infiniment pour votre aide.

 

[lea]

Bonjour,

Je suppose que le contenu des entêtes dont tu parles sont dans une cellule particulière choisie par toi même, l'ensemble de ces cellules étant sur une unique ligne ?
Si c'est le cas, il te suffit de faire une boucle qui analysera chacune de ces cellules (gestion de caractères correspondant à ton critère) et de retenir ou refuser la colonne correspondante.
Léa

 

[Charles]

Merci Léa, tu supposes juste...

En fait je veux effacer les colonnes (dont l'en-tête contient le critère) selon le code ci-dessous, mais j'obtiens une erreur "Impossible d'obtenir la propriété FindNext de la classe Range". J'imagine que le problème est le shift qui modifie les références...

'------------
Critere = "TEST"
With Range("A1:Z1")
Set Cell = .Find(Critere)
If Not Cell Is Nothing Then
CellDepart = Cell.Address
Do
Cell.EntireColumn.Select
Selection.Delete Shift:=xlToLeft

Set Cell = .FindNext(Cell)
Loop While Not Cell Is Nothing And Cell.Address <> CellDepart
End If

End With
'---------------

Une suggestion ?

Merci bcp

 

[Hervé]

Bonjour à vous deux et au forum

Sans avoir trop cherché pourquoi ta macro ne fonctionne pas.

Je sais que lorsque que l'on veut supprimer des lignes ou des colonnes d'une feuille, il vaut mieux commencer par la fin et remonter la plage :

Option Compare Text '--------------> permet de s'affranchir des minuscule/majuscule

Public Sub vev2()
Dim critere As String
Dim i As Integer

critere = "TEST"
For i = 26 To 1 Step -1
If Cells(1, i) = critere Then
Columns(i).Delete
End If
Next i
End Sub

Salut
Hervé

 

[Charles]

Merci Hervé, j'ai essayé d'inverser la plage (Range("Z1:A1")) mais le message d'erreur subsiste. C'est vraiment bloquant comme problème...

Je reformule ma question:
Comment par VBA supprimer toutes les colonnes d'une feuille dont la première cellule (en ligne 1) contient une chaîne de caractère particulière ?

Merci d'avance.

 

[Hervé]

re

ben je t'ai envoyer une macro qui fait ca à 14:10 ???

Salut
Hervé

 

[Charles]

Euh... le problème est que je dois faire un Find de "TEST" car les colonnes à supprimer sont p.ex. Nom_TEST, Prénom (TEST), TEST téléphone, etc...
Ou alors je n'ai rien compris ?

 

[Hervé]

Salut

Ceci devrait répondre à ta question :

Option Compare Text
Public Sub vev2()
Dim critere As String
Dim i As Integer

critere = "TEST"
For i = 26 To 1 Step -1
If Cells(1, i) Like "*" + critere + "*" Then
Columns(i).Delete
End If
Next i
End Sub

Salut
Hervé

 

[Charles]

Merci Hervé, ça fonctionne bien.
En fait je suis parti sur le Find car je dois chercher des caractères spéciaux (genre #) que le Like ne semble pas accepter...

Merci encore !

 

[Hervé]

re

si si la fonction like permet de rechercher des caractère spéciaux pour cela il faut qu'ils soient entourés de cochet [] :

If Cells(1, i) Like "[#]" Then

Salut
Hervé

 

[Charles]

Cette fois elle est belle !

Encore mille fois merci Hervé !