XL 2013 macro supprimer colonne contenant le mots teste1

[arrazki]

Bonjour,

je n'arrive pas a créer une macro qui supprime la colonne contenant le mot teste1

Sub Supp teste1
Dim I As Integer
For I = [A65000].End(xlUp).Row To 1 Step -1
If Cells(I, 1).Find("test1") Is Nothing Then Rows(I).Delete
Next I
End Sub

comment je peux faire pour supprimer uniquement la colonne contenant le mot "teste1"

Pouvez vous m'aider svp?

 

[phlaurent55]

Bonjour arrazki,

For I = [A65000].End(xlUp).Row To 1 Step -1
If Not Cells(I, 1).Find("*test1*") Is Nothing Then Rows(I).Delete
Next I

à+
Philippe

EDIT:

à vérifier, s'agit-il de supprimer teste1 comme indiqué dans la demande

ou supprimer test1 comme indiqué dans l'exemple donné

 

[herve62]

Si je reste logique Arrazki cite :

la colonne contenant le mot "teste1"

donc pourquoi ne pas chercher *teste1* plutôt que *test1* ?

Edit : Philippe on vient de se croiser dans nos réponses !!

 

[phlaurent55]

Si je reste logique Arrazki cite :
donc pourquoi ne pas chercher *teste1* plutôt que *test1* ?

Edit : Philippe on vient de se croiser dans nos réponses !!

Malheureusement l'avenir ne nous dira pas s'il faut chercher test1 ou teste1 car ce n'est pas dans les habitudes de ce questionneur de revenir dire si la réponse convient

Pour répondre sur ce forum, il faudrait parfois utiliser une boule de cristal ....... d'Arques

.