1 pièce(s) jointe(s)
Fonction find dans tableau avec multiples colonnes
Bonjour,
Je pense que je suis presque au bout, mais je ne trouve pas la boucle qu'il faut pour naviguer dans mes colonnes.
Si quelqu'un peut m'aider ce serait super.
Le but:
Colonne B: Liste de valeur complète
Colonne C à X: Liste de valeur
Je ne sais pas comment faire la boucle pour changé de colonne comme j'ai un range dans ma formule.
Je joins le fichier également.
Merci beaucoup.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| Public Sub test()
Dim ip As String
Dim i, j, x, y As Integer
Dim celluletrouvee As Range
j = 3
x = Cells(1, 2).End(xlDown).Row
'ceci va chercher le numéro de la dernière ligne de la colonne B
For i = 1 To x
ip = Cells(i, 2)
Set celluletrouvee = Range("D1:D238").Find(ip, LookIn:=xlValues, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
'MsgBox ("pas trouvé")
Else
Cells(i, 1) = Cells(i, 1) + 1
End If
Next i
End Sub |
