Supprimer lignes si valeurs dans un tableau

[JCC0127]

Bonjour le forum,

Je débute dans le VBA et je voudrais supprimer des lignes d'une feuille Excel si un mot qui est dans un tableau se trouve dans la colonne A !

J'ai commencé un macro, mais je ne sais pas comment faire chercher dans un tableau.
Merci dfe votre aide

Sub test()

Dim x As Integer

For x = Range('A65536').End(xlUp).Row To 2 Step -1
If Not UCase(Range('A' & x)) Like '*ECHSITE*' Then
Rows(x).Delete
End If
Next

End Sub

JCC

 

[PascalXLD]

Bonjour

Tu entends quoi par 'un mot qui est dans un tableau ' ???

 

[JCC0127]

Et bien, j'ai une colonne dans une autre feuille (je peux aussi la mettre dans la même feuille si c'est plus simpe)avec des mots qui se trouvent aussi dans mon tableau dans la colonne A.
Ils servent de critères de recherche.

JCC

 

[JCC0127]

Je viens d'essayer ceci, mais ça vide mon tableau !!

Sub test()

Dim x As Integer

For x = Range('A65536').End(xlUp).Row To 2 Step -1
If Not UCase(Range('A' & x)) Like '*ECHSITE*' Or UCase(Range('A' & x)) Like '*COMMUN*' Then
Rows(x).Delete
End If
Next
End Sub

JCC

 

[Thilam]

Bonjour,
Tu peux utiliser la fonction excel RECHERCHEV (en anglais et en VBA: VLOOKUP) sous la forme d'une fonction de feuille de calcul:

WorksheetFunction.Vlookup( arg1,arg2,arg3,arg4)
Cdt
Thilam

 

[JCC0127]

Heuu... Merci !!
Mais comment utiliser cette commande dans mon cas ?

Sub test()

Dim x As Integer

For x = Range('A65536').End(xlUp).Row To 2 Step -1
If Not UCase(Range('A' & x)) Like '*ECHSITE*' Or UCase(Range('A' & x)) Like '*COMMUN*' Then
Rows(x).Delete
End If
Next
End Sub

Merci.
JCC

 

[Thilam]

Okay on va changer de méthode,

Est-ce que ça te parles plus:

Sub test()
For Each cell1 In Range('colonne')
For Each cell2 In Range('tableau')
If cell1 = cell2 Then
cell1.EntireRow.Delete
GoTo suite
End If
Next cell2
suite:
Next cell1
End Sub

Où 'colonne' est le nom du champ que tu balayes (A1:A65500 dans ton exemple)
et 'tableau' le nom de champ donné à ton tableau (attention il vaut mieux qu'il soit sur un autre onglet vu que la macro supprime des lignes).

Cdt
Thilam

 

[JCC0127]

Quelqu'un pourait-il m'aider, SVP ?
Comment utiliser la commande 'WorksheetFunction.Vlookup( arg1,arg2,arg3,arg4)' dans ce cas ?


Sub test()

Dim x As Integer

For x = Range('A65536').End(xlUp).Row To 2 Step -1
If Not UCase(Range('A' & x)) Like '*ECHSITE*' Or UCase(Range('A' & x)) Like '*COMMUN*' Then
Rows(x).Delete
End If
Next
End Sub

Merci d'avance.
JCC
:huh:

 

[JCC0127]

Ok !!

On a écris en même temps !!
J'essaie ta méthode !!
Merci !!

JCC

 

[JCC0127]

Rebonjour !!

Merci !
Ca fonctionne !!
Est-ce qu'il y a un moyen pour que cell2 soit un mot compris dans la cellule même au milieu d'une phrase ?

:huh:

JCC

 

[Thilam]

essaie de remplacer

If cell1=cell2 then
par
If Instr(cell1,cell2,1)>0 Then

L'argument final permet de dire si on tient compte des majuscules ou non. Pour plus d'infos sur Instr -> aide en ligne VB
Cdt
Thilam