Bonjour
Je souhaite faire une recherche dans un répertoire en fonction de la valeur d'une cellule, par exemple, si la valeur de la cellule C5 est présente dans le répertoire alors G5 = "OUI" sinon G5=""
Voila ce que j'ai fait, ça fonctionne pour une cellule en particulier mais je n'arrive pas à l’incrémenter pour toutes les cellules de la feuille:
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub AUDIT() Dim i As Integer For i = 1 To 20 If Dir("C:/Documents") = Cells(i, 2) Then Cells(i, 7) = "" Else Cells(i, 7) = "OUI" End If Next End Sub
Jérémy
Partager