Récupération de données dans un tableau
Bonjour,
Après des recherches sur ce site je n'ai pas vraiment trouvé de réponses à mon problème. J'aimerais récupérer des informations dans un tableau excel pour les mettre dans un autre tableau, jusque là c'est assez simple. Mon problème est que j'aimerais chercher une certaines donnés dans tout mon classeur excel. Ainsi il faudrait codé pour qu'excel recherche dans TOUT le classeur où est la donnée.
J'ai réussi sur une feuille avec diverses recherches sur internet mais j'aimerais sur toutes les feuilles, j'ai essayé 'ThisWorkbook" "ActiveWorkbook" mais en vain..
Comme ici on cherche le mot "Trouve" dans une feuille :
Private Sub Choixdulot_Click()
'-------------------------------------------------------------------------
'déclaration des variables :
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String
'affectation de valeurs aux variables :
'on cherche le mot "Trouve"
Valeur_Cherchee = "Trouve"
'Set PlageDeRecherche = ActiveSheet.Cells
'*******************************
'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee)
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
'ici, traitement pour le cas où la valeur n'est pas trouvée
AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
Else
'ici, traitement pour le cas où la valeur est trouvée
AdresseTrouvee = Trouve.Address
End If
MsgBox AdresseTrouvee
'vidage des variables
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
'--------------------------------------------------------------------------
End Sub
Merci pour votre aide !
Petite solution intermédiaire ! avec ce code j'arrive à chercher le mot "Trouve" dans tous le classeur !
'déclaration des variables :
Dim Trouve As Range
Dim PlageDeRecherche As Range
Dim Valeur_Cherchee As String
Dim AdresseTrouvee As String
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
'affectation de valeurs aux variables :
'on cherche le mot "Trouve"
Valeur_Cherchee = "Trouve"
'dans toutes les feuilles du classeur
Set Trouve = Ws.Cells.Find(What:=Valeur_Cherchee)
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
'ici, traitement pour le cas où la valeur n'est pas trouvée
MsgBox "ya rien lol"
Else
'ici, traitement pour le cas où la valeur est trouvée
AdresseTrouvee = Trouve.Address
MsgBox AdresseTrouvee
End If
Next Ws
End Sub