A voir également:
- Recherche et collage dans plages distinctes
- Recherche musique - Guide
- Photo collage maker - Télécharger - Montage photo
- Pic collage - Télécharger - Photo & Graphisme
- Google recherche par image - Guide
- Rechercher ou entrer l'adresse mm - recherche google - 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
Bonjour,
Le problème peut venir de cette ligne
Range("C1").Value = Cherche.Value
en effet, cette instruction modifie la feuille et réactive l'évènement Worksheet_Change et donc ça tourne en boucle.
A+
Le problème peut venir de cette ligne
Range("C1").Value = Cherche.Value
en effet, cette instruction modifie la feuille et réactive l'évènement Worksheet_Change et donc ça tourne en boucle.
A+
