J
JC de Lorient
Guest
Bonsoir le forum,
L'exellent Mydearfriend m'a créé un code VBA qui évidemment marche a merveille. J'ai souhaité rajouter une valeur (içi en ligne (1))
Mais ça buge en ligne (2)
Merci a celui ou celle qui m'apportera la solution
Voiçi un extrait du code
'Rechercher la valeur dans chaque classeur
For N = 1 To ListeClasseurs.Count
Application.EnableEvents = False
Workbooks.Open Chemin & '\\' & ListeClasseurs(N)
Application.EnableEvents = True
With ActiveWorkbook
Set C = .Sheets(1).Columns(3).Find(MaValeur, LookIn:=xlValues)
If Not C Is Nothing Then
R = R + 1
ReDim Preserve ListeRetenus(1 To 3, 1 To R)
ListeRetenus(1, R) = ListeClasseurs(N)
ListeRetenus(2, R) = C.Offset(0, -1).Value
(1) ListeRetenus(3, R) = C.Offset(0, 10).Value
End If
.Close False
End With
Next N
'MAJ de la liste des classeurs retenus
ListeRetenus = Application.Transpose(ListeRetenus)
With ThisWorkbook.Sheets('Résultats')
.Activate
(2) .Range(.Cells(2, 1), .Cells(UBound(ListeRetenus, 1) + 1, _
UBound(ListeRetenus, 2), UBound(ListeRetenus, 3))).Value = ListeRetenus
.Columns('A:C').AutoFit
End With
JC
L'exellent Mydearfriend m'a créé un code VBA qui évidemment marche a merveille. J'ai souhaité rajouter une valeur (içi en ligne (1))
Mais ça buge en ligne (2)
Merci a celui ou celle qui m'apportera la solution
Voiçi un extrait du code
'Rechercher la valeur dans chaque classeur
For N = 1 To ListeClasseurs.Count
Application.EnableEvents = False
Workbooks.Open Chemin & '\\' & ListeClasseurs(N)
Application.EnableEvents = True
With ActiveWorkbook
Set C = .Sheets(1).Columns(3).Find(MaValeur, LookIn:=xlValues)
If Not C Is Nothing Then
R = R + 1
ReDim Preserve ListeRetenus(1 To 3, 1 To R)
ListeRetenus(1, R) = ListeClasseurs(N)
ListeRetenus(2, R) = C.Offset(0, -1).Value
(1) ListeRetenus(3, R) = C.Offset(0, 10).Value
End If
.Close False
End With
Next N
'MAJ de la liste des classeurs retenus
ListeRetenus = Application.Transpose(ListeRetenus)
With ThisWorkbook.Sheets('Résultats')
.Activate
(2) .Range(.Cells(2, 1), .Cells(UBound(ListeRetenus, 1) + 1, _
UBound(ListeRetenus, 2), UBound(ListeRetenus, 3))).Value = ListeRetenus
.Columns('A:C').AutoFit
End With
JC