Utilisation recherchev avec vba
hugolin75
Messages postés
1
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis à la recherche d'un code me permettant de comparer les celulles d'un 1er tableau avec les celulles d'un 2nd tableau.
Ces tableaux sont stockés dans deux onglets différents.
Enfin à la suite de la rehcerchev, je souhaite faire apparaître dans un 3ème onglet, toutes les valeurs communes au 2 tableaux.
Merci d'avance pour votre aide.
Cdt
Hugo
Je suis à la recherche d'un code me permettant de comparer les celulles d'un 1er tableau avec les celulles d'un 2nd tableau.
Ces tableaux sont stockés dans deux onglets différents.
Enfin à la suite de la rehcerchev, je souhaite faire apparaître dans un 3ème onglet, toutes les valeurs communes au 2 tableaux.
Merci d'avance pour votre aide.
Cdt
Hugo
A voir également:
- Utilisation recherchev avec vba
- Utilisation chromecast - Guide
- Télécharger gratuitement notice d'utilisation - Guide
- Recherchev contient ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
1 réponse
Bonjour,
Sub Recherche_sur_Deux_Tableaux()
Dim Tabl_Source As Range, Tabl_Rech As Range, Cel As Range
Dim C As Range, Pointeur_Feuil3
Set Tabl_Source = Sheets("Feuil2").Range("A1:A50") 'TABLEAU B
Set Tabl_Rech = Sheets("Feuil1").Range("A1:A50") 'TABLEAU A
Pointeur_Feuil3 = 1
For Each Cel In Tabl_Source
If Cel <> "" Then
Set C = Tabl_Rech.Find(Cel)
If Not C Is Nothing Then
Sheets("Feuil3").Select
Cells(Pointeur_Feuil3, 1) = C.Value
Pointeur_Feuil3 = Pointeur_Feuil3 + 1
End If
End If
Next Cel
End Sub
A adapter par rapport a vos tableaux de donnees
Sub Recherche_sur_Deux_Tableaux()
Dim Tabl_Source As Range, Tabl_Rech As Range, Cel As Range
Dim C As Range, Pointeur_Feuil3
Set Tabl_Source = Sheets("Feuil2").Range("A1:A50") 'TABLEAU B
Set Tabl_Rech = Sheets("Feuil1").Range("A1:A50") 'TABLEAU A
Pointeur_Feuil3 = 1
For Each Cel In Tabl_Source
If Cel <> "" Then
Set C = Tabl_Rech.Find(Cel)
If Not C Is Nothing Then
Sheets("Feuil3").Select
Cells(Pointeur_Feuil3, 1) = C.Value
Pointeur_Feuil3 = Pointeur_Feuil3 + 1
End If
End If
Next Cel
End Sub
A adapter par rapport a vos tableaux de donnees
