Utilisation recherchev avec vba

hugolin75 Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 3 sept. 2010 à 21:21

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

A voir également:

Utilisation recherchev avec vba
Utilisation chromecast - Guide
Télécharger gratuitement notice d'utilisation - Guide
Imprimante en cours d'utilisation ✓ - Forum Imprimante
Vba range avec variable ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Discussions similaires

[Excel] Recherche de Texte avec RechercheV

"L'indice n'appartient à la sélection" + VBA

Ressource demandée en cours d'utilisation

RECHERCHEV additionne les plusieurs lignes du meme nom

Erreur d'exécution 13 Incompatibilité de type

Votre réponse

Discussions similaires