peygase
XLDnaute Nouveau
Bonjour,
Jais presque la solution grasse au forum mes il faut maîtrisé le vba ce qui nés pas mon cas.
si un maître en la matière peut prendre quelque instant je lui en serais reconnaissent tout au long de ma vie de vba
Je m’explique
Dans mon classeur nommé a la date du jour exemple :
Pour lundi 15 juin ===>(1506)
A savoir je crée un classeur tous les jours dans le fichier (2009) et (06-juin) pour le mois de juin!!!
Je voudrai savoir si une référence ou un nom son présent de la ligne (A22 a A55) et ce sur les 12 feuil nommé (camion1 camion2) ...
Et si la valeur et présent dans quel classeur la trouver
(A savoir les ligne a recherche peuve contenir plusieurs valeur séparé par un espace)
Exemple :
(Ligne A22) (Valeur 128698 128699 140255)
(Ligne A23) (123123 465234) etc. ...
Voici une formule qui correspond a ce que je veut mais elle ne recherche q'une valeur prédéfini comment faire pour l’adapté ??
Merci d’avance pour toute réponse
Sub ListeFichiersTxt()
Dim Dossier As Object, Fichier As Object, Ws As Object
Dim StrSearchString As String, Chemin As String
Dim I As Byte, CountTot As Byte
Dim FoundCell As Variant
StrSearchString = InputBox(Prompt:='Saisir la valeur à chercher.', Title:='Recherche')
If StrSearchString = '' Then Exit Sub
Chemin = ThisWorkbook.Path
Set Dossier = CreateObject('Scripting.FileSystemObject').GetFold er(Chemin)
For Each Fichier In Dossier.Files
If Right(Fichier.Name, 3) = 'xls' Then
If Fichier.Name <> ThisWorkbook.Name Then
Workbooks.Open Filename:=Fichier
For Each Ws In Worksheets
CountTot = CountTot + Application.CountIf(Ws.UsedRange, '=' & StrSearchString)
Next Ws
If CountTot <> 0 Then
For Each Ws In Worksheets
With Ws
.Activate
Set FoundCell = .Cells.Find(What:=StrSearchString, LookIn:=xlValues, LookAt:=xlPart)
If Not FoundCell Is Nothing Then
FoundCell.Activate
Exit Sub
End If
End With
Next Ws
Else
ActiveWorkbook.Close
End If
End If
End If
Next Fichier
End Sub
le fichier en piece joint et une recherche dans le classeur
Ça fonctionne mais que sur ce classeur y a t'il une possibilité de l’adapté
voila jespere Que mon cas nés pas désespéré
Jais presque la solution grasse au forum mes il faut maîtrisé le vba ce qui nés pas mon cas.
si un maître en la matière peut prendre quelque instant je lui en serais reconnaissent tout au long de ma vie de vba
Je m’explique
Dans mon classeur nommé a la date du jour exemple :
Pour lundi 15 juin ===>(1506)
A savoir je crée un classeur tous les jours dans le fichier (2009) et (06-juin) pour le mois de juin!!!
Je voudrai savoir si une référence ou un nom son présent de la ligne (A22 a A55) et ce sur les 12 feuil nommé (camion1 camion2) ...
Et si la valeur et présent dans quel classeur la trouver
(A savoir les ligne a recherche peuve contenir plusieurs valeur séparé par un espace)
Exemple :
(Ligne A22) (Valeur 128698 128699 140255)
(Ligne A23) (123123 465234) etc. ...
Voici une formule qui correspond a ce que je veut mais elle ne recherche q'une valeur prédéfini comment faire pour l’adapté ??
Merci d’avance pour toute réponse
Sub ListeFichiersTxt()
Dim Dossier As Object, Fichier As Object, Ws As Object
Dim StrSearchString As String, Chemin As String
Dim I As Byte, CountTot As Byte
Dim FoundCell As Variant
StrSearchString = InputBox(Prompt:='Saisir la valeur à chercher.', Title:='Recherche')
If StrSearchString = '' Then Exit Sub
Chemin = ThisWorkbook.Path
Set Dossier = CreateObject('Scripting.FileSystemObject').GetFold er(Chemin)
For Each Fichier In Dossier.Files
If Right(Fichier.Name, 3) = 'xls' Then
If Fichier.Name <> ThisWorkbook.Name Then
Workbooks.Open Filename:=Fichier
For Each Ws In Worksheets
CountTot = CountTot + Application.CountIf(Ws.UsedRange, '=' & StrSearchString)
Next Ws
If CountTot <> 0 Then
For Each Ws In Worksheets
With Ws
.Activate
Set FoundCell = .Cells.Find(What:=StrSearchString, LookIn:=xlValues, LookAt:=xlPart)
If Not FoundCell Is Nothing Then
FoundCell.Activate
Exit Sub
End If
End With
Next Ws
Else
ActiveWorkbook.Close
End If
End If
End If
Next Fichier
End Sub
le fichier en piece joint et une recherche dans le classeur
Ça fonctionne mais que sur ce classeur y a t'il une possibilité de l’adapté
voila jespere Que mon cas nés pas désespéré
Dernière édition:
