Recherche et collage dans plages distinctes
tomtom75015
-
tomtom75015 -
tomtom75015 -
Bonjour à tous!
Je souhaite faire une recherche du contenu d'une cellule dans une colonne sur une autre feuille. Une fois la cellule dans la plage identifiée je dois coller le contenu de la cellule adjacente dans une autre cellule de ma première feuille. Je souhaite utiliser une procédure de type worksheet change de afin que la mise à jour soit immédiate.
Par avance merci,
Thomas
Je souhaite faire une recherche du contenu d'une cellule dans une colonne sur une autre feuille. Une fois la cellule dans la plage identifiée je dois coller le contenu de la cellule adjacente dans une autre cellule de ma première feuille. Je souhaite utiliser une procédure de type worksheet change de afin que la mise à jour soit immédiate.
Par avance merci,
Thomas
A voir également:
- Recherche et collage dans plages distinctes
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Rechercher ou entrer l'adresse mm - recherche google - Guide
- Recherche photo - Guide
- Recherche et remplacer word - Guide
- Je recherche une chanson - Guide
3 réponses
Après quelques recherche, voici le code que j'ai défini:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Trouve As Range, Cherche As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String, AdresseCherchee As String, AdresseCherchee1 As String
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
Valeur_Cherchee = Workbooks("vba").Sheets("Feuil1").Range("B1").Value
Set PlageDeRecherche = Sheets("Feuil2").Range("C1:C13")
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
'If Trouve Is Nothing Then
'AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
'Else
MsgBox Trouve.Value
Set Cherche = Trouve.Offset(0, 1)
MsgBox Cherche.Value
MsgBox Cherche.Address
'AdresseTrouvee = Trouve.Address
Range("C1").Value = Cherche.Value
'End If
MsgBox valeur
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
End Sub
Malheureusement, le programme tourne en boucle et je vois pas pourquoi. Si quelqu'un a une idée ça serait génial.
Merci,
Thomas
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Trouve As Range, Cherche As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String, AdresseCherchee As String, AdresseCherchee1 As String
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
Valeur_Cherchee = Workbooks("vba").Sheets("Feuil1").Range("B1").Value
Set PlageDeRecherche = Sheets("Feuil2").Range("C1:C13")
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
'If Trouve Is Nothing Then
'AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
'Else
MsgBox Trouve.Value
Set Cherche = Trouve.Offset(0, 1)
MsgBox Cherche.Value
MsgBox Cherche.Address
'AdresseTrouvee = Trouve.Address
Range("C1").Value = Cherche.Value
'End If
MsgBox valeur
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
End Sub
Malheureusement, le programme tourne en boucle et je vois pas pourquoi. Si quelqu'un a une idée ça serait génial.
Merci,
Thomas