Recherche début d'une valeur dans colonne vb

Résolu/Fermé
pgillou Messages postés 49 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 14 octobre 2010 - 10 sept. 2010 à 11:19
pgillou Messages postés 49 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 14 octobre 2010 - 10 sept. 2010 à 13:27
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 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
10 sept. 2010 à 11:34
Bonjour,
If .Cells(Lig, Col).Value Like "VERR*" Then

A+
0
pgillou Messages postés 49 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 14 octobre 2010 1
10 sept. 2010 à 13:27
Merci pour ta réponse rapide c'est pile poil ce qu'il me fallait.

Bonne après midi
0