Discussion :

[thomas1806]

Bonjour j'ai un petit problème avec mon code, je dois lister les fichiers *.sfc d'un dossier et de ces sous dossier. Cela fonctionne mais le programme ne rentre pas directement dans ma boucle et n'affiche pas le 1er fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function Lister(chemin As String)
Dim fs, Rep As Variant, NewRep As String, Nomfich As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Lister = fs.GetFolder(chemin).Files.Count
    Nomfich = Dir(chemin & "\*.sfc")
    Do While Nomfich <> ""
        nb = nb + 1
        Range("J" & CStr(nb)) = Replace(Nomfich, ".SFC", "")
        Cells(nb, 3) = chemin & "\" & Nomfich 'liste dans la feuille de calculs active
        tableau = Split(chemin, "\")
        Nomfich = Dir()
    Loop
 
    For Each Rep In fs.GetFolder(chemin).SubFolders
        NewRep = Lister(Rep.Path)
    Next Rep
End Function

Mercii

Thomas

[Fvandermeulen]

Salut,
As tu vérifié ce que renvoi ta variable chemin ?
A part ça je vois pas vraiment ce qui peut bloquer (mais j'ai pas testé)
A+

[thomas1806]

Voila j'ai trouvé la solution merci quand même mais j'ai une autre question maintenant

J'ai des mots dans la colonne A et C. Je voudrais copier dans une autre colonne les mots de la colonne A qui se trouve aussi dans la C ?

[Fvandermeulen]

Voila j'ai trouvé la solution merci quand même mais j'ai une autre question maintenant

Et c'était quoi la solution (histoire que je rentre moins idiot) ?


Sinon pour les doublons, voici une proposition avec la méthode 'Find':

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Doublons()
 
Dim m As String
Dim MaPlage As Range, MaRech As Range
Dim DerCelA As Long, DerCelC As Long, i As Long, k As Long
 
DerCelA = Sheets("TaFeuille").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row 'Def dernière ligne col. A
DerCelC = Sheets("TaFeuille").Cells(Columns(3).Cells.Count, 3).End(xlUp).Row 'Def dernière ligne col. C
 
 
Set MaPlage = Sheets("TaFeuille").Range(Cells(1, 3), Cells(DerCelC, 3)) 'Défini la plage de recherche
k = 2 'Fixe le début de K pour le placement du résultat
 
For i = 2 To DerCelA 'Boucle de la ligne 2 (car titre) à la dernière ligne remplie de la col. A
    With MaPlage 'Sur base de la plage
        Set MaRech = .Find(Cells(i, 1).Value, LookIn:=xlValues) 'Affecte l'élément à rechercher sur base de la col. A
        If Not MaRech Is Nothing Then 'Si la recherche est positive alors
        Sheets("TaFeuille").Cells(k, 4) = MaRech 'Affecte à la colonne D l'élément qui a été trouvé
        k = k + 1 'On incrémente k pour affecter à la ligne suivant le prochain élément trouvé
        End If
     End With
Next i
 
End Sub

A+