Recherche début d'une valeur dans colonne vb

Résolu
pgillou Messages postés 49 Date d'inscription   Statut Membre Dernière intervention   -  
pgillou Messages postés 49 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

Novice envb ,je cherche à parcourir une colonne à la recherche d'une valeur mais en indiquant dans le code les première lettes et en les insérant dans le code suivant.

Sub ERGRA_VERRCDE()


Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

Sheets("REGROUPEMENT A").Activate
NumLig = 0
Col = "B" ' colonne de la donnée non vide à tester
NumLig = 0
With Sheets("carnet de dep a") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = "VERR.CDE COND./EMISS.TCFM" Or .Cells(Lig, Col).Value = "VERROUIL. AUT. COND" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig + 30, 4).Select
ActiveSheet.Paste Link:=True
End If
Next
End With
End Sub

En gras la ligne à modifié pour exemple je souhaiterai trouvé la valeur "test" en cherchant "te".

Merci de votre aide!
A voir également:

2 réponses

lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
If .Cells(Lig, Col).Value Like "VERR*" Then

A+
0
pgillou Messages postés 49 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci pour ta réponse rapide c'est pile poil ce qu'il me fallait.

Bonne après midi
0