Macro rechercher dans 2 tableaux et copie de données avec une boucle

Bonjour à tous,

Débutant dans le VBA, j'aurais besoin de votre aide pour créer une macro de recherche entre 2 tableaux afin de copier les valeurs de certaines données connues.

Les tableaux sont identiques au niveau des colonnes mais pas au niveau de l'ordre des données.

J'ai donc 2 tableaux. 1 de données (tab1) et un de synthèse (tab2).

Il faudrait que je puisse réaliser une recherche d'un tableau à l'autre en fonction de la valeur d'une cellule de la colonne C et de copier les données des valeurs du tableau de données vers le tableau de synthèse selon la correspondance du text. Et de créer une boucle afin de répéter l'action sur les 4000 lignes du tableau.

Exemple :

Tab2 : cellule C15 = (RVC PDM XXX), copier le text ou valeur de la cellule C15

Tab1 : recherche text "RVC PDM XXX", si trouvée, copier les cellules O, AA:AE de la ligne correspondante trouvée.

Tab2 : coller cellules O, AA:AE en C15, AA15:AE15

Et recommencer avec la cellule en dessous C16 jusqu'à la fin du tableau C4000

Merci par avance pour vos réponses

Cyril

Hello,

Le txt à rechercher se fait dans quelle colonne du tab1 ?

R@g

dim i as integer
dim y as integer
dim txt_a_chercher as string

for i = 1 to sheets("NOM_FEUILLE_TAB2").Range("A65536").End(xlUp).Row
    txt_a_chercher = sheets("NOM_FEUILLE_TAB2").Range("C" & i).value
   for y = 1 to sheets("NOM_FEUILLE_TAB1").Range("A65536").End(xlUp).Row
      if sheets("NOM_FEUILLE_TAB1").Range("C" & y).value = txt_a_chercher  then 
         sheets("NOM_FEUILLE_TAB1").Range("O" & y).Copy worksheets("NOM_FEUILLE_TAB2").Range("O" & I )

          sheets("NOM_FEUILLE_TAB1").Range("AA" & y & ":AE" & y).Copy worksheets("NOM_FEUILLE_TAB2").Range("AA" & i & ":AE" & i) )
         exit for

     end if
   next y
next i

A tester

R@g

Merci pour ton retour

J'ai tout intégré suivant les paramètre de mes tableaux.

Cela fonctionne, mais copie les formules. J'aimerais coller seulement les valeurs

Cordialement

Cyril