Recherche un critère sur plusieurs colonnes

Bonjour

Voici une formule que je cherche à modifier.

Dim Critere_1 As String

Dim DerniereLigne_1 As Integer

'Affectation des variables

Critere_1 = TextBox1.Value

'On récupère la dernière ligne de la source de données

If Cells(Rows.Count, 18).End(xlUp).Row = 1 Then

DerniereLigne_1 = 2 ' Demarre à la deuxième ligne

Else

DerniereLigne_1 = Cells(Rows.Count, 18).End(xlUp).Row

End If

'On efface le contenu de la liste à chaque recherche.

ListBox1.Clear

'On parcours la source de données de la ligne à la dernière ligne

For j = 2 To DerniereLigne_1

'On teste le critère avec la source de données.

If Cells(j, 18) = Critere_1 Then

'On écrit dans la listbox

Me.ListBox1.AddItem Cells(j, 1) ' Charge le N° d'enregistrement

Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(j, 2) ' Charge le Nom

End If

Next j

J'aimerai si possible rechercher le critère dans les colonnes 18 19 20 21 22 23 24.

Exemple : la recherche démarre de 18 (Colonne R2) doit passer en (Colonne S2) ect..... jusqu"à Colonne X2

reprendre en Colonne R3 ect....... Jusqu'en bas du tableau qui contient X lignes.

Je vous en remercie car je galère vraiment beaucoup

Bonjour,

Exemple : la recherche démarre de 18 (Colonne R2) doit passer en (Colonne S2) ect..... jusqu"à Colonne X2

reprendre en Colonne R3 ect....... Jusqu'en bas du tableau qui contient X lignes.

Dans ce cas, il te faut utiliser :

Dim Plage As Range
Dim Cel As Range

set Plage=Range(Ce que tu veux comme plage)

For Each Cel In Plage

    If Cel.Value = Critere_1 Then
        '...
        '...
    End If

Next Cel

car le compilateur parcours la plage comme tu lis un texte, de gauche à droite et de haut en bas !

Je te remercie beaucoup Theze.